From c4538c476fd1260b3576498db04c922fed596b2e Mon Sep 17 00:00:00 2001
From: Lars Wirzenius <liw@liw.fi>
Date: Fri, 13 Sep 2019 10:11:26 +0300
Subject: Add: make-maildir-seen

---
 Makefile          |  1 +
 mark-maildir-seen | 27 +++++++++++++++++++++++++++
 2 files changed, 28 insertions(+)
 create mode 100755 mark-maildir-seen

diff --git a/Makefile b/Makefile
index 129fbdc..6a56982 100644
--- a/Makefile
+++ b/Makefile
@@ -17,6 +17,7 @@ scripts = \
     jwt-decode \
     keepalive \
     lorem \
+    make-maildir-seen \
     mbox2maildir \
     minimify \
     musictomp3 \
diff --git a/mark-maildir-seen b/mark-maildir-seen
new file mode 100755
index 0000000..a742a0b
--- /dev/null
+++ b/mark-maildir-seen
@@ -0,0 +1,27 @@
+#!/bin/sh
+
+set -eu
+
+rename() {
+    local dirname="$1"
+    local pattern="$2"
+    local suffix="$3"
+
+    find "$dirname"/cur "$dirname"/new -type f \
+         -name "*:2,*" \
+         ! -name "$pattern" \
+         -exec mv '{}' '{}S' ';'
+}
+
+mark_seen()
+{
+    local dirname="$1"
+    rename "$dirname" "*:2,*S*" "S"
+}
+
+
+for dirname in "$@"
+do
+    mark_seen "$dirname"
+done
+
-- 
cgit v1.2.1