From efef977e75b4b8a152c803cf215ad9afbf6013c5 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 16 May 2001 14:30:57 +0000 Subject: [PATCH] * wl.el (wl): Omit `wl-check-environment' if wl-init is nil. --- wl/ChangeLog | 4 ++++ wl/wl.el | 15 ++++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 2fd56c4..a8c7c3c 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-05-16 Kenichi OKADA + + * wl.el (wl): Omit `wl-check-environment' if wl-init is nil. + 2001-05-10 Yuuichi Teranishi * wl.el (wl-plugged-dop-queue-info): Fixed for new queue structure. diff --git a/wl/wl.el b/wl/wl.el index d883ca5..3c2cf2b 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -769,13 +769,14 @@ If ARG (prefix argument) is specified, folder checkings are skipped." (unless wl-init (setq demo-buf (wl-demo))) (wl-init) - (condition-case nil - (progn - (message "Checking environment...") - (wl-check-environment arg) - (message "Checking environment...done")) - (error) - (quit)) + (unless wl-init + (condition-case nil + (progn + (message "Checking environment...") + (wl-check-environment arg) + (message "Checking environment...done")) + (error) + (quit))) (condition-case obj (progn (wl-plugged-init (wl-folder arg)) -- 1.7.10.4