about summary refs log tree commit homepage
path: root/lib/PublicInbox/MDA.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2014-05-08 02:19:00 +0000
committerEric Wong <e@80x24.org>2014-05-08 02:19:00 +0000
commit8dc8b69c617550dc1a352861aee1eeca979c8317 (patch)
tree14aaee682a9eca4fe9826f558e988087b271cc57 /lib/PublicInbox/MDA.pm
parent2a86eb680a03d3b57e8f376a8ccf2e77006c4f8a (diff)
downloadpublic-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.pm13
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