-
-# RFC2919 and RFC2369
-sub set_list_headers {
- my ($simple, $dst) = @_;
- my $pa = "<$dst->{-primary_address}>";
- $simple->header_set("List-Id", $pa);
- $simple->header_set("List-Post", $pa);
-
- my $url = $dst->{url};
- if (defined $url) {
- $simple->header_set("List-Archive", "<$url>");
- $simple->header_set("List-Help", "<${url}help>");
- }
-}