# Helper functions for procmailrc(5)s. # # (c) 2001 John Fremlin (http://ape.n3.net.) define(`KILLDUPES', ` :0 Whc: $MAILDIR/Procmail/$1.cache.lock | formail -D 65536 $MAILDIR/Procmail/$1.cache :0 a: $MAILDIR/duplicates ') define(`DELIVER', `:0 * $2 { KILLDUPES(translit($1,/.,-_)) $3 } ') define(`MAILFORWARD',`:0 * $2 ! $1') define(`MAILBOX',`DELIVER($1,$2, :0: $MAILDIR/$1)') define(`MAILINGLIST',`MAILBOX($1,$3)') define(`RUDE_MAILINGLIST',`DELIVER($1,$3, :0 fhw | sed -e "s/^\\(Subject:.*\\)$4\\( \\)*/\\1/I" \ -e "/^Reply-To:.*$2.*$/ d" :0: $MAILDIR/$1 )')