RE_FIRSTNAME="martin($RE_SPACE_NEWLINE+f(\.?|elix))?"
RE_LASTNAME="kraff?t"
RE_EXTRACT_HEADER_VALUE="$RE_SPACE*\/$RE_NOT_SPACE.*"
+RE_EMAILADDRESS="${RE_NOT_SPACE}+@${RE_NOT_SPACE}+\.[^ >]+"
DEJAVU_HEADER=X-Deja-Vu
DELAY_TONIGHT='tomorrow 00:00 4 hours ago' # tonight at 20:00
DELAY_AFTERNOON='tomorrow 00:00 8 hours ago' # today at 16:00
-OURDATE="`$BIN_DATE +'%s %Y.%m.%d.%H.%M.%N %a, %d %b %Y %T %z'`"
+OURDATE="`$BIN_DATE +'%s %Y%m%d.%H%M.%N %a, %d %b %Y %T %z'`"
:0
*$ OURDATE ?? ^\/${RE_NOT_SPACE}+
{ OURDATE_TS="$MATCH" }
{ FROM="$MATCH" }
:0
-*$ FROM ?? ^\/${RE_NOT_SPACE}+@${RE_NOT_SPACE}+
+* FROM ?? ^.+<\/.+@[^>]+
{ FROMEMAIL="$MATCH" }
:0 E
-* FROM ?? ^.+ <\/[^>]+
+* FROM ?? ^.+\(\/.+@[^\)]+
{ FROMEMAIL="$MATCH" }
:0 E
-* FROM ?? ^.+ \(\/[^\)]+
+*$ FROM ?? ^\/$RE_EMAILADDRESS
+{ FROMEMAIL="$MATCH" }
+
+:0
+* FROMEMAIL ?? ^".+"$
+* FROMEMAIL ?? ^"\/[^"]+
{ FROMEMAIL="$MATCH" }
# if $SENDER is undefined or not an email address, get it from the message
:0
*$ ^Subject:$RE_EXTRACT_HEADER_VALUE
{
- SUBJECT=$MATCH
+ SUBJECT="$MATCH"
:0
* SUBJECT ?? =\?.+\?[QBqb]\?.+\?=
{
SUBJECT="`PERL_UNICODE=S perl -MEncode=decode -e \"print decode(\\\"MIME-Header\\\", \\\"$SUBJECT\\\") . \\\"\n\\\";\"`"
+ SUBJECT_ENCODED="$MATCH"
}
}
# if set, disables delaying messages
DISABLE_DELAYS
+:0
+* ? test -e $HOME/procmail.nodelays
+{ DISABLE_DELAYS=true }
+
+# TZ
+# used to alter the timezone for delay calculations
+#TZ=Pacific/Auckland
+
# DELAY
# argument to /bin/date -d to indicate a message delay. This is overridden by
# RELEASE