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