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...
do_more($self, $OVERVIEW_FMT);
}
+sub list_headers ($;$) {
+ my ($self) = @_;
+ do_more($self, $LIST_HEADERS);
+}
+
sub list_active ($;$) {
my ($self, $wildmat) = @_;
wildmat2re($wildmat);