From: teranisi <teranisi>
Date: Mon, 25 Jun 2001 13:42:55 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-reply): Fixed problem when
X-Git-Tag: wl-2_7_2~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a8545f1028dd242684823390effdcc74a92f3d5d;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-reply): Fixed problem when
wl-draft-use-frame is non-nil.
(wl-summary-forward): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 144feae..be08af1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,4 +1,8 @@
-2001-06-25  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+2001-06-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-reply): Fixed problem when
+	wl-draft-use-frame is non-nil.
+	(wl-summary-forward): Ditto.
 
 	* wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame
 	as nil.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 42b2911..1123ba1 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4871,9 +4871,9 @@ Reply to author if invoked with ARG."
       (wl-message-select-buffer wl-message-buffer)
       (set-buffer mes-buf)
       (goto-char (point-min))
-      (or wl-draft-use-frame
-	  (split-window-vertically))
-      (other-window 1)
+      (unless wl-draft-use-frame
+	(split-window-vertically)
+	(other-window 1))
       (when (setq mes-buf (wl-message-get-original-buffer))
 	(wl-draft-reply mes-buf arg summary-buf)
 	(unless without-setup-hook
@@ -4933,9 +4933,9 @@ Use function list is `wl-summary-write-current-folder-functions'."
       (wl-summary-redisplay-internal nil nil 'force-reload)
       (setq mes-buf wl-message-buffer)
       (wl-message-select-buffer mes-buf)
-      (or wl-draft-use-frame
-	  (split-window-vertically))
-      (other-window 1)
+      (unless wl-draft-use-frame
+	(split-window-vertically)
+	(other-window 1))
       ;; get original subject.
       (if summary-buf
 	  (save-excursion