From 5a590bcb6813215a3c26b88bbf9af9f80258d20c Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 9 Apr 2016 00:57:26 +0000 Subject: 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 --- t/filter.t | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 't') diff --git a/t/filter.t b/t/filter.t index 80a7c123..609a1929 100644 --- 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'; -- cgit v1.2.3-24-ge0c7