+(defun riece-ctcp-completing-read-identity ()
+ (riece-completing-read-identity
+ "Channel/User: "
+ (let ((server-name (riece-current-server-name)))
+ (append (mapcar
+ (lambda (user)
+ (riece-make-identity user server-name))
+ (riece-get-users-on-server))
+ riece-current-channels))))
+