diff options
| -rw-r--r-- | lib/PublicInbox/Filter.pm | 3 | ||||
| -rw-r--r-- | t/filter.t | 18 |
2 files changed, 1 insertions, 20 deletions
diff --git a/lib/PublicInbox/Filter.pm b/lib/PublicInbox/Filter.pm index ea6fd33f..4fdbe87e 100644 --- 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); } @@ -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'; |