mega-merge of major parts of mojo

[spider.git] / cmd / reply.pl

diff --git a/cmd/reply.pl b/cmd/reply.pl
index 82da8f6bfc201ce071881336c516f1bd18e10886..22f04b85bd98d9570318a4f861566c0f0887768e 100644 (file)
--- a/cmd/reply.pl
+++ b/cmd/reply.pl
@@ -14,7 +14,7 @@
 # 
 # Copyright (c) Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my ($self, $line) = @_;
 my @out;
@@ -67,7 +67,7 @@ if ($self->state eq "prompt") {
                @extra = ();
        } 
 
-       return (1, $self->msg('e28')) unless $self->registered || $to eq $main::myalias;
+       return (1, $self->msg('e28')) unless $self->isregistered || $to eq $main::myalias;
        
        $loc->{to} = [ $to, @extra ];       # to is an array
        $loc->{subject} = $oref->subject;