Plan 9 from Bell Labs 2003-09-23

dist/replica/plan9.db

@@ -2798,7 +2798,7 @@ mail/lib/namefiles - 664 upas upas 960222586 63
 mail/lib/names.local - 664 upas upas 960222620 92
 mail/lib/patterns - 664 upas upas 957549063 602
 mail/lib/pipeto.bayes - 664 upas upas 1063950935 129
-mail/lib/pipeto.lib - 664 upas upas 1063950623 3026
+mail/lib/pipeto.lib - 664 upas upas 1064267147 3367
 mail/lib/prof.mbox - 664 upas upas 1063950959 13
 mail/lib/prof.spam - 664 upas upas 1063950959 13
 mail/lib/qmail - 775 upas upas 954266750 180

dist/replica/plan9.log

@@ -13385,3 +13385,5 @@
 1064028667 0 c sys/man/3/uart - 664 sys sys 1064028248 1398
 1064028667 1 c sys/src/9/pc/uarti8250.c - 664 sys sys 1064028221 12826
 1064028667 2 c sys/src/9/port/devuart.c - 664 sys sys 1064028192 11762
+1064260884 0 c mail/lib/pipeto.lib - 664 upas upas 1064260731 3353
+1064268091 0 c mail/lib/pipeto.lib - 664 upas upas 1064267147 3367

mail/lib/pipeto.lib

@@ -44,6 +44,8 @@ fn spool-tagged-spam {
 		_mbox=$1
 	{
 		cat $D/rawheader | sed 's/^[Ss][Uu][Bb][Jj][Ee][Cc][Tt]:/& SPAM:/'
+		if(! grep -si '^subject:' $D/rawheader)
+			echo 'Subject: SPAM: '
 		echo
 		cat $D/rawbody
 	} | $BIN/deliver $RECIP $D/from $_mbox || exit $status
@@ -106,7 +108,20 @@ fn listupdate {
 	$BIN/list add $PF $D/from $D/to $D/cc $D/sender
 }
 
-# bayesian spam filter.  alternative to token.  see /mail/lib/bayes.setup
+# microsoft virus going around 9/22/2003
+fn isvirus {
+	virus=no
+	if(grep -s '\.(exe|scr|bat|com)' $D/2/2/mimeheader >[2]/dev/null){
+		s=`{ls -l $D/2/2/raw | awk '{print $6}'}
+		if(~ $s 1440??) virus=yes
+	}
+	if(~ $virus yes)
+		status=''
+	if not
+		status='not this virus'
+}
+
+# bayesian spam filter.  alternative to token.  see /mail/lib/setup.bayes
 fn isspam {
 	for(i in _prof.mbox _prof.spam _bounced){
 		if(! test -f $i){