From 8e7cfccfb5a77d7d89f4d0d1303ba63db0cfa31e Mon Sep 17 00:00:00 2001 From: fukachan Date: Wed, 5 Mar 2003 16:10:27 +0000 Subject: do not show List-Help: unless $use_command_mail_program specified. XXX this idea is based on kataoka@osaka.iij.ad.jp. XXX but the lack of List-Help is o.k. ??? (see rfc ...) --- fml/lib/FML/Header.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'fml/lib/FML/Header.pm') diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index eaab92e3..224a405c 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Header.pm,v 1.51 2002/12/20 03:37:17 fukachan Exp $ +# $FML: Header.pm,v 1.52 2003/01/25 11:44:04 fukachan Exp $ # package FML::Header; @@ -318,6 +318,7 @@ sub add_rfc2369 my $post = $config->{ address_for_post }; my $command = $config->{ address_for_command }; my $maintainer = $config->{ maintainer }; + my $use_command_mail_program = $config->yes('use_command_mail_program'); # information for list-id my $ml_name = $config->{ ml_name }; @@ -329,7 +330,7 @@ sub add_rfc2369 $msg->attr('List-ID' => $id) if $id; $msg->attr('List-Post' => "") if $post; $msg->attr('List-Owner' => "") if $maintainer; - if ($command) { + if ($command && $use_command_mail_program) { $msg->attr('List-Help' => ""); $msg->attr('List-Subscribe' => ""); @@ -342,7 +343,7 @@ sub add_rfc2369 $header->add('List-Post', "") if $post; $header->add('List-Owner', "") if $maintainer; - if ($command) { + if ($command && $use_command_mail_program) { $header->add('List-Help', ""); $header->add('List-Subscribe', ""); -- cgit v1.2.1