[popfile-commit] engine/Classifier Bayes.pm,1.107.2.1,1.107.2.2

[<ssc...@us...>]

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

Modified Files:
      Tag: v0/18/1
	Bayes.pm 
Log Message:
fixes bug 701981, removes lines in headers consisting of only whitespace (eudora has trouble with them)
Thanks to esniper for the patch

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.107.2.1
retrieving revision 1.107.2.2
diff -C2 -d -r1.107.2.1 -r1.107.2.2
*** Bayes.pm	7 Apr 2003 20:20:15 -0000	1.107.2.1
--- Bayes.pm	8 Apr 2003 04:23:19 -0000	1.107.2.2
***************
*** 809,812 ****
--- 809,817 ----
  
          if ( $getting_headers )  {
+ 
+             # Kill header lines containing only whitespace (Exim does this)
+ 
+             next if ( $line =~ /^[ \t]+(\r\n|\r|\n)$/i ); 
+ 
              if ( !( $line =~ /^(\r\n|\r|\n)$/i ) )  {
                  $message_size += length $line;