[popfile-commit] engine/Classifier Bayes.pm,1.107.2.7,1.107.2.8

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

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

Modified Files:
      Tag: v0/18/1
	Bayes.pm 
Log Message:
fix bug retrieving long messages

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.107.2.7
retrieving revision 1.107.2.8
diff -C2 -d -r1.107.2.7 -r1.107.2.8
*** Bayes.pm	3 Jun 2003 08:39:18 -0000	1.107.2.7
--- Bayes.pm	19 Jun 2003 01:36:06 -0000	1.107.2.8
***************
*** 764,767 ****
--- 764,769 ----
  
      $echo = 1 unless (defined $echo);
+     
+     Proxy::POP3::debug( $self,"\$dcount: $dcount, \$mcount: $mcount, \$nosave: $nosave, \$class: $class, \$echo: $echo ");
  
      my $msg_subject     = '';     # The message subject
***************
*** 885,888 ****
--- 887,892 ----
      # an email of that type
      $classification = ($class ne '')?$class:$self->classify_file($temp_file);
+     
+     Proxy::POP3::debug( $self, "classification: $classification size: $message_size");
  
      # Add the Subject line modification or the original line back again
***************
*** 961,968 ****
          print $client $msg_head_before;
          print $client $msg_head_after;
!         print $client $msg_body;
! 
!         
!         print $client ".$eol";
      }
  
--- 965,969 ----
          print $client $msg_head_before;
          print $client $msg_head_after;
!         print $client $msg_body;        
      }
  
***************
*** 973,977 ****
--- 974,981 ----
              $self->echo_to_dot( $mail, undef);
          }
+     } else {
+         print $client ".$eol" if ( $echo );
      }
+     
  
      if ( !$nosave ) {