X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-display.el;h=fbead8bdafe20288f3f9bc7cffb179acd1d22a01;hp=be7952f8c6e91e9424b50631342a3f49821107a6;hb=b51c9730dc2297168743bd6a79b9b359017610e3;hpb=41f70b5a0e3fdc63c54bb5ce34c024b0d4d625d5

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)