From 59258c3dfd868e912f318bb821a54541a8bc89bb Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sat, 20 Nov 2010 17:21:32 -0500
Subject: [PATCH] Fixed value.

---
 remove-spam-high-confidence-maildir.plx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/remove-spam-high-confidence-maildir.plx b/remove-spam-high-confidence-maildir.plx
index 34cb781..ac77c74 100644
--- a/remove-spam-high-confidence-maildir.plx
+++ b/remove-spam-high-confidence-maildir.plx
@@ -51,11 +51,11 @@ foreach my $dir (@msgDirs) {
 
     my %dspamVal;
     foreach my $val ('Confidence', 'Probability') {
-      foreach my $dv (@{$fields{"X-DSPAM-$val"}}) {
+      foreach my $dv (@{$fields->{"X-DSPAM-$val"}}) {
         if (not defined $dspamVal{$val}) {
           $dspamVal{$val} = $dv;
         } else {
-          $dspamVal = $dv if $dv < $dspamVal{$val};
+          $dspamVal{$val} = $dv if $dv < $dspamVal{$val};
         }
       }
       if (not defined $dspamVal{$val}) {