From db625114bb6a19c891f261fad9a7e0a5f3ee80f4 Mon Sep 17 00:00:00 2001
From: short <>
Date: Tue, 25 Sep 2001 11:08:20 +0000
Subject: [PATCH] Expunges local user (defaults to "short-m") primary mail box 
 - FIXME: stupid fetchmail implementation by redirection to "/dev/null"

---
 bin/expunge-imap | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100755 bin/expunge-imap

diff --git a/bin/expunge-imap b/bin/expunge-imap
new file mode 100755
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
-- 
1.8.3.1