From: yoichi <yoichi>
Date: Sat, 13 May 2006 02:48:25 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reedit): Don't overwrite
X-Git-Tag: wl-2_15_4~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33ac9d865bb44c2007e7945e236c3704f896e35f;p=elisp%2Fwanderlust.git

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