* riece-commands.el (riece-command-send-message): Run

[riece] / lisp / riece-commands.el

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 76b0e30..0e31a64 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -148,7 +148,8 @@ the layout to the selected layout-name."
    (let* ((completion-ignore-case t)
          (user (riece-completing-read-identity
                 "Finger user: "
-                (riece-get-users-on-server (riece-current-server-name)))))
+                (riece-get-users-on-server (riece-current-server-name))
+                nil nil nil nil nil t)))
      (list user current-prefix-arg)))
   (if recurse
       (riece-send-string (format "WHOIS %s %s\r\n"
@@ -179,7 +180,8 @@ the layout to the selected layout-name."
      (riece-check-channel-commands-are-usable t)
      (list (riece-completing-read-identity
            "Invite user: "
-           (riece-get-users-on-server (riece-current-server-name))))))
+           (riece-get-users-on-server (riece-current-server-name))
+           nil nil nil nil nil t))))
   (riece-send-string (format "INVITE %s %s\r\n"
                             (riece-identity-prefix user)
                             (riece-identity-prefix riece-current-channel))))
@@ -254,7 +256,8 @@ the layout to the selected layout-name."
           (if current-prefix-arg
               (riece-completing-read-identity
                "Change mode for channel/user: "
-               (riece-get-identities-on-server (riece-current-server-name)))
+               (riece-get-identities-on-server (riece-current-server-name))
+               nil nil nil nil nil t)
             (riece-check-channel-commands-are-usable t)
             riece-current-channel))
          (riece-overriding-server-name (riece-identity-server channel))
@@ -272,8 +275,12 @@ the layout to the selected layout-name."
            (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
@@ -347,6 +354,7 @@ the layout to the selected layout-name."
 
 (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)
@@ -393,7 +401,8 @@ the layout to the selected layout-name."
    (let ((completion-ignore-case t))
      (list (riece-completing-read-identity
            "Message to user: "
-           (riece-get-users-on-server (riece-current-server-name))))))
+           (riece-get-users-on-server (riece-current-server-name))
+           nil nil nil nil nil t))))
   (let ((text (buffer-substring
               (riece-line-beginning-position)
               (riece-line-end-position))))
@@ -656,7 +665,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
              (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)))