diff options
| -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; } |