[ Ed Jordan writes: ]
>
> --- bin/approve.orig Tue Feb 25 10:45:57 1997
> +++ bin/approve Fri Feb 28 13:32:10 1997
[...]
> @@ -106,20 +106,25 @@
> $reply_to = $_;
> $reply_to =~ tr/A-Z/a-z/;
> next;
> - }
> - if (/^subject:/i) {
> + } elsif (/^from:/i) {
> + s/^\S*:\s+//;
> + $from = $_;
> + $from =~ tr/A-Z/a-z/;
> + next;
> + } elsif (/^subject:/i) {
> s/^\S*:\s+//;
> $subject = $_;
> $subject =~ tr/A-Z/a-z/;
> ($request, $list) = split(/\s/, $subject, 2);
> $list =~ s/:.*//;
> next;
> - }
> - if (/^$/) {
> + } elsif (/^$/) {
> last;
> }
> }
>
> + $reply_to = $from unless defined($reply_to); # seems reasonable
> +
> # we've read the headers, so we should know now if this is an "APPROVE"
> # or a "BOUNCE" that we're processing.
>
This patch will break approve. Bounce messages, as sent by resend, don't
contain a Reply-To: header but do contain a From: header referring to
the list owner. Approve resolves this by using the list name from the
.majordomo file when $reply_to is undefined. This patch would set the
$reply_to variable from the From: header and mail the approval back to
the list owner instead of the list.
--
Dave Wolfe
Follow-Ups:
|
|
