new

1 files changed, 14 insertions, 0 deletions

diff --git a/bin/upas/unspambox b/bin/upas/unspambox
new file mode 100755
index 00000000..bfa70531
--- /dev/null
+++ b/bin/upas/unspambox
@@ -0,0 +1,14 @@
+#!/usr/local/plan9/bin/rc
+
+if (~ $#* 0)
+	echo usage: unspambox mailfs/mbox && exit "usage"
+box=$1
+msgs=(`{9p ls $box>[2=1]|awk '$10 ~ /[0-9][0-9]*/{print $10}'})
+if (~ $#msgs 0)
+	echo no messages in $box && exit "none"
+
+echo -n adding
+for (m in $msgs){
+	echo -n ' '$m
+	unspam $box/$m
+}