| Subject: | Mail::Header doesn't fold lines correctly |
If I have header lines like this:
To: "Steve Roberts" <strobert-foo@TRUELINK.com>,
"Steve Roberts (internet)" <strobert-bar@mail.truelink.com>,
"Test" <strobert-test@mail.truelink.com>,
"bugtest" <strobert-bugtest@mail.truelink.com>
1.58 code turns it into:
To: "Steve Roberts"
<strobert-foo@TRUELINK.com>,
"Steve Roberts (internet)"
<strobert-bar@mail.truelink.com>,
"Test"
<strobert-test@mail.truelink.com>,
"bugtest"
<strobert-bugtest@mail.truelink.com>
the attached patch "fixes" this.
while($_[0] =~ s/^\s*(
[^"]{$min,$max}?[\,\;]
|[^"]{1,$max}\s
- |[^\s"]*(?:"[^"]*"[^\s"]*)+\s
+ |[^\s"]*(?:"[^"]*"\s?[^\s"]*)+\s
|[^\s"]+\s
)
//x);
basically the first regex trying to split on ,; doesn't have a hit (since we would grab < min (59 in this case -- maxlength is the default: 79)).
I am not sure of how good/correct the fix is, but it is working for me.
Message body not shown because it is not plain text.