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;
|
