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