* riece-commands.el (riece-command-kick): Fix completing-read

collection argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef996eb..53dbc71 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * riece-commands.el (riece-command-kick): Fix completing-read
+       collection argument.
+
 2003-10-05  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-000.el: Require 'riece-commands.

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 3e3c614..55c0f23 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -189,8 +189,11 @@ the layout to the selected layout-name."
        (error "Not on a channel"))
      (list (completing-read
            "User: "
-           (mapcar #'list (riece-channel-get-users
-                           riece-current-channel)))
+           (mapcar #'list
+                   (riece-with-server-buffer
+                       (riece-identity-server riece-current-channel)
+                     (riece-channel-get-users
+                      (riece-identity-prefix riece-current-channel)))))
           (if current-prefix-arg
               (read-string "Message: ")))))
   (riece-send-string