From: okazaki <okazaki>
Date: Thu, 2 Sep 2004 13:41:20 +0000 (+0000)
Subject: (wl-draft-kill-flags): Avoid error when `wl-draft-parent-folder' is "".
X-Git-Tag: wl-2_11_31~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2796fa2efd9c73829d6cf0c7d134959c1a40bca9;p=elisp%2Fwanderlust.git

(wl-draft-kill-flags): Avoid error when `wl-draft-parent-folder' is "".
---

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index fb7c054..771f6a4 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -776,6 +776,7 @@ Reply to author if WITH-ARG is non-nil."
 	    (wl-summary-unset-persistent-mark flag number)))
       ;; Parent buffer does not exist.
       (when (setq folder (and wl-draft-parent-folder
+			      (string< "" wl-draft-parent-folder)
 			      (wl-folder-get-elmo-folder
 			       wl-draft-parent-folder)))
 	(elmo-folder-open folder 'load-msgdb)