Fixed some Aliasing problems.

[spider.git] / cmd / read.pl

diff --git a/cmd/read.pl b/cmd/read.pl
index 1845b4d1516720ddf97951871791aa216dcd49de..0056530a26e40a99b7d1872f992f6907f26974c8 100644 (file)
--- a/cmd/read.pl
+++ b/cmd/read.pl
@@ -17,7 +17,7 @@ my $ref;
 # that I haven't read yet
 if (@f == 0) {
        foreach $ref (DXMsg::get_all()) {
-               if ($ref->to eq $self->call && $ref->private && !$ref->read) {
+               if ($ref->to eq $self->call && $ref->private && !$ref->read && !$ref->delete) {
                        push @f, $ref->msgno;
                        last;
                }