* wl-draft.el (wl-draft-forward): If wl-draft-use-frame, select

summary buffer window before creating new frame.
(wl-draft-reply): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b8606d6..aaa6699 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-draft-forward): If wl-draft-use-frame, select
+       summary buffer window before creating new frame.
+       (wl-draft-reply): Ditto.
+
 2002-10-21  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-mime.el (toplevel): Avoid byte-compile warnings.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index e6f99e2..053b9fa 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -295,6 +295,9 @@ e.g.
            references (wl-delete-duplicates references)
            references (when references
                         (mapconcat 'identity references "\n\t"))))
+    (and wl-draft-use-frame
+        (get-buffer-window summary-buf)
+        (select-window (get-buffer-window summary-buf)))
     (wl-draft (list (cons 'To "")
                    (cons 'Subject
                          (concat wl-forward-subject-prefix original-subject))
@@ -461,6 +464,9 @@ Reply to author if WITH-ARG is non-nil."
          references (wl-delete-duplicates references)
          references (if references
                         (mapconcat 'identity references "\n\t")))
+    (and wl-draft-use-frame
+        (get-buffer-window summary-buf)
+        (select-window (get-buffer-window summary-buf)))
     (wl-draft (list (cons 'To to)
                    (cons 'Cc cc)
                    (cons 'Newsgroups newsgroups)