+# multipart collapsed to single quoted-printable text/plain
+{
+ my $parts = [
+ Email::MIME->create(
+ attributes => {
+ content_type => 'text/plain',
+ encoding => 'quoted-printable',
+ },
+ body => 'hi = bye',
+ )
+ ];
+ my $mime = Email::MIME->create(
+ header_str => [
+ From => 'qp@example.com',
+ Subject => 'QP',
+ 'Message-ID' => '<qp@example.com>',
+ ],
+ parts => $parts,
+ );
+
+ my $orig = $mime->body_raw;
+ my $html = PublicInbox::View::msg_html(undef, $mime);
+ like($orig, qr/hi =3D bye=/, "our test used QP correctly");
+ like($html, qr/\bhi = bye\b/, "HTML output decoded QP");
+}
+
+
+{ # XXX dirty hack
+ use PublicInbox::MID qw/mid_compress/;
+ like(mid_compress('foo%bar@wtf'), qr/\A[a-f0-9]{40}\z/,
+ "percent always converted to sha1 to workaround buggy httpds");
+ is(mid_compress('foobar@wtf'), 'foobar@wtf',
+ 'regular MID not compressed');
+}
+