From: yamaoka <yamaoka>
Date: Fri, 25 Jan 2002 05:09:45 +0000 (+0000)
Subject: * wl.el (wl-other-frame): Removed garbages.
X-Git-Tag: wl-2_9_7~31
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=75a407dc83024b3fc63e752e95372a5ee391d6bf;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b9fc763..5d4ecd0 100644
--- 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
--- 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