diff options
| author | fukachan <fukachan> | 2003-03-05 16:10:27 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-05 16:10:27 +0000 |
| commit | 8e7cfccfb5a77d7d89f4d0d1303ba63db0cfa31e (patch) | |
| tree | c53b2f3537828358eee37f5897073f1409526435 /fml/lib/FML/Header.pm | |
| parent | f7ccb117c2081c5301e2edaf173888a51f1b2cb3 (diff) | |
| download | fml8-8e7cfccfb5a77d7d89f4d0d1303ba63db0cfa31e.tar.gz fml8-8e7cfccfb5a77d7d89f4d0d1303ba63db0cfa31e.tar.bz2 fml8-8e7cfccfb5a77d7d89f4d0d1303ba63db0cfa31e.zip | |
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 ...)
Diffstat (limited to 'fml/lib/FML/Header.pm')
| -rw-r--r-- | fml/lib/FML/Header.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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' => "<mailto:${post}>") if $post; $msg->attr('List-Owner' => "<mailto:${maintainer}>") if $maintainer; - if ($command) { + if ($command && $use_command_mail_program) { $msg->attr('List-Help' => "<mailto:${command}?body=help>"); $msg->attr('List-Subscribe' => "<mailto:${command}?body=subscribe>"); @@ -342,7 +343,7 @@ sub add_rfc2369 $header->add('List-Post', "<mailto:${post}>") if $post; $header->add('List-Owner', "<mailto:${maintainer}>") if $maintainer; - if ($command) { + if ($command && $use_command_mail_program) { $header->add('List-Help', "<mailto:${command}?body=help>"); $header->add('List-Subscribe', "<mailto:${command}?body=subscribe>"); |