filter: preserve Mail-Followup-To and Mail-Reply-To

Allow users to do wacky things here if they really wish...
It's bad practice, but at least allow other readers to
mock users of these headers :P

diff --git a/lib/PublicInbox/Filter.pm b/lib/PublicInbox/Filter.pm
index ea6fd33f06d18d1a8278535bd2e3d0c166845da4..4fdbe87e35adfd7dd6cf475dadd04ff5bfe1ab36 100644 (file)
--- a/lib/PublicInbox/Filter.pm
+++ b/lib/PublicInbox/Filter.pm
@@ -33,8 +33,7 @@ sub run {
        # we should do this before it gets to ssoma.
        # We also kill Mail-{Followup,Reply}-To headers due to
        # the nature of public-inbox having no real subscribers.
-       foreach my $d (qw(status lines content-length
-                       mail-followup-to mail-reply-to)) {
+       foreach my $d (qw(status lines content-length)) {
                $mime->header_set($d);
        }
 

diff --git a/t/filter.t b/t/filter.t
index 80a7c123ae41078ca42bba187803c4bb9daf6232..609a19297f3b4094db0326754f998442a57e2d77 100644 (file)
--- a/t/filter.t
+++ b/t/filter.t
@@ -297,24 +297,6 @@ sub count_body_parts {
        like($s->as_string, qr/scrubbed/, "scrubbed message");
 }
 
-{
-       my $s = Email::MIME->create(
-               header => [
-                       From => 'a@example.com',
-                       To => 'b@example.com',
-                       'Content-Type' => 'text/plain',
-                       'Mail-Followup-To' => 'c@example.com',
-                       Subject => 'mfttest',
-               ],
-               body => "mft\n",
-       );
-
-       is('c@example.com', $s->header("Mail-Followup-To"),
-               "mft set correctly");
-       is(1, PublicInbox::Filter->run($s), "run succeeded for mft");
-       is(undef, $s->header("Mail-Followup-To"), "mft stripped");
-}
-
 # multi-part with application/octet-stream
 {
        my $os = 'application/octet-stream';