From 44371378badd285849558fec7f75528cff8c8744 Mon Sep 17 00:00:00 2001
From: "Ralf S. Engelschall" <rse@engelschall.com>
Date: Sun, 13 Jan 2002 09:25:23 +0000
Subject: [PATCH] avoid rejection by MTA because of forwarding loop

---
 petidomo-approve | 1 +
 1 file changed, 1 insertion(+)

diff --git a/petidomo-approve b/petidomo-approve
index 42507cd..d719bcf 100755
--- a/petidomo-approve
+++ b/petidomo-approve
@@ -59,6 +59,7 @@ elsif ($mail =~ m|^Subject:\s+Petidomo:\s+BOUNCE|mi) {
     close(FP);
     $mail =~ s|^.+?\n\n||s;
     $mail =~ s|^.+?\n>?From .+?\n||s;
+    $mail =~ s|Delivered-To:\s*$list\s*\n||s;
     $mail = "Approved: $password\n" . $mail; # best
     #$mail =~ s|^(.+?\n\n)(.*)$|$1Approved $password\n$2|s; # not good
     open(SM, "|$sendmail $replyto") || die "cannot spawn $sendmail";