topica mailing lists filter

I have set of sed scripts that clean up emails sent to mailing
lists.  Here's a new one that I wrote for mailing lists hosted by
topica.  :-)

.procmailrc snippet:
# purge topica mailing lists of banners
:0fbw
* ^TO_(_dot_)*(_at_)topica\(_dot_)com
| sed -f topica.sed

topica.sed:
# topica mailing list filter
#
# get rid of the (un)subscribe dialog box
# which looks something like this:
# __________________________________________________
# Mailing List Title
# subscribe: mailing-list-title-subscribe(_at_)topica(_dot_)com
# unsubscribe: mailing-list-title-unsubscribe(_at_)topica(_dot_)com
# __________________________________________________
/^_\{10,\}/ {
        N; N; N; N
        
/^.*subscribe:(_dot_)*(_at_)topica\(_dot_)com(_dot_)*unsubscribe:(_dot_)*(_at_)topica\(_dot_)com(_dot_)*_\{10,\}/d
}
# get rid of the bottom banner
# which looks like this:
#
# ==^================================================================
# EASY UNSUBSCRIBE click here: http://topica.com/u/?ax8Qa0.a89I4A
# Or send an email To: mailing-list-title-unsubscribe(_at_)topica(_dot_)com
# This email was sent to: zoot(_at_)zotikos(_dot_)com
# 
# T O P I C A -- Register now to manage your mail!
# http://www.topica.com/partner/tag02/register
# ==^================================================================
/^==^=\{10,\}/ {
        N; N; N; N; N; N; N
        /^.*EASY UNSUBSCRIBE.*topica\.com.*topica\.com.*\n==^=\{10,\}/d
}

-- 
Random pic [www.explodingdog.com]:
http://www.explodingdog.com/feb26/indecision.html
--
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail