* 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 (file)
--- 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 (file)
--- 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))