do not retickle postponed messages

[etc/mailfilter.git] / procmail / tickle

diff --git a/procmail/tickle b/procmail/tickle
index 672358daf66a82c5557b57f6f644fed95f279737..896490371b223712998fb8af1ba4bdee09ae80d8 100644 (file)
--- a/procmail/tickle
+++ b/procmail/tickle
@@ -1,66 +1,70 @@
+# The X-Tickle header has priority over the Original-To address

 :0
 :0

+* ! POSTPONED ?? .
+*$ ^X-Tickle:${RE_SPACE}+\/${RE_NOT_SPACE}+
+{ TICKLE="$MATCH" }
+
+:0 E
+* ! POSTPONED ?? .

 * ORIGINAL_TO ?? ^.+@tickle\.madduck\.net$
 * ORIGINAL_TO ?? ^\/[^@]+
 * ORIGINAL_TO ?? ^.+@tickle\.madduck\.net$
 * ORIGINAL_TO ?? ^\/[^@]+

+{ TICKLE="$MATCH" }
+
+:0
+* TICKLE ?? .
+* ! DEST ?? .

 {
 {

-  BIN_DATE=/bin/date
-  DELIVERY_TIME=04:20
-  STAMP
+  DAILY_DELIVERY_TIME=04:20
+  JUST_DATE="`$BIN_DATE -d \"$DATE\" +%x`"

 
   :0
 
   :0

-  * MATCH ?? ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$
-  { STAMP="$MATCH (`$BIN_DATE -d @$MATCH +%c`)" }
+  * TICKLE ?? ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$
+  { DELAY="@$TICKLE" }

 
   :0 E
 
   :0 E

-  * MATCH ?? ^[0-9]+h$
-  * MATCH ?? ^\/[^h]+
-  { DATESTR="$DATE + $MATCH hours" }
-
-  JUST_DATE="`$BIN_DATE -d \"$DATE\" +%x`"
+  * TICKLE ?? ^[0-9]+h$
+  * TICKLE ?? ^\/[^h]+
+  { DELAY="$DATE + $MATCH hours" }

 
   :0 E
 
   :0 E

-  * MATCH ?? ^[0-9]+m$
-  * MATCH ?? ^\/[^m]+
-  { DATESTR="$JUST_DATE + $MATCH months $DELIVERY_TIME" }
+  * TICKLE ?? ^[0-9]+m$
+  * TICKLE ?? ^\/[^m]+
+  { DELAY="$JUST_DATE + $MATCH months $DAILY_DELIVERY_TIME" }

 
   :0 E
 
   :0 E

-  * MATCH ?? ^[0-9]+w$
-  * MATCH ?? ^\/[^w]+
-  { DATESTR="$JUST_DATE + $MATCH weeks $DELIVERY_TIME" }
+  * TICKLE ?? ^[0-9]+w$
+  * TICKLE ?? ^\/[^w]+
+  { DELAY="$JUST_DATE + $MATCH weeks $DAILY_DELIVERY_TIME" }

 
   :0 E
 
   :0 E

-  * MATCH ?? ^[0-9]+d?$
-  * MATCH ?? ^\/[^d]+
-  { DATESTR="$JUST_DATE + $MATCH days $DELIVERY_TIME" }
-
-  JUST_DATE
-  DELIVERY_TIME
+  * TICKLE ?? ^[0-9]+d?$
+  * TICKLE ?? ^\/[^d]+
+  { DELAY="$JUST_DATE + $MATCH days $DAILY_DELIVERY_TIME" }

 
   :0 E
   {
 
   :0 E
   {

-    LOG="tickle:      invalid date string: $MATCH$NL"
+    LOG="tickle:      invalid tickler date string: $TICKLE$NL"

     EXITCODE=69
     HOST
   }
 
     EXITCODE=69
     HOST
   }
 

-  :0
-  * ! STAMP ?? .
-  { STAMP=`$BIN_DATE +'%s (%c)' -d "$DATESTR"` }
+  JUST_DATE
+  DAILY_DELIVERY_TIME

 
   :0
 
   :0

-  * ! STAMP ?? ^[0-9]+ \([A-Za-z ]+ [0-9 :]+\)$
-  {
-    LOG="tickle:      error creating timestamp ($STAMP), using \$now$NL"
-    STAMP="`$BIN_DATE +%s` (ERROR: original stamp '$STAMP' invalid)"
-  }
+  { RELEASE="`$BIN_DATE -d \"$DELAY\" +'%s (%c)'`" }

 
 

-  :0 E
-  { LOG="tickle:      stamping message $MSGID with $STAMP$NL" }
+  LOG="tickle:      delaying message until $RELEASE$NL"
+  DELAYED_QUEUE=$TICKLER_QUEUE

 
   :0 fw
 
   :0 fw

-  |$FORMAIL -i "X-Tickle: $STAMP"
+  |$FORMAIL -I"X-Tickle: $RELEASE"

 
 

-  :0
-  $BASE/.tickler/
+  # store messages as read
+  MARK_READ=true

 
 

-  BIN_DATE
+  # unset DISABLE_DELAYS to always enable delaying for tickle messages
+  DISABLE_DELAYS

 }
 }

+
+# vim:ft=procmail