--- Message.pm.orig 2005-09-14 15:38:43.000000000 +0200 +++ Message.pm 2005-09-14 15:40:30.000000000 +0200 @@ -45,7 +45,7 @@ my @hdr; while (1) { - if ($str =~ s/^([^ \t:]+)[ \t]*: ?(.*)\n?//) { + if ($str =~ s/^([^ \t\n:]+)[ \t]*: ?(.*)\n?//) { push(@hdr, $1, $2); $hdr[-1] =~ s/\r\z//; }