Bug #52085 for MIME-tools: Encoded header glued together in one string

On Fri Nov 27 12:17:10 2009, dfs@roaringpenguin.com wrote: Show quoted text
OK. Here is an example in attach. After encoding Subject field I get three encoded lines and when I stringify message I get single-line value, this is not correct.

#!/usr/bin/perl use strict; use warnings; use MIME::Entity; use MIME::Base64; use Encode qw/is_utf8/; my $subject = "Здравствуй мир! Здравствуй мир! Здравствуй мир! Здравствуй мир!"; my $from = 'Тест <dima@adriver.ru>'; my $to = 'Тест2 <testxml@adriver.ru>'; my $body = 'Тело письма'; my $charset = 'utf-8'; $subject = encode_mimeheader($subject, 'utf-8'); print "SUBJECT: '$subject'\n"; ### Create an entity: my $top = MIME::Entity->build( From => encode_mimeheader($from, $charset), To => encode_mimeheader($to, $charset), Subject => encode_mimeheader($subject, $charset), Charset => $charset, Type => "text/plain", Data => $body ); my $message = $top->stringify; print "MESSAGE: '$message'\n"; exit 0; sub encode_mimeheader { my ($string, $charset) = @_; # convert to byte string because encode_base64 do not accept utf8 (multibyte character) my $s = is_utf8($string) ? encode_utf8($string) : $string; my $result = encode_base64($s); $result =~ s/^(.*)$/=?$charset?B?$1?=/mg; return $result; }