From 35ae3f775b13e18c889c9d6093d1711680672bca Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Thu, 22 Nov 2001 03:04:10 -0800
Subject: [PATCH] [project @ 2001-11-22 03:04:10 by doogie] Some fixes to the
 X-Loop handling, and Reply-To setting.

---
 scripts/process.in | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/scripts/process.in b/scripts/process.in
index aecbb2ed..5e8e46ab 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.40 2001/11/22 02:59:16 doogie Exp $
+# $Id: process.in,v 1.41 2001/11/22 03:04:10 doogie Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -52,7 +52,6 @@ print DEBUG "###\n",join("##\n",@msg),"\n###\n";
 
 chop($tdate= `date -u '+%a, %d %h %Y %T GMT'`);
 $fwd= <<END;
-X-Loop: $gMaintainerEmail
 Received: via spool by $baddress\@$gEmailDomain id=$nn
           (code $codeletter ref $tryref); $tdate
 END
@@ -747,7 +746,7 @@ Message-ID: <handler.$ref.$nn.ackinfo\@$gEmailDomain>
 In-Reply-To: $header{'message-id'}
 References: $header{'message-id'}
 X-$gProject-PR-Message: ack-info $ref
-Reply-To: $ref\@$gEmailDomain
+Disabled-Doogie-Reply-To: $ref\@$gEmailDomain
 
 Thank you for the additional information you have supplied regarding
 this problem report.  It has been forwarded to the developer(s) and
@@ -816,10 +815,10 @@ sub get_addresses {
    		map { Mail::Address->parse($_) } @_;
 }
 
-
 sub sendmessage {
     local ($msg,@recips) = @_;
     if ($recips[0] eq '' && $#recips == 0) { @recips= ('-t'); }
+    $msg = "X-Loop: $gMaintainerEmail\n" . $msg;
 
     my $hash = get_hashname($ref);
     #save email to the log
-- 
2.39.5