mda: set List-ID correctly according to RFC2919

Oops, due to an old mistake , List-ID was set incorrectly
in the MDA.  This could cause some breakage w.r.t. mail filters.

1 files changed, 3 insertions, 1 deletions

diff --git a/t/nntpd.t b/t/nntpd.t
index ad50a64f..2ccc90fb 100644
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -62,7 +62,9 @@ Content-Transfer-Encoding: 8bit
 
 This is a test message for El\xc3\xa9anor
 EOF
-                $mime->header_set('List-Id', "<$addr>");
+                my $list_id = $addr;
+                $list_id =~ s/@/./;
+                $mime->header_set('List-Id', "<$list_id>");
                 $len = length($mime->as_string);
                 my $git = PublicInbox::Git->new($maindir);
                 my $im = PublicInbox::Import->new($git, 'test', $addr);