improve sender parsing

diff --git a/procmail/defines b/procmail/defines
index e10d302713d12c8a82eee2dab603ad7bc40aff75..32a6e8f56b7286103009a8ea971dc3ac66ef6500 100644 (file)
--- a/procmail/defines
+++ b/procmail/defines
@@ -117,20 +117,35 @@ ID="$LOGNAME@$HOSTNAME"
 # message-id
 INCLUDERC=$PMDIR/get-msgid
 
 # message-id
 INCLUDERC=$PMDIR/get-msgid
 

+:0
+*$ ^From:$RE_EXTRACT_HEADER_VALUE
+{ FROM="$MATCH" }
+

 # if $SENDER is undefined or not an email address, get it from the message
 :0
 * !SENDER ?? @
 # if $SENDER is undefined or not an email address, get it from the message
 :0
 * !SENDER ?? @

-*$ ^Sender:$RE_EXTRACT_HEADER_VALUE
-{ SENDER="$MATCH" }
+{
+  :0
+  *$ ^Sender:$RE_EXTRACT_HEADER_VALUE
+  { SENDER="$MATCH" }
+
+  :0 E
+  *$ FROM ?? ^\/${RE_NOT_SPACE}+@${RE_NOT_SPACE}+
+  { SENDER="$MATCH" }
+
+  :0 E
+  * FROM ?? ^.+ <\/[^>]+
+  { SENDER="$MATCH" }
+
+  :0 E
+  * FROM ?? ^.+ \(\/[^\)]+
+  { SENDER="$MATCH" }
+}

 
 :0
 *$ ^Date:$RE_EXTRACT_HEADER_VALUE
 { DATE="$MATCH" }
 
 
 :0
 *$ ^Date:$RE_EXTRACT_HEADER_VALUE
 { DATE="$MATCH" }
 

-:0
-*$ ^From:$RE_EXTRACT_HEADER_VALUE
-{ FROM="$MATCH" }
-

 :0
 *$ ^Subject:$RE_EXTRACT_HEADER_VALUE
 {
 :0
 *$ ^Subject:$RE_EXTRACT_HEADER_VALUE
 {

diff --git a/procmail/logging b/procmail/logging
index 7068e4d3996bbf883ff55f5b905f489e55aac24f..67d77124efb9ec4aad089dfc6709f743c00fcab4 100644 (file)
--- a/procmail/logging
+++ b/procmail/logging
@@ -37,6 +37,7 @@ LOG="msgid:       $MSGID
 logfile:     $THISLOGFILE_REL
 date:        $DATE (@$OURDATE)
 from:        $FROM
 logfile:     $THISLOGFILE_REL
 date:        $DATE (@$OURDATE)
 from:        $FROM

+sender:      $SENDER

 original-to: $ORIGINAL_TO
 subject:     $SUBJECT$NL"
 
 original-to: $ORIGINAL_TO
 subject:     $SUBJECT$NL"