From 9db73ebc8636da0cce2dcc60dd8b8751788d5ce7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 24 Jul 2004 20:40:08 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-open-folder): Avoid error. Reported by John Owens, [wl-en:815] --- wl/ChangeLog | 3 +++ wl/wl-folder.el | 13 +++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) 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 + * 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) -- 1.7.10.4