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