From: okada <okada>
Date: Wed, 16 May 2001 14:30:57 +0000 (+0000)
Subject: * wl.el (wl): Omit `wl-check-environment' if wl-init is nil.
X-Git-Tag: wl-2_6-root^3~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=efef977e75b4b8a152c803cf215ad9afbf6013c5;p=elisp%2Fwanderlust.git

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

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  <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
--- 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))