remove bad stuff from mailbox, sa-learn it, move it to ../spam/

1 files changed, 13 insertions, 0 deletions

diff --git a/tools/mail-zap b/tools/mail-zap
new file mode 100755
index 0000000..912d740
--- /dev/null
+++ b/tools/mail-zap
@@ -0,0 +1,13 @@
+#! /bin/bash
+
+if test -z "$*" ; then
+  exit
+fi
+
+mail-scan +subject "$@"
+
+sa-learn --spam "$@"
+
+for file in "$@" ; do
+  mv "$file" "$(dirname $file)/../spam/"
+done