From: short <>
Date: Tue, 25 Sep 2001 11:08:20 +0000 (+0000)
Subject: Expunges local user (defaults to "short-m") primary mail box
X-Git-Tag: rh71~2
X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=db625114bb6a19c891f261fad9a7e0a5f3ee80f4;ds=sidebyside

Expunges local user (defaults to "short-m") primary mail box
 - FIXME: stupid fetchmail implementation by redirection to "/dev/null"
---

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