new

bin/upas/spam

diff --git a/bin/upas/spam b/bin/upas/spam
new file mode 100755
index 0000000..d7d4485
--- /dev/null
+++ b/bin/upas/spam
@@ -0,0 +1,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.*