From: ueno <ueno>
Date: Sun, 19 Aug 2007 06:32:04 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-5_0_0~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e34db1743681c2a565d7145bfb36f45f071abb02;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 64f0275..a6bdb9e 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -236,13 +236,14 @@ the layout to the selected layout-name."
 
 (defun riece-command-kick-with-ban (user pattern &optional message)
   (interactive
-   (let ((completion-ignore-case t))
+   (let ((completion-ignore-case t)
+	 users)
      (riece-check-channel-commands-are-usable t)
      (riece-with-server-buffer (riece-identity-server riece-current-channel)
+       (setq users (riece-channel-get-users (riece-identity-prefix
+					     riece-current-channel))
        (list
-	(completing-read (riece-mcat "Kick user: ")
-			 (riece-channel-get-users (riece-identity-prefix
-						   riece-current-channel)))
+	(completing-read (riece-mcat "Kick user: ") users)
 	(completing-read (riece-mcat "Ban pattern: ")
 			 (mapcar
 			  (lambda (user)