X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-display.el;h=6dcec6a90520e3c7bcdd82a8b7125891f2ab2b5c;hb=40d9a9643c84389185388dd7d2526cf261b12eff;hp=8ddf882d1c876f7cc0f7b5d9e0d02ee4747644b5;hpb=dcf10219a521b36065e8a100b69d762fc54388bd;p=elisp%2Friece.git

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 8ddf882..6dcec6a 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -85,8 +85,7 @@
 		  (put-text-property point (point) 'riece-identity
 				     (car channels))))
 	    (setq index (1+ index)
-		  channels (cdr channels))))
-	(setq riece-channel-list-changed nil))))
+		  channels (cdr channels)))))))
 
 (defun riece-update-channel-indicator ()
   (setq riece-channel-indicator
@@ -158,6 +157,7 @@
       (setq riece-channel-buffer (get-buffer (riece-channel-buffer-name
 					      riece-current-channel))))
   (run-hooks 'riece-update-buffer-functions)
+  (setq riece-channel-list-changed nil)
   (force-mode-line-update t))
 
 (defun riece-channel-buffer-name (identity)