/nick command bugfix

[lurk.git] / lurk.el

diff --git a/lurk.el b/lurk.el
index bf8f254..52ee3b6 100644 (file)
--- a/lurk.el
+++ b/lurk.el
@@ -990,8 +990,8 @@ in which case they match anything.")
     (if new-nick
         (if (lurk-connected-p)
             (lurk-send-msg (lurk-msg nil nil "NICK" new-nick))
-          (setq lurk-nick nick)
-          (lurk-display-notice nil "Set default nick to '" nick "'."))
+          (setq lurk-nick new-nick)
+          (lurk-display-notice nil "Set default nick to '" lurk-nick "'."))
       (lurk-display-notice nil "Current nick: " lurk-nick))))
 
 (defun lurk-command-me (params)
@@ -1036,7 +1036,7 @@ in which case they match anything.")
 (defun lurk-command-users (params)
   (if lurk-current-context
       (progn
-        (lurk-display-notice lurk-current-context "Users in context:")
+        (lurk-display-notice lurk-current-context "Users in " lurk-current-context ":")
         (lurk-display-notice
          lurk-current-context
          (string-join (lurk-get-context-users lurk-current-context) " ")))
@@ -1180,8 +1180,6 @@ in which case they match anything.")
         (kbd "TAB") 'lurk-complete-input))
     map))
 
-(defvar lurk-mode-map)
-
 (define-derived-mode lurk-mode text-mode "lurk"
   "Major mode for LURK.")