+ user))
+ riece-current-channel))
+
+(defun riece-command-kick-with-ban (user pattern &optional message)
+ (interactive
+ (let ((completion-ignore-case t)
+ user)
+ (riece-check-channel-commands-are-usable t)
+ (riece-with-server-buffer (riece-identity-server riece-current-channel)
+ (setq user (completing-read
+ (riece-mcat "Kick user: ")
+ (riece-channel-get-users (riece-identity-prefix
+ riece-current-channel))))
+ (list
+ 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"
+ (riece-identity-prefix riece-current-channel)
+ pattern)
+ riece-current-channel)
+ (riece-send-string
+ (if message
+ (format "KICK %s %s :%s\r\n"
+ (riece-identity-prefix riece-current-channel)
+ user message)
+ (format "KICK %s %s\r\n"
+ (riece-identity-prefix riece-current-channel)
+ user))
+ riece-current-channel))