lib/PublicInbox/NNTP.pm | 5 +++-- t/nntpd.t | 6 ++++++ diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm index 0d2bc4f33d8b46f471e12b8fcaf3d17074bf4533..800ce9265268eec77b240acfee66ecb82c74ca99 100644 --- a/lib/PublicInbox/NNTP.pm +++ b/lib/PublicInbox/NNTP.pm @@ -29,8 +29,9 @@ }; use PublicInbox::Syscall qw(EPOLLIN EPOLLONESHOT); use Errno qw(EAGAIN); -my @OVERVIEW = qw(Subject From Date Message-ID References Xref); -my $OVERVIEW_FMT = join(":\r\n", @OVERVIEW, qw(Bytes Lines)) . ":\r\n"; +my @OVERVIEW = qw(Subject From Date Message-ID References); +my $OVERVIEW_FMT = join(":\r\n", @OVERVIEW, qw(Bytes Lines), '') . + "Xref:full\r\n"; my $LIST_HEADERS = join("\r\n", @OVERVIEW, qw(:bytes :lines Xref To Cc)) . "\r\n"; my $CAPABILITIES = <<""; diff --git a/t/nntpd.t b/t/nntpd.t index e264fa6b5abbbfe255291b22670cc6952fdb3d94..bebecc6920d947939f644bae675123fcd1b3f4c3 100644 --- a/t/nntpd.t +++ b/t/nntpd.t @@ -101,6 +101,12 @@ is_deeply($list, { $group => [ qw(1 1 n) ] }, 'LIST works'); is_deeply([$n->group($group)], [ qw(0 1 1), $group ], 'GROUP works'); is_deeply($n->listgroup($group), [1], 'listgroup OK'); + { + my $expect = [ qw(Subject: From: Date: Message-ID: + References: Bytes: Lines: Xref:full) ]; + is_deeply($n->overview_fmt, $expect, + 'RFC3977 8.4.2 compliant LIST OVERVIEW.FMT'); + } SKIP: { $n->can('starttls') or skip('Net::NNTP too old to support STARTTLS', 2);