popfile-commit

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

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

Modified Files:
      Tag: v0/18/1
	Bayes.pm 
Log Message:
consume long messages when toptoo is enabled

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.107.2.6
retrieving revision 1.107.2.7
diff -C2 -d -r1.107.2.6 -r1.107.2.7
*** Bayes.pm	25 May 2003 04:32:48 -0000	1.107.2.6
--- Bayes.pm	3 Jun 2003 08:39:18 -0000	1.107.2.7
***************
*** 963,970 ****
          print $client $msg_body;
  
!         if ( $got_full_body == 0 )    {
!             echo_to_dot( $self, $mail, $client );
!         } else {
!             print $client ".$eol";
          }
      }
--- 963,975 ----
          print $client $msg_body;
  
!         
!         print $client ".$eol";
!     }
! 
!     if ( $got_full_body == 0 )    {
!         if ($echo) {
!             $self->echo_to_dot( $mail, $client );
!         } else { 
!             $self->echo_to_dot( $mail, undef);
          }
      }
***************
*** 1001,1005 ****
          last if ( $self->{alive} == 0 );
  
!         print $client $_;
  
          # The termination has to be a single line with exactly a dot on it and nothing
--- 1006,1010 ----
          last if ( $self->{alive} == 0 );
  
!         print $client $_ if ( defined($client) );
  
          # The termination has to be a single line with exactly a dot on it and nothing