Fixed list command.

[lurk.git] / lurk.el

diff --git a/lurk.el b/lurk.el
index 96b93ae..1043775 100644 (file)
--- a/lurk.el
+++ b/lurk.el
@@ -782,10 +782,10 @@ portion of the source component of the message, as LURK doesn't use this.")
            (setq lurk-nick nick)
            (lurk-display-notice nil "Set default nick to '" nick "'")))
 
-        ((rx "LIST")
+        ((rx (: "LIST" (* whitespace) string-end))
          (lurk-display-notice nil "This command can generate lots of output. Use `LIST -yes' if you're sure."))
 
-        ((rx (: "LIST" (+ whitespace) "-YES"))
+        ((rx (: "LIST" (+ whitespace) "-YES" (* whitespace) string-end))
          (lurk-send-msg (lurk-msg nil nil "LIST")))
 
         ((rx "MSG "