1 #!/usr/local/plan9/bin/rc
2 
3 rfork en
4 
5 if (~ $#* 0)
6 	echo usage: unspam mesg && exit 1
7 
8 TMP=/tmp/unspam.$USER.$pid
9 {
10 	echo '# hash table'
11 	msgcat $1|sed '/^$/,$ s/^From / From /'|upas/msgtok|
12 		grep -v '^....................(.*)	'|
13 			sed 's/$/	1/'
14 } >$TMP.tok
15 
16 cd $home/mail
17 upas/addhash -o _prof.mbox _prof.mbox 1 $TMP.tok 1
18 upas/addhash -o _prof.spam _prof.spam 1 $TMP.tok -1
19 rm -f $TMP.*