PyukiWiki CVS Commit
pyuki****@lists*****
2012年 2月 27日 (月) 06:52:04 JST
Index: PyukiWiki-Devel-UTF8/build/mail.regex diff -u PyukiWiki-Devel-UTF8/build/mail.regex:1.8 PyukiWiki-Devel-UTF8/build/mail.regex:1.9 --- PyukiWiki-Devel-UTF8/build/mail.regex:1.8 Mon Feb 27 06:46:50 2012 +++ PyukiWiki-Devel-UTF8/build/mail.regex Mon Feb 27 06:52:04 2012 @@ -1,5 +1,5 @@ ################################################################## -# $Id: mail.regex,v 1.8 2012/02/26 21:46:50 papu Exp $ +# $Id: mail.regex,v 1.9 2012/02/26 21:52:04 papu Exp $ ################################################################## # http://www.din.or.jp/~ohzaki/mail_regex.htm ################################################################## @@ -576,8 +576,8 @@ my $quoted_pair = qq{(?:\\\\(?:$VCHAR|$WSP))}; -# my $atext = qq{[A-Za-z0-9!#\$%&'*+\\-/=?^_`{|}~]}; -my $atext = qq{[-!#-'*+/-9=?A-Z^-~]}; +my $atext = qq{[A-Za-z0-9!#\$%&'*+\\-/=?^_`{|}~]}; +#my $atext = qq{[-!#-'*+/-9=?A-Z^-~]}; my $dot_atom_text = qq{(?:$atext+(?:\\.$atext+)*)}; my $dot_atom = $dot_atom_text;