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, "") . "?=";
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
