From: Debian BTS <debbugs@rietz>
Date: Tue, 12 Feb 2008 08:25:15 +0000 (+0000)
Subject: merge changes from dla source
X-Git-Tag: release/2.6.0~507
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c47c7ab5de82f51708c36c68f304f97bc60910f5;hp=2d6af013498f46a09e2cfdc092ce2b76eea7dad2;p=debbugs.git

merge changes from dla source
---

diff --git a/scripts/spamscan-sa b/scripts/spamscan-sa
index 3dd5f19..02d6ae5 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"