From: cjwatson <>
Date: Wed, 26 Mar 2003 04:13:11 +0000 (-0800)
Subject: [project @ 2003-03-25 20:13:11 by cjwatson]
X-Git-Tag: release/2.6.0~941
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8b5cdfbc0f0fbb50c2862d998eb8e447d610a013;p=debbugs.git

[project @ 2003-03-25 20:13:11 by cjwatson]
Exit silently if a mail loop is detected, rather than spamming
$gMaintainerEmail with "looping detected" messages and leaving droppings
all over the incoming queue. These are rather frequent due to Reply-To:
headers pointing back to the bug.
---

diff --git a/scripts/process.in b/scripts/process.in
index a1aa8c21..c5c86148 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.59 2003/01/28 23:52:08 cjwatson Exp $
+# $Id: process.in,v 1.60 2003/03/25 20:13:11 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -97,8 +97,7 @@ if ($entity and $entity->head->tags) {
 for my $hdr (@headerlines) {
     $_ = $hdr;
     s/\n\s/ /g;
-    &quit("looping detected")
-	if m/^x-loop: (\S+)$/i && $1 eq "$gMaintainerEmail";
+    &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;
     $fwd .= $hdr."\n" if $ins;