diff options
| author | tmu <tmu> | 2003-04-18 14:37:47 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2003-04-18 14:37:47 +0000 |
| commit | 12e76ea1c19d8c77cffcb0921c49a477f4a0e11f (patch) | |
| tree | a80ed357eb57f0173fc5e99b65414f3e2d9df0ad /fml/lib | |
| parent | 6a0c8bb8137f94ef7740d9f10a7efe5dd5c18f6c (diff) | |
| download | fml8-12e76ea1c19d8c77cffcb0921c49a477f4a0e11f.tar.gz fml8-12e76ea1c19d8c77cffcb0921c49a477f4a0e11f.tar.bz2 fml8-12e76ea1c19d8c77cffcb0921c49a477f4a0e11f.zip | |
_header_mime_boundary() boundary detect no quote string case
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index de181f50..424dd266 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.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: Message.pm,v 1.74 2003/02/09 12:31:46 fukachan Exp $ +# $FML: Message.pm,v 1.75 2003/02/13 11:02:09 fukachan Exp $ # package Mail::Message; @@ -733,6 +733,9 @@ sub _header_mime_boundary if (defined($m) && ($m =~ /boundary\s*=\s*\"(.*)\"/i)) { # case insensitive return $1; } + if (defined($m) && ($m =~ /boundary\s*=([^\s\(\)\<\>\@\,\;\:\\\"\/\[\]\?\=]+)/i)) { # case insensitive + return $1; + } else { undef; } |