diff options
| author | lpsolit%gmail.com <> | 2008-01-26 16:41:13 +0000 |
|---|---|---|
| committer | lpsolit%gmail.com <> | 2008-01-26 16:41:13 +0000 |
| commit | 3e29f04a94902958827585b02591094de67dd36a (patch) | |
| tree | 5b327a202dd0fb7529b4a0b693972f487227af90 /email_in.pl | |
| parent | 494ba57b318a9e06fd7b9169b232846d71b2cd62 (diff) | |
| download | bugs-3e29f04a94902958827585b02591094de67dd36a.tar bugs-3e29f04a94902958827585b02591094de67dd36a.tar.gz bugs-3e29f04a94902958827585b02591094de67dd36a.tar.bz2 bugs-3e29f04a94902958827585b02591094de67dd36a.tar.xz bugs-3e29f04a94902958827585b02591094de67dd36a.zip | |
Bug 413672: email_in.pl incorrectly rejects quoted charsets - Patch by Frédéric Buclin <LpSolit@gmail.com> r/a=mkanat
Diffstat (limited to 'email_in.pl')
| -rw-r--r-- | email_in.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/email_in.pl b/email_in.pl index 02d00a3e2..ca7a29735 100644 --- a/email_in.pl +++ b/email_in.pl @@ -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); |