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