avoid rejection by MTA because of forwarding loop

2002-01-13 09:25:23 +00:00 · 2002-01-13 09:25:23 +00:00 · 44371378ba
commit 44371378ba
parent 878d7af037
1 changed files with 1 additions and 0 deletions
--- a/1
+++ b/1
@ -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";