Index: ossp-pkg/petidomo/petidomo-approve
RCS File: /v/ossp/cvs/ossp-pkg/petidomo/petidomo-approve,v
rcsdiff -q -kk '-r1.1' '-r1.2' -u '/v/ossp/cvs/ossp-pkg/petidomo/petidomo-approve,v' 2>/dev/null
--- petidomo-approve	2001/01/18 15:31:30	1.1
+++ petidomo-approve	2002/01/13 09:25:23	1.2
@@ -59,6 +59,7 @@
     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";