From 3a9d1f325921469b4b38133dfe51c8084f855240 Mon Sep 17 00:00:00 2001 From: cjwatson <> Date: Sat, 5 Apr 2003 00:10:17 -0800 Subject: [PATCH] [project @ 2003-04-05 00:10:17 by cjwatson] Stop stripping Received: headers from incoming mail. --- scripts/process.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/process.in b/scripts/process.in index eb6d7966..9babc0b7 100755 --- 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*//) { -- 2.39.5