From xemacs-m  Mon May  5 02:27:00 1997
Received: from web2.ndsoft.com (root@web2.ndsoft.com [199.203.68.30])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA21159
	for <xemacs-beta@xemacs.org>; Mon, 5 May 1997 02:26:57 -0500 (CDT)
Received: from romeo.ndsoft.com (romeo [194.90.171.61])
	by web2.ndsoft.com (8.8.5/8.8.5) with SMTP id JAA06794;
	Mon, 5 May 1997 09:19:36 +0300
Received: from ndsoft.com (piccard) by romeo.ndsoft.com (4.1/SMI-4.1)
	id AA02701; Mon, 5 May 97 10:27:06 IDT
Received: by ndsoft.com (4.1/SMI-4.1)
	id AA19402; Mon, 5 May 97 10:27:00 IDT
Date: Mon, 5 May 97 10:27:00 IDT
Message-Id: <9705050727.AA19402@ndsoft.com>
From: "Amir J. Katz" <amir@ndsoft.com>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="Delta_Force-assassination-f/2Bp"
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org (XEmacs Beta List),
        xemacs@cs.uiuc.edu (XEmacs Mailing List),
        info-vm@uunet.uu.net (VM Mailing List)
Subject: Fighting those pesky junk mail messages
X-Mailer: VM 6.30 under 20.2 XEmacs Lucid (beta1)
Reply-To: amir@ndsoft.com
X-Face:  ##A>t)R3?k=s5sw'(<v}xy5K8i]2+gl@^A7,ZN.8v5,).3hzG^rRmob&I-^&2m>5K\s3KSk+iIbgHIrS_8k}#}MVff9#>t4r!a>yp<qFqhM>pweVJ!^S<@teMIaDDU(gXk!,)m]o|"X



--Delta_Force-assassination-f/2Bp
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Recently, the trickle of junk mail has turned into a steady, ugly,
stinking stream. Not only do I get them personally (because I have
posted to a newsgroup or to a mailing list), but I get them thru our 
sacred mailing lists.

I have started using procmail to filter those bastards. As part of
my pro bono work (30 hours of community work), I hereby post my
'.procmailrc' file.

I have gradually added various regexps to catch many variations of
junk mail. The first prize, no doubt, goes to this
politically-correct 'from' address: <conserve@savetrees.com>.

Please note that I do keep the junk mail in a folder in case the
junk mail is a legitimate message and my filter was over-fascistic.
Replace the folder name with /dev/null for termination with extreme
prejudice of those mails.

Thanks to Steve L. Baur for advising about procmail.

Enjoy.

--Delta_Force-assassination-f/2Bp
Content-Type: text/plain
Content-Description: Amir's .procmailrc
Content-Disposition: inline;
	filename=".procmailrc"
Content-Transfer-Encoding: 7bit

#################################################################
#
# Amir's .procmailrc file.
#
# Created: 20-Apr-1997.
#
#################################################################

PATH=/bin:/usr/bin:/usr/local/bin

TODAY=`date +%m%d`                        # Amir's addition

MAILDIR=$HOME/Mail

DEFAULT=$ORGMAIL

LOGFILE=$MAILDIR/00-Procmail-Logs/$TODAY  # Amir's setup

#VERBOSE=yes

##################################
#
# VM
#
##################################

:0:
* ^sender:.*-vm-request
VM.$TODAY

##################################
#
# XEmacs Beta List
#
##################################

:0:
* (^to|^from|^sender|^resent-from):.*xemacs-beta
Beta.$TODAY

##################################
#
# XEmacs
#
##################################

:0:
* (^to|^from|^sender|^resent-from):.*xemacs
XEmacs.$TODAY

##################################
#
# Trn
#
##################################

:0:
* (^to|^from|^sender|^resent-from):.*trn-
Trn.$TODAY

##################################
#
# Pegasus Mail
#
##################################

:0:
* ^sender:.*Pegasus
Pegasus.$TODAY

:0:
* ^sender:.*PMAIL
Pegasus.$TODAY

:0:
* ^sender:.*PM-NEWS
Pegasus.$TODAY

##################################
#
# Save my outgoing mails. Currently
# commented out.
#
##################################

#:0:
#* ^From:.*Katz
#Amir.$TODAY

#################################################################
#
# Junk Mail:
#
# Save to a folder in case my filter killed a valid messages.
#
#################################################################

:0
* ^Subject:.*(money!|money\$|money fast|wealthy|call today|cash|big bucks|\$\$\$|!!!)
JunkMail.$TODAY

:0
* ^Subject:.*(credit approval)
JunkMail.$TODAY

# More than 4 '!' is a bad sign...

:0
* ^Subject:.*(!!!![!]+)
JunkMail.$TODAY

:0
* ^From:.*(bambi|bimbo|hotstuff|savetrees|great sites)
JunkMail.$TODAY

:0
* ^Received:.*cyberpromo\.com
JunkMail.$TODAY

# Tricky header from cyberpromo

:0
* ^X-[0-9]+:.*cyberpromo\.com
JunkMail.$TODAY

# Case-sensitive ('D' flag)

:0 D
* ^Subject:.*(free !)
JunkMail.$TODAY

##################################
#
# The rest go the $DEFAULT (defined above).
#
##################################

# -----------------------------------------------------
# Do NOT remove these lines. They set mode in Emacs.
# winmgr-mode is OK for font locking.
#
#@ Local Variables: ***
#@ mode: winmgr ***
#@ End: ***
# -----------------------------------------------------

--Delta_Force-assassination-f/2Bp
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


-- 
/* Amir J. Katz  E-mail: amir@ndsoft.com   URL: http://www.ndsoft.com */
/* EagleEye Control Software, LTD., Tel-Aviv, Israel                  */
/* .. I busted a mirror and got seven years bad luck, but my        ..*/
/* .. lawyer thinks he can get me five.        (Steven Wright)      ..*/

--Delta_Force-assassination-f/2Bp--

