From 86a94b48a6752fb8dc639f44492346aecac07502 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 2 Sep 2002 02:55:57 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder' as "" (zero-length string) if no parent. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 49e7f54..70fcfa9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-09-02 Yuuichi Teranishi + + * wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder' + as "" (zero-length string) if no parent. + 2002-08-27 Yuuichi Teranishi * wl-address.el (wl-address-make-completion-list): Skip duplication diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 05d6955..ed9c352 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1620,7 +1620,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (setq wl-sent-message-queued nil) (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-parent-folder (or parent-folder "")) (or (eq this-command 'wl-folder-write-current-folder) (setq wl-draft-buffer-cur-summary-buffer summary-buf)) buf-name)) -- 1.7.10.4