lib/PublicInbox/NNTP.pm | 7 +++++++ diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm index 142bee391d2b24ef8be2679df1ebec58decfc22e..127603942e6fafc233a852e3671e9b6c4dd091c0 100644 --- a/lib/PublicInbox/NNTP.pm +++ b/lib/PublicInbox/NNTP.pm @@ -25,6 +25,8 @@ sub now () { clock_gettime(CLOCK_MONOTONIC) }; my @OVERVIEW = qw(Subject From Date Message-ID References Bytes Lines); my $OVERVIEW_FMT = join(":\r\n", @OVERVIEW) . ":\r\n"; +my $LIST_HEADERS = join("\r\n", qw(Subject From Date Message-ID References + :bytes :lines Xref To Cc)) . "\r\n"; # disable commands with easy DoS potential: # LISTGROUP could get pretty bad, too... @@ -93,6 +95,11 @@ sub list_overview_fmt ($) { my ($self) = @_; do_more($self, $OVERVIEW_FMT); +} + +sub list_headers ($;$) { + my ($self) = @_; + do_more($self, $LIST_HEADERS); } sub list_active ($;$) {