~rgrjr/rgrjr-scripts

94b88b7c65bd4c6253ffd81607ed26dc5c643ab0 — Bob Rogers 1 year, 9 months ago 439f1c8
Add --verbose reporting for "List-ID:" delivery.

* email/qmail-deliver.pl:
   + (find_list_qmail_file):  Add some --verbose reporting.
1 files changed, 8 insertions(+), 3 deletions(-)

M email/qmail-deliver.pl
M email/qmail-deliver.pl => email/qmail-deliver.pl +8 -3
@@ 302,7 302,6 @@ sub find_list_qmail_file {
    # for example.
    my ($head) = @_;

    warn "find_list_qmail_file";
    my $list_id_head = $head->get('list-id')
	or return;
    chomp($list_id_head);


@@ 322,8 321,14 @@ sub find_list_qmail_file {
    warn "have list_id '$list_id'"
	if $verbose_p > 1;
    my $qmail_file = ".qmail-list-$list_id";
    return $qmail_file
	if -r $qmail_file;
    if (-r $qmail_file) {
	warn "$tag:  Mail from list '$list_id', using '$qmail_file'\n"
	    if $verbose_p;
	return $qmail_file;
    }
    elsif ($verbose_p) {
	warn "$tag:  Mail from list '$list_id', but no '$qmail_file'\n";
    }
}

sub address_forged_p {