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
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
					@ -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…
	
	Add table
		Add a link
		
	
		Reference in a new issue