* wl.el (wl-other-frame): Removed garbages.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b9fc763..5d4ecd0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * wl.el (wl-other-frame): Removed garbages.
+
 2002-01-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-e21.el (wl-draft-key-setup): Don't bind C-x C-s

diff --git a/wl/wl.el b/wl/wl.el
index 8a970b9..cbff2e6 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -869,20 +869,7 @@ If ARG (prefix argument) is specified, folder checkings are skipped."
               (let ((frame ,frame))
                 (if (eq (selected-frame) frame)
                     (delete-frame frame)))))
-      (let ((demo-buf (if (and (not wl-init)
-                              wl-demo)
-                         (wl-demo)))
-           wl-demo)
-       (unless wl-init
-         (wl-load-profile)
-         (wl-folder-init)
-         (elmo-init))
-       (wl-init)       
-       (sit-for 0)
-       (prog1
-           (wl arg)
-         (if (buffer-live-p demo-buf)
-             (kill-buffer demo-buf)))))))
+      (wl arg))))
 
 ;; Define some autoload functions WL might use.
 (eval-and-compile