# junkfilter
# a junk e-mail filter system for procmail
# Copyright 1997-98, Gregory Sutter <gsutter@pobox.com>
#
# $Id: junkfilter.bodychk,v 2.4 1998/10/16 16:58:39 gsutter Exp $
#
# Please read the file "junkfilter.readme" and the page
# http://www.pobox.com/~gsutter/junkfilter/ before using
# junkfilter.  junkfilter is copyright 1997-98 Gregory
# Sutter and is licensed under the terms of the GNU
# General Public License, version 2.  See the file
# junkfilter.readme for details.

# Is there a listed phrase in the body of the message?

JFSEC="bodychk"

JFBMAIL="(mail|e-? ?mail|message|messaging|e-? ?mailing|mailing|information|info)s?"
JFBVIA="(against|through|to|using|with|via)"
JFBPOSS="(a|all|any|future|my|our|the|this)"
JFBADJ="(best|(bigg?|hott?|low|new)(est)?)"
JFBAPOL="(please )?(pardon|excuse|app?ologize( for)?|sorry( for| about)?)"
JFBCARD="(Visa|Mastercard|Mastercharge|M/C|MC|AMEX|American Express|Discover)"
JFBRM="['\" ]*(remov(e|al|ed))['\" ]*"
JFBRLIST="((global|universal) )?$JFBRM list"
JFBREMV="((to|to be|for) $JFBRM"
JFBYOU="you( have|ve|'ve)?"
JFBNUM="((\+?1)?[-( ]?[0-9][0-9][0-9][-) ]?[0-9][0-9][0-9][- ]?[0-9][0-9][0-9][0-9])"

JFBODYCHK=(`cat $JFDIR/jf-bodychk`)

:0HB
* $ ${JFBODYCHK:-$JFNOMATCH}
* < 60000
{
	:0B
	* $ ()\/($JFBODYCHK)
	{ JFMATCH="$JFSEC: $MATCH" INCLUDERC=$JFDIR/junkfilter.match }
}

:0
* $ $JF_BODYCHK_USER^0
{

	JFUSERBODYCHK=(`cat $JF_BODYCHK_USER_LOC`)

	:0HB
	* $ ${JFUSERBODYCHK:-$JFNOMATCH}
	* < 60000
	{
		:0B
		* $ ()\/($JFUSERBODYCHK)
		{ JFMATCH="${JFSEC}-User: $MATCH" INCLUDERC=$JFDIR/junkfilter.match }
	}

	JFUSERBODYCHK

}

JFBODYCHK
JFSEC

# EOF junkfilter.bodychk