about summary refs log tree commit homepage
path: root/lib/PublicInbox/MDA.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2017-06-26 03:05:39 +0000
committerEric Wong <e@80x24.org>2017-06-26 03:07:46 +0000
commit23d896234f3eb5e579de2e8ddf3c723654862ade (patch)
treefd7812a146f847bae43139ccceb1ee5e35dc72d9 /lib/PublicInbox/MDA.pm
parentdfdaf74a2ab6d694315d8f636e3771a7a7934f3f (diff)
downloadpublic-inbox-23d896234f3eb5e579de2e8ddf3c723654862ade.tar.gz
Oops, due to an old mistake , List-ID was set incorrectly
in the MDA.  This could cause some breakage w.r.t. mail filters.
Diffstat (limited to 'lib/PublicInbox/MDA.pm')
-rw-r--r--lib/PublicInbox/MDA.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/PublicInbox/MDA.pm b/lib/PublicInbox/MDA.pm
index bcf5358b..6490102a 100644
--- a/lib/PublicInbox/MDA.pm
+++ b/lib/PublicInbox/MDA.pm
@@ -78,7 +78,8 @@ sub set_list_headers {
         my ($class, $simple, $dst) = @_;
         unless (defined $simple->header('List-Id')) {
                 my $pa = $dst->{-primary_address};
-                $simple->header_set("List-Id", "<$pa>"); # RFC2919
+                $pa =~ tr/@/./; # RFC2919
+                $simple->header_set("List-Id", "<$pa>");
         }
 
         $simple->header_set($_) foreach @BAD_HEADERS;