# junkfilter
# a junk e-mail filter system for procmail
# Copyright 1997-99, Gregory Sutter <gsutter@pobox.com>
#
# $Id: junkfilter.bodychk,v 2.10 1999/04/01 00:19:51 gsutter Exp $
#
# Please read the file "junkfilter.readme" and the page
# http://www.pobox.com/~gsutter/junkfilter/ before using
# junkfilter.  junkfilter is copyright 1997-99 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="((e-? ?)?mail(ing)?|messag(e|ing)|info(rmation)?)s?"
JFBVIA="(against|through|to|using|with|via)"
JFBPOSS="(a(ll)?|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|Master Card|Master Charge|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