Bug #44709 for Email-MIME-Encodings: quoted-printable encoding does not correctly encode emails that already have CRLF lines

I have attached a patch that should fix this. It hasn't been tested, but I did something similar for Bugzilla, tested it, and it worked there. I did check if this compiles, and it does.

--- Encodings.pm 2009-03-31 18:59:38.000000000 -0700 +++ Encodings.pm.new 2009-03-31 19:10:19.000000000 -0700 @@ -23,7 +23,22 @@ require Carp; Carp::croak("Don't know how to $which $how"); } - $sub->($what); + # RFC2822 requires all email lines to end in CRLF. The Quoted-Printable + # RFC requires CRLF to not be encoded, in emails. The only way to achieve + # this with MIME::QuotedPrint is to replace all CRLFs with just LF and + # then let MIME::QuotedPrint replace all LFs with CRLF. Otherwise + # MIME::QuotedPrint (by default) encodes CR as =0D, which is against RFCs + # and breaks MUAs (such as Thunderbird). + # + # We don't modify data before Base64 encoding it because that is usually + # binary data and modifying it at all is a bad idea. We do however specify + # that the encoder should end lines with CRLF (since that's the email + # standard). + my $eol = "\015\012"; + if ($how eq 'qp') { + $what =~ s/$eol/\012/sg; + } + $sub->($what, $eol); } sub decode { return codec("decode", @_) }