[project @ 2003-04-05 00:10:17 by cjwatson]

Stop stripping Received: headers from incoming mail.

diff --git a/scripts/process.in b/scripts/process.in
index eb6d79668a06e512e06a213c81a796ac3f6fe16d..9babc0b76f47d88f83990bf604ab8e6ae69fa6b3 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.63 2003/03/28 00:24:50 cjwatson Exp $
+# $Id: process.in,v 1.64 2003/04/05 00:10:17 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -99,7 +99,7 @@ for my $hdr (@headerlines) {
     s/\n\s/ /g;
     &finish if m/^x-loop: (\S+)$/i && $1 eq "$gMaintainerEmail";
     my $ins = !m/^subject:/i && !m/^reply-to:/i && !m/^return-path:/i
-           && !m/^From / && !m/^X-Debbugs-CC:/i && !m/^received:/i;
+           && !m/^From / && !m/^X-Debbugs-CC:/i;
     $fwd .= $hdr."\n" if $ins;
     # print DEBUG ">$_<\n";
     if (s/^(\S+):\s*//) {