[popfile-commit] engine/Classifier MailParse.pm,1.151,1.152

[<jgr...@us...>]

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;