From b9d6ae0d8aa0c6459bf6cccb8604ce4ff31bf66b Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Tue, 7 Oct 2003 10:09:44 +0000 Subject: [PATCH 1/1] * riece-commands.el (riece-command-kick): Fix completing-read collection argument. --- lisp/ChangeLog | 5 +++++ lisp/riece-commands.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * riece-commands.el (riece-command-kick): Fix completing-read + collection argument. + 2003-10-05 Daiki Ueno * 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 -- 2.25.1