#!/usr/lib/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.*
