* riece-display.el (riece-update-buffers): Run

riece-update-buffer-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 126440d..e41aefd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-10-22  Daiki Ueno  <ueno@unixuser.org>
 
 2003-10-22  Daiki Ueno  <ueno@unixuser.org>
 

+       * riece-display.el (riece-update-buffers): Run
+       riece-update-buffer-hook.
+

        * riece-button.el (riece-user-button-finger): Pass an identity
        object instead of the prefix.
 
        * riece-button.el (riece-user-button-finger): Pass an identity
        object instead of the prefix.
 

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 44a1254..3101aa3 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -178,7 +178,8 @@ Local to the buffer in `riece-buffer-list'.")
       (run-hooks 'riece-update-buffer-functions))
     (setq buffers (cdr buffers)))
   (run-hooks 'riece-update-indicator-functions)
       (run-hooks 'riece-update-buffer-functions))
     (setq buffers (cdr buffers)))
   (run-hooks 'riece-update-indicator-functions)

-  (force-mode-line-update t))
+  (force-mode-line-update t)
+  (run-hooks 'riece-update-buffer-hook))

 
 (defun riece-channel-buffer-name (identity)
   (let ((channels (riece-identity-member identity riece-current-channels)))
 
 (defun riece-channel-buffer-name (identity)
   (let ((channels (riece-identity-member identity riece-current-channels)))