Bug 413672: email_in.pl incorrectly rejects quoted charsets - Patch by Frédéric Buclin <LpSolit@gmail.com> r/a=mkanat

git-svn-id: svn://10.0.0.236/trunk@244047 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
lpsolit%gmail.com 2008-01-26 10:42:58 +00:00
parent dc17d9e9c2
commit 8b2ddfdf33

View File

@ -294,7 +294,8 @@ sub get_text_alternative {
foreach my $part (@parts) {
my $ct = $part->content_type || 'text/plain';
my $charset = 'iso-8859-1';
if ($ct =~ /charset=([^;]+)/) {
# The charset may be quoted.
if ($ct =~ /charset="?([^;"]+)/) {
$charset= $1;
}
debug_print("Part Content-Type: $ct", 2);