diff options
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; |