* riece-unread.el (riece-unread-after-display-message-function):

Emit 'riece-unread-channel-list-update signal.
(riece-unread-insinuate): Connect the signal to the function which
updates channel-list buffer.

* riece-display.el (riece-display-connect-signals): Fix parenthesis.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cabf5c..0b96b60 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2004-03-05  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-unread.el (riece-unread-after-display-message-function):
+       Emit 'riece-unread-channel-list-update signal.
+       (riece-unread-insinuate): Connect the signal to the function which
+       updates channel-list buffer.
+
+       * riece-display.el (riece-display-connect-signals): Fix parenthesis.
+
 2004-03-04  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-display.el (riece-emit-signal): Fixed bug that errors

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 1bb584f..f07e405 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -179,10 +179,10 @@ This function is for internal use only."
   (riece-connect-signal
    'riece-naming-assert-part
    (lambda (signal handback)
-     (riece-part-channel (nth 1 (riece-signal-args signal)))
+     (riece-part-channel (nth 1 (riece-signal-args signal))))
    (lambda (signal)
      (riece-identity-equal (car (riece-signal-args signal))
-                          (riece-current-nickname)))))
+                          (riece-current-nickname))))
   (riece-connect-signal
    'riece-naming-assert-rename
    (lambda (signal handback)

diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index a460662..e8c826a 100644 (file)
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -67,7 +67,8 @@
              (riece-identity-member (riece-message-target message)
                                     riece-unread-channels))
     (setq riece-unread-channels
-         (cons (riece-message-target message) riece-unread-channels))))
+         (cons (riece-message-target message) riece-unread-channels))
+    (riece-emit-signal 'riece-unread-channel-list-update)))
 
 (defun riece-unread-after-switch-to-channel-function (last)
   (setq riece-unread-channels
@@ -126,7 +127,12 @@
 ;;;  (if (memq 'riece-guess riece-addons)
 ;;;      (add-hook 'riece-guess-channel-try-functions
 ;;;            'riece-guess-channel-from-unread))
-  )
+  (riece-connect-signal
+   'riece-unread-channel-list-update
+   (lambda (signal handback)
+     (save-excursion
+       (set-buffer riece-channel-list-buffer)
+       (run-hooks 'riece-update-buffer-functions)))))
 
 (provide 'riece-unread)