From 1612364529556241bad471874918ab50067f70f1 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 14 Sep 2003 06:26:44 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-hide): Select buffer-window. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 60c488a..95152a9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2003-09-14 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-hide): Select buffer-window. + 2003-09-13 Mito * wl-summary.el (wl-summary-narrow-to-region): New function. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 4047e7c..752229b 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -706,8 +706,9 @@ Reply to author if WITH-ARG is non-nil." (defun wl-draft-hide (editing-buffer) "Hide the editing draft buffer if possible." (when (and editing-buffer - (buffer-live-p editing-buffer)) - (set-buffer editing-buffer) + (buffer-live-p editing-buffer) + (get-buffer-window editing-buffer)) + (select-window (get-buffer-window editing-buffer)) (let ((sum-buf wl-draft-buffer-cur-summary-buffer) fld-buf sum-win fld-win) (if (and wl-draft-use-frame -- 1.7.10.4