* wl.el (wl): Omit `wl-check-environment' if wl-init is nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2fd56c4..a8c7c3c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-16  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl.el (wl): Omit `wl-check-environment' if wl-init is nil.
+
 2001-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 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 (file)
--- 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))