* riece-log.el (riece-log-flashback): Fixed custom spec.

[riece] / lisp / riece-display.el

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 6745e2d..2129482 100644 (file)
--- 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)
     (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)
 
 (defun riece-redisplay-buffers (&optional force)
   (riece-update-buffers)