Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv5007
Modified Files:
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.120
retrieving revision 1.121
diff -C2 -d -r1.120 -r1.121
*** Bayes.pm 7 Apr 2003 17:55:44 -0000 1.120
--- Bayes.pm 8 Apr 2003 04:20:10 -0000 1.121
***************
*** 758,761 ****
--- 758,766 ----
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;
|
