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

`liece-current-chat-partner'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7fd7a6c..ff7887d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-09-01   Daiki Ueno  <ueno@unixuser.org>
 
+       * liece-channel.el (liece-channel-change): Handle
+       `liece-current-chat-partner'.
+
        * Makefile.am (SOURCES): Remove `liece-crypt'.
 
        * liece-crypt.el: Remove.

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)