diff options
| author | fukachan <fukachan> | 2001-01-27 01:36:14 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-27 01:36:14 +0000 |
| commit | 1063d7d4e52b6142d7c9a7c8d0e4c50049c9ba25 (patch) | |
| tree | 44176c0eb5e0534d661f7685b8f33f4b41fb3d47 | |
| parent | bf1d95a899de9fcf71bd45082a9de19ffef1fe7f (diff) | |
| download | fml8-1063d7d4e52b6142d7c9a7c8d0e4c50049c9ba25.tar.gz fml8-1063d7d4e52b6142d7c9a7c8d0e4c50049c9ba25.tar.bz2 fml8-1063d7d4e52b6142d7c9a7c8d0e4c50049c9ba25.zip | |
add list-{help,subscribe,unsubscribe} following rfc2369
| -rw-r--r-- | fml/lib/FML/Header.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index d6ef9a5f..5c889d6a 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.pm @@ -100,9 +100,16 @@ sub add_rfc2369 my $command = $config->{ address_for_command }; my $maintainer = $config->{ maintainer }; - # RFC2369 + # See RFC2369 for more details $header->add('List-Post', "<mailto:${post}>") if $post; $header->add('List-Owner', "<mailto:${maintainer}>") if $maintainer; + + if ($command) { + $header->add('List-Help', "<mailto:${command}?body=help>"); + $header->add('List-Subscribe', "<mailto:${command}?body=subscribe>"); + $header->add('List-UnSubscribe', + "<mailto:${command}?body=unsubscribe>"); + } } |