From c00b12b037fbb5403011f8cdfe9c3e80aded82a8 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 11 Aug 2011 07:58:17 -0400
Subject: [PATCH] A few fixes.

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

diff --git a/remove-spam-high-confidence-maildir.plx b/remove-spam-high-confidence-maildir.plx
index e13f9bc..a756fd4 100644
--- a/remove-spam-high-confidence-maildir.plx
+++ b/remove-spam-high-confidence-maildir.plx
@@ -61,20 +61,20 @@ MAIL: foreach my $dir (@msgDirs) {
       if (not defined $mailDate) {
         $mailDate = $dt;
       } else {
-        $mailDate = $dt if $dt lt $maileDate;
+        $mailDate = $dt if $dt lt $mailDate;
       }
     }
     if (not defined $mailDate) {
       print STDERR "File $file has no Date: header. Skipping.\n";
       next MAIL;
     }
-    $parsedDate = ParseDate($mailDate);
-    unless (defined $parseDate) {
+    my $parsedDate = ParseDate($mailDate);
+    unless (defined $parsedDate) {
       print STDERR "File $file has Unparsable Date header $mailDate";
       next MAIL;
     }
 
-    next MAIL if ($parseDate gt $nDaysAgo);
+    next MAIL if ($parsedDate gt $nDaysAgo);
 
     my %dspamVal;
     foreach my $val ('Confidence', 'Probability') {