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);
|
