* 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 3436926..0e31a64 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -354,6 +354,7 @@ the layout to the selected layout-name."
 
 (defun riece-command-send-message (message notice)
   "Send MESSAGE to the current channel."
 
 (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)
   (if (equal message "")
       (error "No text to send"))
   (riece-check-channel-commands-are-usable)