[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin PerMsgStatus.pm,1.351,1.352

Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory sc8-pr-cvs1:/tmp/cvs-serv7301/lib/Mail/SpamAssassin

Modified Files:
        PerMsgStatus.pm 
Log Message:
bug 2473: AWL score was undefined, producing failures with _TESTSSCORES_
header tag


Index: PerMsgStatus.pm
===================================================================
RCS file: 
/cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/PerMsgStatus.pm,v
retrieving revision 1.351
retrieving revision 1.352
diff -b -w -u -d -r1.351 -r1.352
--- PerMsgStatus.pm     15 Sep 2003 03:02:15 -0000      1.351
+++ PerMsgStatus.pm     19 Sep 2003 00:55:02 -0000      1.352
@@ -2068,6 +2068,11 @@
         $whitelist->add_score($self->{hits});
       }
 
+      # current AWL score changes with each hit
+      for my $set (0..3) {
+       $self->{conf}->{scoreset}->[$set]->{"AWL"} = sprintf("%0.3f", $delta);
+      }
+
       if($delta != 0) {
           $self->_handle_hit("AWL",$delta,"AWL: ","Auto-whitelist adjustment");
       }
@@ -2329,8 +2334,8 @@
     # Bayesian auto-learning
     if ($tflags =~ /\b(?:learn|userconf)\b/i) {
       $self->{learned_hits} += $score;
-
-    } else {
+    }
+    else {
       $self->{hits} += $score;
       if (!$self->{conf}->maybe_header_only ($rule)) {
        $self->{body_only_hits} += $score;
@@ -2345,7 +2350,8 @@
 
     if ($score >= 10 || $score <= -10) {
       $score = sprintf("%4.0f", $score);
-    } else {
+    }
+    else {
       $score = sprintf("%4.1f", $score);
     }
 



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf