liece-channel.el (liece-channel-change): Handle

[elisp/liece.git] / lisp / liece-channel.el

diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el
index 1a4efd9..c484e79 100644 (file)
--- 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)