[popfile-commit] engine/UI HTML.pm,1.186,1.187

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

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv23853/UI

Modified Files:
	HTML.pm 
Log Message:
More tests for Bayes covering the reading and writing of history class files and other miscellanea

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.186
retrieving revision 1.187
diff -C2 -d -r1.186 -r1.187
*** HTML.pm	27 Jul 2003 15:42:42 -0000	1.186
--- HTML.pm	27 Jul 2003 19:07:20 -0000	1.187
***************
*** 2588,2595 ****
      my ( $self, $file, $index ) = @_;
  
!     # Find the class information for this file using the history_load_class helper
      # function, and then parse the MSG file for the From and Subject information
  
!     my ( $reclassified, $bucket, $usedtobe, $magnet ) = $self->{classifier__}->history_load_class( $file );
      my $from    = '';
      my $subject = '';
--- 2588,2595 ----
      my ( $self, $file, $index ) = @_;
  
!     # Find the class information for this file using the history_read_class helper
      # function, and then parse the MSG file for the From and Subject information
  
!     my ( $reclassified, $bucket, $usedtobe, $magnet ) = $self->{classifier__}->history_read_class( $file );
      my $from    = '';
      my $subject = '';
***************
*** 2841,2845 ****
              # Get the current classification for this message
  
!             my ( $reclassified, $bucket, $usedtobe, $magnet) = $self->{classifier__}->history_load_class( $mail_file );
  
              # Only reclassify messages that haven't been reclassified before
--- 2841,2845 ----
              # Get the current classification for this message
  
!             my ( $reclassified, $bucket, $usedtobe, $magnet) = $self->{classifier__}->history_read_class( $mail_file );
  
              # Only reclassify messages that haven't been reclassified before
***************
*** 2913,2917 ****
              # Load the class file
  
!             my ( $reclassified, $bucket, $usedtobe, $magnet ) = $self->{classifier__}->history_load_class( $mail_file );
  
              # Only undo if the message has been classified...
--- 2913,2917 ----
              # Load the class file
  
!             my ( $reclassified, $bucket, $usedtobe, $magnet ) = $self->{classifier__}->history_read_class( $mail_file );
  
              # Only undo if the message has been classified...
***************
*** 3757,3761 ****
          mkdir( $path );
  
!         my ($reclassified, $bucket, $usedtobe, $magnet) = $self->{classifier__}->history_load_class( $mail_file );
  
          if ( ( $bucket ne 'unclassified' ) && ( $bucket ne 'unknown class' ) ) {
--- 3757,3761 ----
          mkdir( $path );
  
!         my ($reclassified, $bucket, $usedtobe, $magnet) = $self->{classifier__}->history_read_class( $mail_file );
  
          if ( ( $bucket ne 'unclassified' ) && ( $bucket ne 'unknown class' ) ) {