Jenda Krynicky wrote:
Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote:
op wrote:
when it comes to character encodings I decided to let myself off
the hook and use a module, namely MIME::QuotedPrint.
<snip>
However, the module didn't quite produce the result I expected. It
correctly encoded the non-ASCII characters to '=<1byte_hexcode>', but
unexpectedly also added an extra '=\n' sequence to the end of the
string I was encoding.
Not quite. Without further arguments to encode_qp() it splits up long
lines with "=\n" in between. I haven't noticed any "=\n" at the end of
the encoded string, though.
You said that yourself ... without further arguments ...
I have made a similar experience, and my "hack" is even more complicated:
$encoded = join "\n ",
map { tr/ /_/; "=?ISO-8859-15?Q?$_?=" }
split /\s*=\n\s*/, $encoded;
When sending a long subject header via a sendmail pipe, that code makes
at least my email client (Thunderbird) happy...
so I do not understand why don't you use
"=?ISO-8859-15?Q?" . encode_qp($raw_data, "") . "?=";
Actually I have done that, too. But I fear that very long subject lines
might mess up the message, so making use of the "=\n" that
MIME::QuotedPrint generates seems like a good idea.
Maybe I'm wrong...
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
