From f1007ee0c6a2dfdc5512a1be3dada65cbc5d5391 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sun, 21 May 2006 18:39:29 +0000
Subject: new

---
 bin/upas/spam | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 bin/upas/spam

(limited to 'bin/upas/spam')

diff --git a/bin/upas/spam b/bin/upas/spam
new file mode 100755
index 00000000..d7d44852
--- /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.*
-- 
cgit v1.2.3