From: yoichi <yoichi>
Date: Mon, 21 Oct 2002 23:53:14 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-forward): If wl-draft-use-frame, select
X-Git-Tag: wl-2_11_1~88
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e21941a415f1b0c567b2635524853573ef3c3411;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)