From 8b77a917e35a222cb3efdaee28e41a60bf7bd1e0 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 24 May 1999 19:46:14 +0000 Subject: [PATCH] fixed problems with directory only listing privates for you --- cmd/directory.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cmd/directory.pl b/cmd/directory.pl index 9ddbb775..39131aaa 100644 --- a/cmd/directory.pl +++ b/cmd/directory.pl @@ -13,7 +13,8 @@ my $ref; my @out; my $f; my $n = 0; -my @all = grep {!($self->priv < 5 && $_->to ne $self->call && $_->from ne $self->call)} (DXMsg::get_all()); +my @all = grep {!$_->private || !($self->priv < 5 && $_->to ne $self->call && $_->from ne $self->call)} (DXMsg::get_all()); +return (1, $self->msg('e3', 'directory', $line)) unless @all; my $sel = 0; my $from = 0; my $to = $all[@all-1]->msgno; -- 2.43.0