Mail::Address->parse->name fails with UTF-8 qp.
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
parent
a46201004c
commit
1a57eb600f
|
@ -415,7 +415,7 @@ sub poster {
|
||||||
if (length($name) > $posterrawlgth) { $posterrawlgth = length($name); };
|
if (length($name) > $posterrawlgth) { $posterrawlgth = length($name); };
|
||||||
if (defined($from)) {
|
if (defined($from)) {
|
||||||
# Postings pro Poster (nach From:)
|
# Postings pro Poster (nach From:)
|
||||||
$name = &mime_decode($from->name);
|
$name = &mime_decode($from->phrase);
|
||||||
};
|
};
|
||||||
#D print "::>> $name\n";
|
#D print "::>> $name\n";
|
||||||
$poster{$name}++;
|
$poster{$name}++;
|
||||||
|
|
Loading…
Reference in a new issue