From: teranisi <teranisi>
Date: Thu, 13 Dec 2001 00:56:10 +0000 (+0000)
Subject: * wl-expire.el (wl-folder-expire-entity): Follow the last change on
X-Git-Tag: wl-2_8-root~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fcdc9032735042361ec75b98f6b72bab79af47fb;p=elisp%2Fwanderlust.git

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