- (completing-read (riece-mcat "Kick user: ")
- (riece-channel-get-users (riece-identity-prefix
- riece-current-channel)))
- (completing-read (riece-mcat "Ban pattern: ")
- (mapcar
- (lambda (user)
- (list (concat (car user) "!"
- (riece-user-get-user-at-host
- (car user)))))
- users))