From: teranisi <teranisi>
Date: Mon, 2 Sep 2002 02:55:57 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder'
X-Git-Tag: elmo-mark-root~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=86a94b48a6752fb8dc639f44492346aecac07502;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder'
 as "" (zero-length string) if no parent.
---

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  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder'
+	as "" (zero-length string) if no parent.
+
 2002-08-27  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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))