drop Mail-Followup-To, Mail-Reply-To, and Reply-To

Due to the higher latency of a pull-based email, we want to
encourage the use of reply-to-all for public-inbox.

1 files changed, 20 insertions, 0 deletions

diff --git a/t/filter.t b/t/filter.t
index 9c71b11f..12f4ed6f 100644
--- a/t/filter.t
+++ b/t/filter.t
@@ -259,4 +259,24 @@ sub count_body_parts {
         like($f->simple->as_string, qr/scrubbed/, "scrubbed message");
 }
 
+{
+        my $s = Email::Simple->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");
+        my $f = Email::Filter->new(data => $s->as_string);
+        is(1, PublicInbox::Filter->run($f->simple), "run succeeded for mft");
+        is(undef, $f->simple->header("Mail-Followup-To"), "mft stripped");
+}
+
+
 done_testing();