From: Blars Blarson <blarson@uvula>
Date: Sun, 9 Sep 2007 09:22:42 +0000 (-0700)
Subject: fix spamscan-sa
X-Git-Tag: release/2.6.0~513^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c8e9db316a302946a20cdcb0c16679490c714e06;p=debbugs.git

fix spamscan-sa
---

diff --git a/scripts/spamscan-sa b/scripts/spamscan-sa
index 3dd5f19e..02d6ae52 100755
--- a/scripts/spamscan-sa
+++ b/scripts/spamscan-sa
@@ -101,13 +101,10 @@ while (my $id = <STDIN>) {
 	    $out .= "  spam $score\n";
 	    $nseen = $score;
 	} else {
+	    my ($before, $received, $after) = $headers =~
+		/(^.*?)(^Received\: \(at .*?\n)(.*$)/ms;
 	    open OUT, "> incoming/I$id" or die "open incoming/I$id: $!";
-	    my ($received, $from, $other_headers) =
-		split(/\n/, $headers, 3);
-	    if ($recevied =~ /^From /) {
-		($received, $from) = ($from, $received);
-	    }
-	    print OUT "$received\n$from\n$other_headers"
+	    print OUT $received . $before . $after
 		or die "print incoming/I$id: $!";
 	    if ($ca_score > 1) {
 		print OUT "X-CrossAssassin-Score: $ca_score\n"