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
# 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.
# 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)) {
like($s->as_string, qr/scrubbed/, "scrubbed message");
}
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';
# multi-part with application/octet-stream
{
my $os = 'application/octet-stream';