* riece-display.el (riece-update-buffers): Check existence each

[riece] / lisp / riece-display.el

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index c9f5b3c..f5f3f76 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -383,9 +383,10 @@ Local to the buffer in `riece-buffer-list'.")
   (unless buffers
     (setq buffers riece-buffer-list))
   (while buffers
-    (save-excursion
-      (set-buffer (car buffers))
-      (run-hooks 'riece-update-buffer-functions))
+    (if (buffer-live-p (car buffers))
+       (save-excursion
+         (set-buffer (car buffers))
+         (run-hooks 'riece-update-buffer-functions)))
     (setq buffers (cdr buffers)))
   (run-hooks 'riece-update-indicator-functions)
   (force-mode-line-update t)