allow messages to be marked as read

[etc/mailfilter.git] / procmail / deliver

diff --git a/procmail/deliver b/procmail/deliver
index ca6bef4477ee9da82034e8cc113e8ddbbb7c7e9e..e2bd9071518435f2b584bec4d1933804a965896c 100644 (file)
--- a/procmail/deliver
+++ b/procmail/deliver
@@ -1,3 +1,12 @@
+:0
+*$ DEST ?? ^$NULL$
+{
+  LOG="deliver:     sending message $MSGID to $DEST$NL"
+
+  :0
+  $NULL
+}
+
 :0
 * ! DEST ?? .
 { DEST=/ }
@@ -11,12 +20,18 @@
 { DEST="$MATCH" }
 
 :0
-*$ DEST ?? ^\.
-{ }
-
-:0 E
+*$ ! DEST ?? ^\.
 { DEST=".$DEST" }
 
+:0
+* MARK_READ ?? .
+{
+  TRAP="$TRAP; BASENAME=\"\${DESTFILE##*/}:2,S\""
+  TRAP="$TRAP; DIRNAME=\"\${DESTFILE%/new/*}/cur\""
+  TRAP="$TRAP; DESTFILE=\"\$DIRNAME/\$BASENAME\""
+  TRAP="$TRAP; mv \"\$LASTFOLDER\" \"$BASE/\$DESTFILE\""
+}
+
 :0
 {
   LOG="deliver:     delivering message $MSGID to $DEST$NL"