log encoded subjects

diff --git a/procmail/defines b/procmail/defines
index 07482cd8d667a187b0f7cbf76d276f75b1ffbcf9..bb0768064cf956aff0536a41bd2fcba81f4863b6 100644 (file)
--- a/procmail/defines
+++ b/procmail/defines
@@ -158,12 +158,13 @@ INCLUDERC=$PMDIR/get-msgid
 :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"
   }
 }
 

diff --git a/procmail/logging b/procmail/logging
index 19cbc4da0a190752fef39ffbe8a9c6b908173702..ac4b8dc4e6924ed9c94e9b0d2720ae34c62af0be 100644 (file)
--- a/procmail/logging
+++ b/procmail/logging
@@ -43,6 +43,10 @@ from:        $FROMEMAIL ($FROM)
 original-to: $ORIGINAL_TO
 subject:     $SUBJECT$NL"
 
+:0
+* SUBJECT_ENCODED ?? .
+{ LOG="subject-enc: $SUBJECT_ENCODED$NL" }
+
 TRAP="DESTFILE=\"\${LASTFOLDER#$BASE/}\";
       /usr/bin/lockfile -4 -r50 -l180 $PMVAR/lock;
       trap \"echo >> '$THISLOGFILE';