From dbd3a6c985a9fda6e462f86a453d948acf6e66ef Mon Sep 17 00:00:00 2001
From: don <>
Date: Fri, 22 Jul 2005 20:37:31 -0800
Subject: [PATCH] [project @ 2005-07-22 21:37:31 by don] * When the spam has
 already been detected, we should output    $mail->get_pristine as the
 $munged_mail is not defined yet.    DAMN YOU MISSING 'use strict;'!

---
 scripts/spamscan.in | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/scripts/spamscan.in b/scripts/spamscan.in
index 83363bfe..987778a5 100755
--- a/scripts/spamscan.in
+++ b/scripts/spamscan.in
@@ -1,5 +1,5 @@
 #! /usr/bin/perl -T
-# $Id: spamscan.in,v 1.9 2005/07/21 21:24:09 don Exp $
+# $Id: spamscan.in,v 1.10 2005/07/22 21:37:31 don Exp $
 #
 # Usage: spamscan
 #
@@ -130,9 +130,9 @@ for (;;) {
     my $ca_score = ca_set(ca_keys($mail->get_body));
     if (exists $spamseen{$messageid}) {
 	# XXX THIS DOES NOT DO LOCKING
-	open OUT, ">> $gSpamMailbox" or die "open $gSpamMailbox failed: $!";
-	print OUT $munged_mail or die "print $gSpamMailbox failed: $!";
-	close OUT  or die "close $gSpamMailbox failed: $!";
+	open  OUT, ">> $gSpamMailbox" or die "open $gSpamMailbox failed: $!";
+	print OUT $mail->get_pristine or die "print $gSpamMailbox failed: $!";
+	close OUT or die "close $gSpamMailbox failed: $!";
 	unlink "incoming/R$id" or warn "unlink incoming/R$id: $!";
 	print "  spam $spamseen{$messageid} duplicate\n"
 	    or die "printf log: $!";
-- 
2.39.5