From bcff199b81f20dafc46c0272c3caf132b4d3dd5e Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 12 Aug 2003 16:54:53 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 4 +++- wl/wl-summary.el | 6 +++--- 2 files changed, 6 insertions(+), 4 deletions(-) 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 -- 1.7.10.4