* wl-draft.el (wl-draft-reedit): Don't overwrite

wl-draft-parent-folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 74cadac..8c53035 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-13  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-draft.el (wl-draft-reedit): Don't overwrite
+       wl-draft-parent-folder.
+
 2006-05-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-mime.el (wl-mime-pgp-decrypt-region): New function.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 9ccf8dd..ec9e29b 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1994,8 +1994,9 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
                                "\\1"))
                  auto-save-file-name-transforms)))
     (setq buffer-file-name (buffer-name)
-         wl-draft-parent-folder ""
          wl-draft-buffer-message-number number)
+    (unless wl-draft-parent-folder
+      (setq wl-draft-parent-folder ""))
     (when wl-draft-write-file-function
       (add-hook 'local-write-file-hooks wl-draft-write-file-function))
     (wl-highlight-headers 'for-draft)