From: teranisi <teranisi>
Date: Fri, 14 Sep 2001 04:38:18 +0000 (+0000)
Subject: * wl.el (wl): Changed order of calling `elmo-init' and `elmo-folder-init'.
X-Git-Tag: wl-2_7_4~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=28ce28a1116e7b3f9f361c62f37f1c63d39a07d6;p=elisp%2Fwanderlust.git

* wl.el (wl): Changed order of calling `elmo-init' and `elmo-folder-init'.

* elmo.el (elmo-quit): Call `elmo-dop-queue-save'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index aec5371..714ae99 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-quit): Call `elmo-dop-queue-save'.
+
 2001-09-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* acap.el (acap-read-passphrase): Always autoload ange-ftp for
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 48d597f..0dbcf75 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1397,8 +1397,8 @@ Return a hashtable for newsgroups."
 
 (defun elmo-quit ()
   "Quit and cleanup ELMO."
-;  (setq elmo-newsgroups-hashtb nil)
   (elmo-crosspost-message-alist-save)
+  (elmo-dop-queue-save)
   ;; Not implemented yet.
   (let ((types elmo-folder-type-alist)
 	class)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index fe585db..5be8e21 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl.el (wl): Changed order of calling `elmo-init'
+	and `elmo-folder-init'.
+
 2001-09-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-summary-burst): Extract message when content-type
diff --git a/wl/wl.el b/wl/wl.el
index 9b7bdeb..192160d 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -755,8 +755,8 @@ If ARG (prefix argument) is specified, folder checkings are skipped."
   (interactive "P")
   (unless wl-init
     (wl-load-profile)
-    (elmo-init)
-    (wl-folder-init))
+    (wl-folder-init)
+    (elmo-init))
   (let (demo-buf check)
     (unless wl-init
       (if wl-demo (setq demo-buf (wl-demo)))