Mail::Address->parse->name fails with UTF-8 qp.

Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2025-01-10 17:02:13 +01:00
parent a46201004c
commit 1a57eb600f

View file

@ -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}++;