[popfile-commit] engine/Classifier MailParse.pm,1.227,1.228

[naoki i. <am...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25614/Classifier

Modified Files:
	MailParse.pm 
Log Message:
Fixed a bug that some e-mail addresses were not treated as e-mail address.

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.227
retrieving revision 1.228
diff -C2 -d -r1.227 -r1.228
*** MailParse.pm	12 Aug 2007 13:27:34 -0000	1.227
--- MailParse.pm	6 Sep 2007 16:59:12 -0000	1.228
***************
*** 621,625 ****
              # with <> and have an @ in them
  
!             while ( $line =~ s/(mailto:)?([[:alpha:]0-9\-_\.]+?@([[:alpha:]0-9\-_\.]+\.[[:alpha:]0-9\-_]+))([\"\&\)\?\:\/ >\&\;])// )  {
                  update_word($self, $2, $encoded, ($1?$1:''), '[\&\?\:\/ >\&\;]', $prefix);
                  add_url($self, $3, $encoded, '\@', '[\&\?\:\/]', $prefix);
--- 621,625 ----
              # with <> and have an @ in them
  
!             while ( $line =~ s/(mailto:)?([[:alpha:]0-9\-_\.]+?@([[:alpha:]0-9\-_\.]+\.[[:alpha:]0-9\-_]+))([\"\&\)\?\:\/ >\&\;]|$)// )  {
                  update_word($self, $2, $encoded, ($1?$1:''), '[\&\?\:\/ >\&\;]', $prefix);
                  add_url($self, $3, $encoded, '\@', '[\&\?\:\/]', $prefix);