From 69d19516f7d998f48564694c255c2b756da7eab7 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 23 Jan 2002 09:30:49 +0000 Subject: [PATCH] * wl.el (wl): Enclose `wl-check-environment' with `condition-case' again (Reverted the change on 2002-01-17 by OKADA san). --- wl/ChangeLog | 5 +++++ wl/wl.el | 18 ++++++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index e5a293d..cf842d5 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-01-23 Yuuichi Teranishi + + * wl.el (wl): Enclose `wl-check-environment' with `condition-case' + again (Reverted the change on 2002-01-17 by OKADA san). + 2002-01-23 Kenichi OKADA * wl-draft.el (wl-draft): Rewrite. diff --git a/wl/wl.el b/wl/wl.el index cb0315e..7a06243 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -810,14 +810,16 @@ If ARG (prefix argument) is specified, folder checkings are skipped." (condition-case obj (progn (if check - (progn - (message "Checking environment...") - (wl-check-environment arg) - (message "Checking environment...done") - (message "Checking type of variables...") - (wl-check-variables) - (wl-check-variables-2) - (message "Checking type of variables...done"))) + (condition-case nil + (progn + (message "Checking environment...") + (wl-check-environment arg) + (message "Checking environment...done") + (error quit)))) + (message "Checking type of variables...") + (wl-check-variables) + (wl-check-variables-2) + (message "Checking type of variables...done") (wl-plugged-init (wl-folder arg)) (unless arg (run-hooks 'wl-auto-check-folder-pre-hook) -- 1.7.10.4