* wl-expire.el (wl-folder-expire-entity): Follow the last change on

wl-summary-save-view.

* wl.el (wl-save-status): Ditto.
(Pointed out by MAKINO Takashi <makino@cyber.office.ne.jp>)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 823428f..4ccd04a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2001-12-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-expire.el (wl-folder-expire-entity): Follow the last change on
+       wl-summary-save-view.
+
+       * wl.el (wl-save-status): Ditto.
+       (Pointed out by MAKINO Takashi <makino@cyber.office.ne.jp>)
+
        * wl-summary.el (wl-summary-save-view): Removed unused argument.
        (wl-summary-exit): Follow the change above.
        (wl-summary-goto-folder-subr): Ditto.

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index e3fc142..f3f20b3 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -744,7 +744,7 @@ ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
            (setq ret-val (wl-summary-expire folder (not update-msgdb)))
            (if update-msgdb
                (progn
-                 (wl-summary-save-view 'keep)
+                 (wl-summary-save-view)
                  (elmo-folder-commit wl-summary-buffer-elmo-folder))
              (if ret-val
                  (wl-folder-check-entity entity))))))))))

diff --git a/wl/wl.el b/wl/wl.el
index d97f640..c4b3c7d 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -627,7 +627,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
          (with-current-buffer (car summaries)
            (unless keep-summary
              (wl-summary-cleanup-temp-marks))
-           (wl-summary-save-view keep-summary)
+           (wl-summary-save-view)
            (elmo-folder-commit wl-summary-buffer-elmo-folder)
            (unless keep-summary
              (kill-buffer (car summaries))))