[popfile-commit] engine traintest.pl,1.4,1.5

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

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

Modified Files:
	traintest.pl 
Log Message:
update to allow training on fewer groupings

Index: traintest.pl
===================================================================
RCS file: /cvsroot/popfile/engine/traintest.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** traintest.pl	12 Apr 2003 07:20:50 -0000	1.4
--- traintest.pl	29 May 2003 05:49:42 -0000	1.5
***************
*** 358,361 ****
--- 358,363 ----
          $bucket_class = $b->classify_file( $self->{messages}->{messages}{ @sorted_messages[$index] }{long});
          $bucket_true = $self->{messages}->{messages}{ @sorted_messages[$index] }{bucket};
+         
+         $b->{parser__}->{subject__} =~ s/(\r\n|\n|\r)[ \t]+//gm;
  
           if ($bucket_class ne $bucket_true) {