ossp-pkg/petidomo/petidomo-approve 1.1 -> 1.2
--- 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";
|
|
