X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=lib%2FPublicInbox%2FMDA.pm;h=6490102aaf8b3d52e6bcd680380a66507688fe82;hp=bcf5358bb6e6d7cd9e450e8f9c32c1db58f03ae1;hb=23d896234f3eb5e579de2e8ddf3c723654862ade;hpb=dfdaf74a2ab6d694315d8f636e3771a7a7934f3f

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;