X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-commands.el;fp=lisp%2Friece-commands.el;h=427fd3ce9950bced1a0b31d87e70564719c0726d;hp=a6bdb9e082f8a2cbf699e44f1d4c7f975353796b;hb=121d7db14de4553c6537186951a76ba686e0886c;hpb=56475180ed59aeb1502e58423d2b8d490c017188

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index a6bdb9e..427fd3c 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -237,20 +237,18 @@ the layout to the selected layout-name."
 (defun riece-command-kick-with-ban (user pattern &optional message)
   (interactive
    (let ((completion-ignore-case t)
-	 users)
+	 user)
      (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))
+       (setq user (completing-read
+		   (riece-mcat "Kick user: ")
+		   (riece-channel-get-users (riece-identity-prefix
+					     riece-current-channel))))
        (list
-	(completing-read (riece-mcat "Kick user: ") users)
-	(completing-read (riece-mcat "Ban pattern: ")
-			 (mapcar
-			  (lambda (user)
-			    (list (concat (car user) "!"
-					  (riece-user-get-user-at-host
-					   (car user)))))
-			  users))
+	user
+	(read-from-minibuffer
+	 (riece-mcat "Ban pattern: ")
+	 (concat user "!" (riece-user-get-user-at-host user)))
 	(if current-prefix-arg
 	    (read-string "Message: "))))))
   (riece-send-string (format "MODE %s :+b %s\r\n"