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 ) {
|
