# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1612963570 -7200
# Node ID a1efc28ef5a4ce9dc57ebe495c0372cad9e3a495
# Parent  47b15186373f6b50ad92123c8c8107c57ce2eccb
tj: Require #-prefix for ids in 'delete' command.

diff -r 47b15186373f -r a1efc28ef5a4 tj.tcl
--- a/tj.tcl	Wed Feb 10 15:25:31 2021 +0200
+++ b/tj.tcl	Wed Feb 10 15:26:10 2021 +0200
@@ -402,8 +402,8 @@
     }
 
   } elseif {[tj_cmd_match "delete" $rcmd]} {
-    # !tj delete <id>
-    if {![utl_arg_get $rarglist rindex uid 0]} {
+    # !tj delete #<id>
+    if {![utl_arg_get $rarglist rindex rarg 0] || ![tj_get_id $rarg rindex uid]} {
       tj_msg $upublic $unick $uchan "help_delete"
       return 1
     }