From 33ac9d865bb44c2007e7945e236c3704f896e35f Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 13 May 2006 02:48:25 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-reedit): Don't overwrite wl-draft-parent-folder. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-draft.el (wl-draft-reedit): Don't overwrite + wl-draft-parent-folder. + 2006-05-04 Hiroya Murata * 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) -- 1.7.10.4