diff options
| author | tmu <tmu> | 2011-08-25 10:43:25 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2011-08-25 10:43:25 +0000 |
| commit | a8fb701d815825ed21a310d08f1a84e3a628f077 (patch) | |
| tree | a1c3372bb409c8a8e39acb45b199f0a063a39a33 /fml/lib/Mail/Message | |
| parent | d5fa9cb31f8db9a13738e74572d733e0901c3a12 (diff) | |
| download | fml8-a8fb701d815825ed21a310d08f1a84e3a628f077.tar.gz fml8-a8fb701d815825ed21a310d08f1a84e3a628f077.tar.bz2 fml8-a8fb701d815825ed21a310d08f1a84e3a628f077.zip | |
bugfix quoted-printable pattern at decode_mime_utf8_to_euc()
Diffstat (limited to 'fml/lib/Mail/Message')
| -rw-r--r-- | fml/lib/Mail/Message/Encode.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message/Encode.pm b/fml/lib/Mail/Message/Encode.pm index 02288f82..43acaa59 100644 --- a/fml/lib/Mail/Message/Encode.pm +++ b/fml/lib/Mail/Message/Encode.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Encode.pm,v 1.23 2011/08/24 22:49:44 tmu Exp $ +# $FML: Encode.pm,v 1.24 2011/08/25 00:39:58 fukachan Exp $ # package Mail::Message::Encode; @@ -638,7 +638,7 @@ sub decode_mime_utf8_to_euc $str = $self->raw_decode_base64($str); } elsif ($1 =~ /Q/i) { - $str =~ s/=\?utf-8\?q\?([A-Fa-f0-9=]+)\?=/$1/gi; + $str =~ s/=\?utf-8\?q\?([\x20-\x7e\t]+?)\?=/$1/gi; $str = $self->raw_decode_qp($str); } } |