fix console.pl max scroll depth

[spider.git] / cmd / msg.pl

diff --git a/cmd/msg.pl b/cmd/msg.pl
index a1a3df0616e21927a03ae85e0abe69078a2fdf96..ddca370380f41b90d4bcda9972c68e78e5fbc8d9 100644 (file)
--- a/cmd/msg.pl
+++ b/cmd/msg.pl
@@ -4,7 +4,7 @@
 #
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -89,6 +89,11 @@ if ($cmd =~ /^to/i) {
        $old = $ref->keep ? 'Keep' : 'No Keep';
     $new = 'No Keep';
     $ref->keep(0);
+} elsif ($cmd =~ /^node/i) {
+    $m = 'Delete';
+       $old = $ref->delete ? 'Delete' : 'Not Delete';
+    $new = 'Not Delete';
+    $ref->unmark_delete;
 } elsif ($cmd =~ /^su/i) {
     $m = 'Subject';
     $old = $ref->subject;