From 4fe26ee2d889aeca38124236a2f3dfa00abd581e Mon Sep 17 00:00:00 2001
From: Sebastian <basti@notizbuch>
Date: Tue, 30 Jun 2015 22:26:11 +0200
Subject: [PATCH] FTNMAIL: keep all kludges (except for PATH/SEEN-BY)

---
 docs/ftn.txt       | 1 +
 modules/FTNMAIL.pm | 5 +----
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/docs/ftn.txt b/docs/ftn.txt
index 79307af..eff4130 100644
--- 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 c5a46ff..ac3d0a1 100644
--- 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";
-- 
2.30.2