From: teranisi <teranisi>
Date: Sat, 11 Dec 2004 08:48:37 +0000 (+0000)
Subject: (wl-draft-send): Allow parent-folder as "".
X-Git-Tag: wl-2_12-root~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=edc2d21474729fda58104056cc0eb12a393a8ae8;p=elisp%2Fwanderlust.git

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

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