diff options
Diffstat (limited to 'lib/PublicInbox/MDA.pm')
| -rw-r--r-- | lib/PublicInbox/MDA.pm | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/lib/PublicInbox/MDA.pm b/lib/PublicInbox/MDA.pm index d2ce79eb..6a984b81 100644 --- a/lib/PublicInbox/MDA.pm +++ b/lib/PublicInbox/MDA.pm @@ -58,21 +58,14 @@ sub alias_specified { 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 |