X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fliece-channel.el;h=c484e79b7984e4a7b44fab79a4e5bebbbdfe75ff;hb=68cfeb2f178e722efa516b0ee6684f335f3cd428;hp=1a4efd9c556ede47231c9a0b295e6366ffb68f00;hpb=4eec6b256e648820abaa324930a2747464d588b5;p=elisp%2Fliece.git

diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el
index 1a4efd9..c484e79 100644
--- a/lisp/liece-channel.el
+++ b/lisp/liece-channel.el
@@ -379,10 +379,12 @@ If NOSW is non-nil do not switch to newly created channel."
 	  (setq liece-channels-indicator "No channel"))
       (setq liece-channels-indicator (substring string 1)))
     (liece-set-channel-indicator)
-    (when liece-current-channel
+    (setq chnl (if (eq liece-command-buffer-mode 'chat)
+		   liece-current-chat-partner
+		 liece-current-channel))
+    (when chnl
       (save-excursion
-	(run-hook-with-args
-	 'liece-redisplay-buffer-functions liece-current-channel)))
+	(run-hook-with-args 'liece-redisplay-buffer-functions chnl)))
     (liece-configure-windows)))
 
 (defsubst liece-channel-set-operator-1 (chnl user val)