[popfile-commit] engine/Classifier Bayes.pm,1.147,1.148

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

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

Modified Files:
	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.147
retrieving revision 1.148
diff -C2 -d -r1.147 -r1.148
*** Bayes.pm	23 May 2003 14:58:12 -0000	1.147
--- Bayes.pm	3 Jun 2003 08:27:10 -0000	1.148
***************
*** 1020,1024 ****
  
      if ( $got_full_body == 0 )    {
!         $self->echo_to_dot_( $mail, $client ) if ( $echo );
      } else {
          if ( $classification ne 'unclassified' ) {
--- 1020,1028 ----
  
      if ( $got_full_body == 0 )    {
!          if ( $echo ) {
!             $self->echo_to_dot_( $mail, $client );
!          } else {
!             $self->echo_to_dot_( $mail, undef );
!          }
      } else {
          if ( $classification ne 'unclassified' ) {
***************
*** 1457,1462 ****
          # Check for an abort
          last if ( $self->{alive_} == 0 );
! 
!         print $client $_;
  
          # The termination has to be a single line with exactly a dot on it and nothing
--- 1461,1466 ----
          # Check for an abort
          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