[popfile-commit] engine/Classifier MailParse.pm,1.139,1.140

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

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv17829/Classifier

Modified Files:
	MailParse.pm 
Log Message:
Restored test suite to working order and fix bug where wrong Date header was being picked up in quarantined headers; all tests now pass

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.139
retrieving revision 1.140
diff -C2 -d -r1.139 -r1.140
*** MailParse.pm	25 Jun 2003 15:37:45 -0000	1.139
--- MailParse.pm	26 Jun 2003 14:09:00 -0000	1.140
***************
*** 1374,1378 ****
      }
  
!     $self->{date__} = $argument if ( $header =~ /^Date/i );
  
      # Look for MIME
--- 1374,1378 ----
      }
  
!     $self->{date__} = $argument if ( $header =~ /^Date$/i );
  
      # Look for MIME