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 (defined($from)) {
|
||||
# Postings pro Poster (nach From:)
|
||||
$name = &mime_decode($from->name);
|
||||
$name = &mime_decode($from->phrase);
|
||||
};
|
||||
#D print "::>> $name\n";
|
||||
$poster{$name}++;
|
||||
|
|
Loading…
Reference in a new issue