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

---
 mark-maildir-seen | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 mark-maildir-seen

(limited to 'mark-maildir-seen')

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