(wl-draft-send): Allow parent-folder as "".

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1583e13..765d268 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-draft.el (wl-draft-send): Allow parent-folder as "".
+
 2004-12-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * 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 (file)
--- 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)