lib/PublicInbox/MDA.pm | 13 +++---------- diff --git a/lib/PublicInbox/MDA.pm b/lib/PublicInbox/MDA.pm index d2ce79eb210fe62b52160ab5ad0b08178e98d4a6..6a984b81cfecf82108436f2a3decf358a55d4aa9 100644 --- a/lib/PublicInbox/MDA.pm +++ b/lib/PublicInbox/MDA.pm @@ -58,21 +58,14 @@ } return 0; } -# RFC2919 and RFC2369 +# RFC2919 sub set_list_headers { my ($class, $simple, $dst) = @_; - my $pa = "<$dst->{-primary_address}>"; - $simple->header_set("List-Id", $pa); - $simple->header_set("List-Post", $pa); + my $pa = $dst->{-primary_address}; + $simple->header_set("List-Id", "<$pa>"); # prevent training loops $simple->header_set('Delivered-To'); - - my $url = $dst->{url}; - if (defined $url) { - $simple->header_set("List-Archive", "<$url>"); - $simple->header_set("List-Help", "<${url}help>"); - } } # returns a 3-element array: name, email, date