From: ueno <ueno>
Date: Sat, 14 Jan 2006 12:58:25 +0000 (+0000)
Subject: * riece-display.el (riece-part-channel): Emit
X-Git-Tag: riece-3_0_0~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aad0ffa5b6f4be5c83f03f0cf0b8c8f568e196b7;p=elisp%2Friece.git

* riece-display.el (riece-part-channel): Emit
'channel-list-changed signal.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a680706..01bb04c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-14  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-display.el (riece-part-channel): Emit
+	'channel-list-changed signal.
+
 2005-12-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-alias.el (riece-alias-alternate-separator): Reverted the
diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index be7952f..fbead8b 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -483,10 +483,12 @@ Local to the buffer in `riece-buffer-list'.")
 
 (defun riece-part-channel (identity)
   (let ((pointer (riece-identity-member identity riece-current-channels)))
-    (if pointer
-	(setcar pointer nil))
+    (unless pointer
+      (error "No such channel!"))
+    (setcar pointer nil)
     (if (riece-identity-equal identity riece-current-channel)
-	(riece-switch-to-nearest-channel pointer))
+	(riece-switch-to-nearest-channel pointer)
+      (riece-emit-signal 'channel-list-changed))
     (funcall riece-buffer-dispose-function (riece-channel-buffer identity))))
 
 (defun riece-redisplay-buffers (&optional force)