[popfile-commit] engine/Classifier MailParse.pm, 1.216.4.8, 1.216.4.9

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

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

Modified Files:
      Tag: b0_22_2
	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.216.4.8
retrieving revision 1.216.4.9
diff -C2 -d -r1.216.4.8 -r1.216.4.9
*** MailParse.pm	12 Aug 2007 13:24:33 -0000	1.216.4.8
--- MailParse.pm	6 Sep 2007 16:18:58 -0000	1.216.4.9
***************
*** 604,608 ****
              # Pull out any email addresses in the line that are marked 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);
--- 604,608 ----
              # Pull out any email addresses in the line that are marked 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);