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