-# Copyright (C) 2013, Eric Wong <normalperson@yhbt.net> and all contributors
+# Copyright (C) 2013-2015 all contributors <meta@public-inbox.org>
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
use strict;
use warnings;
$bodies->{$body}++;
}
+# multipart/alternative: HTML and quoted-printable, keep the plain-text
+{
+ my $html_body = "<html><body>hi</body></html>";
+ my $parts = [
+ Email::MIME->create(
+ attributes => {
+ content_type => 'text/html; charset=UTF-8',
+ encoding => 'base64',
+ },
+ body => $html_body,
+ ),
+ Email::MIME->create(
+ attributes => {
+ content_type => 'text/plain',
+ encoding => 'quoted-printable',
+ },
+ body => 'hi = "bye"',
+ )
+ ];
+ my $email = Email::MIME->create(
+ header_str => [
+ From => 'a@example.com',
+ Subject => 'blah',
+ 'Content-Type' => 'multipart/alternative'
+ ],
+ parts => $parts,
+ );
+ is(1, PublicInbox::Filter->run($email), "run was a success");
+ my $parsed = Email::MIME->new($email->as_string);
+ is("text/plain", $parsed->header("Content-Type"));
+ is(scalar $parsed->parts, 1, "HTML part removed");
+ my %bodies;
+ $parsed->walk_parts(sub {
+ my ($part) = @_;
+ return if $part->subparts; # walk_parts already recurses
+ count_body_parts(\%bodies, $part);
+ });
+ is(scalar keys %bodies, 1, "one bodies");
+ is($bodies{"hi =3D \"bye\"="}, 1, "QP text part unchanged");
+ $parsed->walk_parts(sub {
+ my ($part) = @_;
+ my $b = $part->body;
+ $b =~ s/\s*\z//;
+ is($b, "hi = \"bye\"", "decoded body matches");
+ });
+}
+
# plain-text email is passed through unchanged
{
my $s = Email::MIME->create(
'Content-Type' => 'text/html',
Subject => 'HTML only badness',
],
- body => "<html><body>bad body</body></html>\n",
+ body => "<html><body>bad body\r\n</body></html>\n",
);
is(1, PublicInbox::Filter->run($s), "run was a success");
unlike($s->as_string, qr/<html>/, "HTML removed");
is("text/plain", $s->header("Content-Type"),
"content-type changed");
like($s->body, qr/\A\s*bad body\s*\z/, "body");
+ unlike($s->body, qr/\r/, "body has no cr");
like($s->header("X-Content-Filtered-By"),
qr/PublicInbox::Filter/, "XCFB header added");
}
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';