From: teranisi <teranisi>
Date: Tue, 18 Dec 2001 04:25:35 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-exit): Changed order of saving summary view
X-Git-Tag: wl-2_8_0pre2~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1c3035f82b72884cb98a2f50e30fa49860c8cb13;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-exit): Changed order of saving summary view
and msgdb.

* wl.el (wl-toggle-plugged): Save summary view.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 104e570..e85d531 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-12-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-exit): Changed order of saving summary view
+	and msgdb.
+
+	* wl.el (wl-toggle-plugged): Save summary view.
+
 2001-12-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-open-folder): Bind `elmo-mime-charset'.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6cef744..7a2713d 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1026,11 +1026,11 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
       (unwind-protect
 	  ;; save summary status
 	  (progn
+	    (wl-summary-save-view)
 	    (if (or force-exit (not sticky))
 		(elmo-folder-close wl-summary-buffer-elmo-folder)
 	      (elmo-folder-commit wl-summary-buffer-elmo-folder)
 	      (elmo-folder-check wl-summary-buffer-elmo-folder))
-	    (wl-summary-save-view)
 	    (if wl-use-scoring (wl-score-save)))
 	;; for sticky summary
 	(wl-delete-all-overlays)
diff --git a/wl/wl.el b/wl/wl.el
index 87bef00..98035ca 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -102,8 +102,8 @@
     (let ((summaries (wl-collect-summary)))
       (while summaries
 	(set-buffer (pop summaries))
-	(elmo-folder-commit wl-summary-buffer-elmo-folder)
-	(wl-summary-set-message-modified))))
+	(wl-summary-save-view)
+	(elmo-folder-commit wl-summary-buffer-elmo-folder))))
   (setq wl-biff-check-folders-running nil)
   (if wl-plugged
       (progn