From: ueno <ueno>
Date: Fri, 5 Mar 2004 07:51:19 +0000 (+0000)
Subject: * riece-unread.el (riece-unread-after-display-message-function):
X-Git-Tag: signal-slot-mergepoint~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d2e69003a7e9d0a3d4ed2dab1625b9d4a59133db;p=elisp%2Friece.git

* 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
--- 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
--- 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
--- 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)