From: yoichi <yoichi>
Date: Sat, 24 Jul 2004 20:40:08 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-open-folder): Avoid error.
X-Git-Tag: wl-2_11_31~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9db73ebc8636da0cce2dcc60dd8b8751788d5ce7;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-open-folder): Avoid error.
Reported by John Owens, [wl-en:815]
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bec7079..3700760 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-07-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* wl-folder.el (wl-folder-open-folder): Avoid error.
+	Reported by John Owens, [wl-en:815]
+
 	* wl.el (wl): Set timer for biff process even if prefix argument
 	is given or auto-checking is quitted.
 
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 72eb130..175e972 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2453,12 +2453,13 @@ Use `wl-subscribed-mailing-list'."
   (interactive)
   (if (not fld-name)
       (setq fld-name (wl-summary-read-folder wl-default-folder)))
-  (let* ((id (wl-folder-get-entity-id
-	      (wl-folder-search-entity-by-name fld-name wl-folder-entity
-					       'folder)))
-	 (path (and id (wl-folder-get-path wl-folder-entity id))))
-      (if path
-	  (wl-folder-open-folder-sub path))))
+  (let ((entity (wl-folder-search-entity-by-name
+		 fld-name wl-folder-entity 'folder)))
+    (if entity
+	(let* ((id (wl-folder-get-entity-id entity))
+	       (path (and id (wl-folder-get-path wl-folder-entity id))))
+	  (if path (wl-folder-open-folder-sub path)))
+      (message "%s: not found" fld-name))))
 
 (defun wl-folder-open-folder-sub (path)
   (let ((inhibit-read-only t)