Support re-insinuate.

[riece] / lisp / riece-button.el

diff --git a/lisp/riece-button.el b/lisp/riece-button.el
index 9d85a14..f53fb09 100644 (file)
--- a/lisp/riece-button.el
+++ b/lisp/riece-button.el
@@ -247,26 +247,26 @@ This function is used as a callback for a channel button."
        (riece-make-identity-button-map)))
 
 (defun riece-button-insinuate ()
-  (add-hook 'riece-channel-list-mode-hook
-           'riece-button-channel-list-mode-hook)
-  (add-hook 'riece-user-list-mode-hook
-           'riece-button-user-list-mode-hook)
-  (add-hook 'riece-dialogue-mode-hook
-           'riece-button-dialogue-mode-hook)
   (save-excursion
     (when riece-channel-list-buffer
       (set-buffer riece-channel-list-buffer)
-      (riece-button-channel-list-mode-hook))
+      (riece-channel-list-mode-hook)
     (when riece-user-list-buffer
       (set-buffer riece-user-list-buffer)
-      (riece-button-user-list-mode-hook))
+      (riece-user-list-mode-hook)
     (let ((buffers riece-buffer-list))
       (while buffers
        (set-buffer (car buffers))
        (if (eq (derived-mode-class major-mode)
                'riece-dialogue-mode)
-           (riece-button-dialogue-mode-hook))
+           (riece-dialogue-mode-hook))
        (setq buffers (cdr buffers)))))
+  (add-hook 'riece-channel-list-mode-hook
+           'riece-button-channel-list-mode-hook)
+  (add-hook 'riece-user-list-mode-hook
+           'riece-button-user-list-mode-hook)
+  (add-hook 'riece-dialogue-mode-hook
+           'riece-button-dialogue-mode-hook)
   (add-hook 'riece-after-insert-functions 'riece-button-add-identity-button))
 
 (defun riece-button-uninstall ()