{
my ($string) = @_;
+ # this is craptacular, but leading space is hacked off by unmime.
+ # Save it.
+ my $leading_space = '';
+ $leading_space = $1 if $string =~ s/^(\s+)//;
# unmime calls the default MIME::WordDecoder handler set up at
# initialization time.
- return MIME::WordDecoder::unmime($string);
+ return $leading_space . MIME::WordDecoder::unmime($string);
}
=head2 encode_rfc1522
- Make file locking portable (closes: #293277)
- Allow the package pages to be optional (closes: #234362)
- Fix package link code and link both packages (closes: #419553)
+ - Save leading space when we unmime (closes: #416321)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100
# -*- mode: cperl;-*-
# $Id: 01_mime.t,v 1.1 2005/08/17 21:46:17 don Exp $
-use Test::More tests => 4;
+use Test::More tests => 5;
use warnings;
use strict;
Döñ Ärḿßtrøñĝ <don@donarmstrong.com>
END
+my $test_str2 = <<'END';
+ Döñ Ärḿßtrøñĝ <don@donarmstrong.com>
+END
# 1: test decode
ok(Debbugs::MIME::decode_rfc1522(q(=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= <don@donarmstrong.com>)) eq
# 2: test encode
ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522($test_str)) eq $test_str,
"encode_rfc1522 encodes strings that decode_rfc1522 can decode");
+ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522($test_str2)) eq $test_str2,
+ "encode_rfc1522 encodes strings that decode_rfc1522 can decode");
+
# Make sure that create_mime_message has encoded headers and doesn't enclude any 8-bit characters