From 12e76ea1c19d8c77cffcb0921c49a477f4a0e11f Mon Sep 17 00:00:00 2001
From: tmu <tmu>
Date: Fri, 18 Apr 2003 14:37:47 +0000
Subject: _header_mime_boundary() boundary detect no quote string case

---
 fml/lib/Mail/Message.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
     }
-- 
cgit v1.2.1