From edc2d21474729fda58104056cc0eb12a393a8ae8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 11 Dec 2004 08:48:37 +0000 Subject: [PATCH] (wl-draft-send): Allow parent-folder as "". --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 1583e13..765d268 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2004-12-11 Yuuichi Teranishi + + * wl-draft.el (wl-draft-send): Allow parent-folder as "". + 2004-12-11 Yoichi NAKAYAMA * wl-draft.el (wl-draft-forward): Call wl-draft-forward-make-subject diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 345ad6c..a2b49a0 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1367,7 +1367,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" ;; If flag is set after send-function, the current mailbox ;; might changed by Fcc. ;; It causes a huge loss in the IMAP folder. - (when (and parent-flag parent-number parent-folder) + (when (and parent-flag parent-number + (not (eq (length parent-folder) 0))) (wl-folder-set-persistent-mark parent-folder parent-number parent-flag)) (funcall wl-draft-send-function editing-buffer kill-when-done) -- 1.7.10.4