allow early scripts to properly log

[etc/mailfilter.git] / procmail / get-msgid

diff --git a/procmail/get-msgid b/procmail/get-msgid
index e859f2dd44366fe73f5685832564e2ca456a7b78..61eca10419a0afa18aa5283daf8e4917fa354e37 100644 (file)
--- a/procmail/get-msgid
+++ b/procmail/get-msgid
@@ -5,21 +5,30 @@
 :0
 * MSGID ?? ^[  ]*$|^<>$
 {
 :0
 * MSGID ?? ^[  ]*$|^<>$
 {

-  TMPFILE="`tempfile -p msgid`"
-  LOG="get-msgid:   LACKING MSGID header, DUMPING to $TMPFILE$NL"
+  :0
+  * ^Resent-Message-Id:[       ]*\/[^  ]+
+  {
+    LOGLATER="get-msgid:   lacking message-id, using resent-message-id...$NL"
+    :0 fw
+    |$FORMAIL -R Resent-Message-ID Message-ID
+  }

 
 

-  :0 ifw
-  |cat > $TMPFILE
+  :0 E
+  {
+    LOGLATER="get-msgid:   lacking message-id, generating one...$NL"
+    :0 fw
+    |$FORMAIL -a Message-ID:
+  }

 
 

-  EX_DEFER=75
-  EXITCODE=$EX_DEFER
-  HOST
+  :0
+  * ^Message-Id:[      ]*\/[^  ]+
+  { MSGID="$MATCH" }

 }
 
 :0
 * ! MSGID ?? ^<[^>]+>$
 {
 }
 
 :0
 * ! MSGID ?? ^<[^>]+>$
 {

-  LOG="get-msgid:   message-id '$MSGID' not enclosed in <>, fixing it...$NL"
+  LOGLATER="get-msgid:   message-id '$MSGID' not enclosed in <>, fixing it...$NL"

   MSGID="<$MSGID>"
 }
 
   MSGID="<$MSGID>"
 }
 


@@ -27,13 +36,8 @@
 *$ MSGID ?? .+@$RE_MAILRELAYS>
 *$ !^Return-Path: .+@$RE_MAILRELAYS\>
 *$ !^Received: by $RE_MAILRELAYS \(postfix, from userid
 *$ MSGID ?? .+@$RE_MAILRELAYS>
 *$ !^Return-Path: .+@$RE_MAILRELAYS\>
 *$ !^Received: by $RE_MAILRELAYS \(postfix, from userid

+* MSGID ?? ^<\/[^>]+

 {
 {

-  LOG="get-msgid:   missing message ID added by one of our mail relays$NL"
-
-  :0 fw
-  |$SED -re "s/^([Mm]essage-[Ii][Dd]:[^@]+@$RE_MAILRELAYS)\>/\1.MSGID-ADDED/"
-
-  :0
-  * ^Message-Id:[      ]*\/[^  ]+
-  { MSGID="$MATCH" }
+  LOGLATER="get-msgid:   missing message ID added by one of our mail relays$NL"
+  MSGID="<${MATCH}.MSGID-ADDED>"

 }
 }