From: kaoru <kaoru>
Date: Tue, 7 Oct 2003 10:09:44 +0000 (+0000)
Subject: * riece-commands.el (riece-command-kick): Fix completing-read
X-Git-Tag: riece-0_1_3~18
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=commitdiff_plain;h=1f9edb561fbaa49752e90070216e4415b55297d3

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef996eb..53dbc71 100644
--- 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
--- 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