diff options
Diffstat (limited to 'fml')
| -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>"); |