From 68cfeb2f178e722efa516b0ee6684f335f3cd428 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 1 Sep 2000 15:37:10 +0000 Subject: [PATCH] liece-channel.el (liece-channel-change): Handle `liece-current-chat-partner'. --- lisp/ChangeLog | 3 +++ lisp/liece-channel.el | 8 +++++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + * 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) -- 1.7.10.4