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