From: okada <okada>
Date: Tue, 8 May 2001 14:54:37 +0000 (+0000)
Subject: 2001-05-08  Kenichi OKADA  <okada@opaopa.org>
X-Git-Tag: wl-2_6-root^3~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=619bd1c476c5471a9ec53b605bb34c84793a4c87;p=elisp%2Fwanderlust.git

2001-05-08  Kenichi OKADA  <okada@opaopa.org>

	* wl.el (wl): Fix for wl-demo.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ae5916e..c24ac86 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-05-08  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl.el (wl): Fix for wl-demo.
+
+2001-05-08  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-summary.el (wl-summary-supersedes-message): Use 'message-buf'
 
 2001-05-08  Kenichi OKADA  <okada@opaopa.org>
diff --git a/wl/wl.el b/wl/wl.el
index ac33a30..1ba5e20 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -754,7 +754,8 @@ If ARG (prefix argument) is specified, folder checkings are skipped."
     (wl-load-profile))
   (elmo-init)
   (let (demo-buf)
-    (setq demo-buf (wl-demo))
+    (unless wl-init
+      (setq demo-buf (wl-demo)))
     (wl-init)
     (condition-case nil
 	(progn