change the placing of adding PC9x headers

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 76bfa9314926046d12ed18a00a3221746f497b82..2d2b5deff1560759dc0b9c13be685e52ab30fdb4 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -552,7 +552,10 @@ sub prompt
        if ($self->{prompt}) {
                $self->send($self->{prompt});
        } else {
-               $self->send($self->msg($self->here ? 'pr' : 'pr2', $self->call, cldate($main::systime), ztime($main::systime)));
+               my $prkey = $self->here ? 'pr' : 'pr2';
+               my $mail = DXMsg::for_me($self->call) ? $self->msg('newmail') : "";
+               
+               $self->send($self->msg($prkey, $self->call, cldate($main::systime), ztime($main::systime), $mail));
        }
 }