X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-display.el;h=2129482d8c909ae44dc7e6dc43ca4cad80547181;hb=4cc66f8d5b60ad2f889baebc5edc2c5a65a00d3f;hp=6745e2d8173d1180f640356a5c2d1f38c473427b;hpb=2d90baf2740afa6814432320aafa8846da323342;p=riece

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 6745e2d..2129482 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -474,7 +474,8 @@ Local to the buffer in `riece-buffer-list'.")
     (if pointer
 	(setcar pointer nil))
     (if (riece-identity-equal identity riece-current-channel)
-	(riece-switch-to-nearest-channel pointer))))
+	(riece-switch-to-nearest-channel pointer))
+    (funcall riece-buffer-dispose-function (riece-channel-buffer identity))))
 
 (defun riece-redisplay-buffers (&optional force)
   (riece-update-buffers)