diff options
author | Eric Wong <e@80x24.org> | 2014-05-08 02:19:00 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-05-08 02:19:00 +0000 |
commit | 8dc8b69c617550dc1a352861aee1eeca979c8317 (patch) | |
tree | 14aaee682a9eca4fe9826f558e988087b271cc57 /lib/PublicInbox/MDA.pm | |
parent | 2a86eb680a03d3b57e8f376a8ccf2e77006c4f8a (diff) | |
download | public-inbox-8dc8b69c617550dc1a352861aee1eeca979c8317.tar.gz |
That should be use down stream by delivery agents.
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 |