From: yoichi <yoichi>
Date: Thu, 7 Mar 2002 11:42:59 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-create-buffer): If called by W (Folder),
X-Git-Tag: wl-2_9_8~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a5445ec78ce450f6f26bffd7b7a83a6c0eeea454;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-create-buffer): If called by W (Folder),
don't set wl-draft-buffer-cur-summary-buffer so as to go back to
Folder buffer after composing.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 924a2dc..ff5d16a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -8,6 +8,10 @@
 	* wl-summary.el (wl-summary-write): Ditto.
 	(wl-summary-write-current-folder): Ditto.
 
+	* wl-draft.el (wl-draft-create-buffer): If called by W (Folder),
+	don't set wl-draft-buffer-cur-summary-buffer so as to go back to
+	Folder buffer after composing.
+
 2002-03-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* wl-draft.el (wl-draft-insert-x-face-field-here): Strip X-Face
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 4fa6b6d..23d9b4a 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1521,7 +1521,8 @@ Derived from `message-save-drafts' in T-gnus."
     (setq wl-draft-buffer-file-name file-name)
     (setq wl-draft-config-exec-flag t)
     (setq wl-draft-parent-folder parent-folder)
-    (setq wl-draft-buffer-cur-summary-buffer summary-buf)
+    (or (eq this-command 'wl-folder-write-current-folder)
+	(setq wl-draft-buffer-cur-summary-buffer summary-buf))
     buf-name))
 
 (defun wl-draft-create-contents (header-alist)