diff options
author | Eric Wong <e@80x24.org> | 2017-06-26 03:05:39 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2017-06-26 03:07:46 +0000 |
commit | 23d896234f3eb5e579de2e8ddf3c723654862ade (patch) | |
tree | fd7812a146f847bae43139ccceb1ee5e35dc72d9 /lib | |
parent | dfdaf74a2ab6d694315d8f636e3771a7a7934f3f (diff) | |
download | public-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')
-rw-r--r-- | lib/PublicInbox/MDA.pm | 3 |
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; |