Expunges local user (defaults to "short-m") primary mail box

[nethome.git] / bin / expunge-imap

diff --git a/bin/expunge-imap b/bin/expunge-imap
new file mode 100755 (executable)
index 0000000..3ae0760
--- /dev/null
+++ b/bin/expunge-imap
@@ -0,0 +1,5 @@
+#! /bin/sh
+user="${1:-short-m}"
+echo 'poll localhost proto IMAP user '"$user"' pass '"`cat ~/priv/"$user".pwd \
+               `"' mda "cat >/dev/null" norewrite fetchall nokeep' \
+       |fetchmail -f - -s