(concat (riece-concat-channel-modes
channel "Mode (? for help)") ": ")
nil riece-minibuffer-map))))
- (riece-send-string (format "MODE %s :%s\r\n" (riece-identity-prefix channel)
- change)))
+ (if (equal change "")
+ (riece-send-string (format "MODE %s\r\n"
+ (riece-identity-prefix channel)))
+ (riece-send-string (format "MODE %s :%s\r\n"
+ (riece-identity-prefix channel)
+ change))))
(defun riece-command-set-operators (users &optional arg)
(interactive
(defun riece-command-send-message (message notice)
"Send MESSAGE to the current channel."
+ (run-hooks 'riece-command-send-message-hook)
(if (equal message "")
(error "No text to send"))
(riece-check-channel-commands-are-usable)
(display-completion-list all))
(delete-region (point) (- (point) (length current)))
(insert completion))))))
-
+
(defun riece-command-open-server (server-name)
(interactive
(list (completing-read "Open server: " riece-server-alist)))