Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv18366/Classifier
Modified Files:
MailParse.pm
Log Message:
Tests for get_header, first20 and quickmagnets; fix bug in quickmagnets handling of the from address
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.151
retrieving revision 1.152
diff -C2 -d -r1.151 -r1.152
*** MailParse.pm 26 Jul 2003 21:17:18 -0000 1.151
--- MailParse.pm 26 Jul 2003 21:46:59 -0000 1.152
***************
*** 1421,1425 ****
$self->{from__} = $argument if ( $self->{from__} eq '' ) ;
$prefix = 'from';
- push @{$self->{quickmagnets__}{$prefix}}, $argument if ($argument ne '');
}
--- 1421,1424 ----
***************
*** 1530,1533 ****
--- 1529,1533 ----
{
my ($line, $encoding) = @_;
+
$line =~ s/([^\r\n]{100,120} )/$1\r\n/g;
$line =~ s/([^ \r\n]{120})/$1\r\n/g;
|
