FTNMAIL: keep all kludges (except for PATH/SEEN-BY)

diff --git a/docs/ftn.txt b/docs/ftn.txt
index 79307afdf097b69174bb5c3d98a184125bc0e62d..eff4130825f8f6e9cf18f1c38dcbb7a48120d96f 100644 (file)
--- a/docs/ftn.txt
+++ b/docs/ftn.txt
@@ -15,6 +15,7 @@ $mail = {
        'reply' => "z:n/n.p YYYYYYYY",          # link to previous mail
        'path'  => "net/node ...",              # ECHOMAIL only
        'seen'  => "net/node ...",              # ECHOMAIL only
+       'kludges' => {'kludge'=>'data', ...}    # all except PATH/SEEN-BY
 };
 
 The 'area' key never exists for NETMAIL, and always exists for ECHOMAIL.

diff --git a/modules/FTNMAIL.pm b/modules/FTNMAIL.pm
index c5a46fff48d193056ba9db002875ba7ef1aa42be..ac3d0a1ca0211ac820fb58866751ce05769d02bf 100644 (file)
--- a/modules/FTNMAIL.pm
+++ b/modules/FTNMAIL.pm
@@ -112,6 +112,7 @@ sub unpack_body($$$$)
                        $seen .= "$2 "; next;
                } elsif(/^\x01(\S+) (.+)$/) {           # kludge
                        my ($kludge, $data) = ($1, $2);
+                       $mail{kludges}->{$kludge} = $data;
 
                        if($kludge =~ /MSGID:/) {
                                $mail{msgid} = $data;
@@ -127,10 +128,6 @@ sub unpack_body($$$$)
                                $charset = chrs2charset($data);
                        } elsif($kludge =~ /CODEPAGE/) {
                                $charset = chrs2charset("CP$data 2");
-                       } elsif($kludge =~ /(PID|TID|TZUTC|Via)/) {
-                               # TODO: ignored
-                       } else {
-                               LOG::warn("Unknown kludge '$kludge' '$data'");
                        }
                } else {                                # normal body line
                        $body .= "$_\n";