From bc871dbc38d4e1729bfe8696bac0eb86b4d8b7b8 Mon Sep 17 00:00:00 2001
From: Luke Shumaker <LukeShu@sbcglobal.net>
Date: Mon, 28 Nov 2011 01:50:25 -0500
Subject: write maildups

a tool to delete duplicate emails in a mailder based on the Message-ID
header
---
 maildups.sh | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 maildups.sh

(limited to 'maildups.sh')

diff --git a/maildups.sh b/maildups.sh
new file mode 100644
index 0000000..d5521da
--- /dev/null
+++ b/maildups.sh
@@ -0,0 +1,11 @@
+#!/bin/sh
+# Delete duplicate messages in $1 based on the Message-ID header
+
+maildir=$1
+
+msgid_file=`mktemp`
+grep -rH -m1 '^[Mm]essage-[Ii][Dd]:' "$maildir"|sort -n>"$msgid_file"
+
+< "$msgid_file" sed 's/:.*//'|uniq -d|while read msgid; do
+    sed -n "s/^$msgid://p"|sed 1d|xargs -d'\n' rm -f
+done
-- 
cgit v1.2.3