my $rfcs = [
3977 => 'NNTP',
977 => 'NNTP (old)',
+ 1036 => 'Standard for Interchange of USENET Messages',
+ 5536 => 'Netnews Article Format',
+ 5537 => 'Netnews Architecture and Protocols',
6048 => 'NNTP additions to LIST command (TODO)',
8054 => 'NNTP compression',
4642 => 'NNTP TLS',
$hdr->header_set('X-Alt-Message-ID', @alt);
}
- # clobber some
+ # clobber some existing headers
my $ibx = $smsg->{-ibx};
my $xref = xref($smsg->{nntp}, $ibx, $smsg->{num}, $mid);
$hdr->header_set('Xref', $xref);
- $xref =~ s/:[0-9]+//g;
- $hdr->header_set('Newsgroups', (split(/ /, $xref, 2))[1]);
+
+ # RFC 5536 3.1.4
+ my $newsgroups = (split(/ /, $xref, 2))[1]; # drop server name
+ $newsgroups =~ s/:[0-9]+\b//g; # drop NNTP article numbers
+ $newsgroups =~ tr/ /,/;
+ $hdr->header_set('Newsgroups', $newsgroups);
+
header_append($hdr, 'List-Post', "<mailto:$ibx->{-primary_address}>");
if (my $url = $ibx->base_url) {
$mid = mid_escape($mid);