[popfile-commit] engine/Classifier Bayes.pm,1.132,1.133

[<jgr...@us...>]

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

Modified Files:
	Bayes.pm 
Log Message:
Make quarantined messages have MIME-Version header and closing MIME boundary

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.132
retrieving revision 1.133
diff -C2 -d -r1.132 -r1.133
*** Bayes.pm	20 Apr 2003 21:12:33 -0000	1.132
--- Bayes.pm	20 Apr 2003 23:34:06 -0000	1.133
***************
*** 933,936 ****
--- 933,937 ----
                  print $client "X-Text-Classification: $classification$eol" if ( $self->global_config_( 'xtc' ) );
                  print $client 'X-POPFile-Link: ' . $xpl if ( $self->global_config_( 'xpl' ) );
+                 print $client "MIME-Version: 1.0$eol";
                  print $client "Content-Type: multipart/report; boundary=\"$temp_file\"$eol$eol--$temp_file$eol";
                  print $client "Content-Type: text/plain$eol$eol";
***************
*** 956,959 ****
--- 957,966 ----
          $self->echo_to_dot_( $mail, $client ) if ( !$nosave );
      } else {
+         if ( $classification ne 'unclassified' ) {
+             if ( $self->{parameters__}{$classification}{quarantine} == 1 ) {
+                 print $client "$eol--$temp_file$eol";
+ 	    }
+         }
+ 
          print $client ".$eol" if ( !$nosave );
      }