From: teranisi <teranisi>
Date: Tue, 12 Aug 2003 16:54:53 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-delete-all-temp-marks): Remove scored mark too when
X-Git-Tag: wl-2_11_8~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bcff199b81f20dafc46c0272c3caf132b4d3dd5e;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-delete-all-temp-marks): Remove scored mark too when
new optional argument force is non-nil.
(wl-summary-save-view-cache): Call it with force argument non-nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e0f5eb6..0ca3be6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,7 +2,9 @@
 
 	* wl-summary.el (wl-summary-goto-folder-subr): Rescan if
 	scan-type is rescan.
-	(wl-summary-delete-all-temp-marks): Remove scored mark too.
+	(wl-summary-delete-all-temp-marks): Remove scored mark too when
+	new optional argument force is non-nil.
+	(wl-summary-save-view-cache): Call it with force argument non-nil.
 
 	* wl-action.el (wl-summary-unset-mark): Added optional argument FORCE.
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 70f68e4..b00977a 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2646,7 +2646,7 @@ If ARG, exit virtual folder."
 				 'update nil nil t)
     (run-hooks 'wl-summary-virtual-hook)))
 
-(defun wl-summary-delete-all-temp-marks (&optional no-msg)
+(defun wl-summary-delete-all-temp-marks (&optional no-msg force)
   "Erase all temp marks from buffer."
   (interactive)
   (when (or wl-summary-buffer-target-mark-list
@@ -2657,7 +2657,7 @@ If ARG, exit virtual folder."
       (unless no-msg
 	(message "Unmarking..."))
       (while (not (eobp))
-	(wl-summary-unset-mark nil nil t)
+	(wl-summary-unset-mark nil nil force)
 	(forward-line 1))
       (unless no-msg
 	(message "Unmarking...done"))
@@ -3227,7 +3227,7 @@ Return non-nil if the mark is updated"
 		      wl-summary-buffer-target-mark-list mark-list
 		      wl-summary-buffer-temp-mark-list temp-list
 		      wl-summary-buffer-temp-mark-column temp-column)
-		(wl-summary-delete-all-temp-marks 'no-msg)
+		(wl-summary-delete-all-temp-marks 'no-msg 'force)
 		(encode-coding-region
 		 (point-min) (point-max)
 		 (or (and wl-on-mule