From: ueno <ueno>
Date: Fri, 1 Sep 2000 15:37:10 +0000 (+0000)
Subject: liece-channel.el (liece-channel-change): Handle
X-Git-Tag: liece-1_4_4-1~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=68cfeb2f178e722efa516b0ee6684f335f3cd428;p=elisp%2Fliece.git

liece-channel.el (liece-channel-change): Handle
`liece-current-chat-partner'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7fd7a6c..ff7887d 100644
--- 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
--- 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)