From: yoichi <yoichi>
Date: Sun, 14 Sep 2003 06:26:44 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-hide): Select buffer-window.
X-Git-Tag: wl-2_11_12~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1612364529556241bad471874918ab50067f70f1;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-hide): Select buffer-window.
---

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  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-hide): Select buffer-window.
+
 2003-09-13  Mito  <mito@mxa.nes.nec.co.jp>
 
 	* 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