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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 60c488a..95152a9 100644 (file)
--- 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 (file)
--- 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