From: teranisi Date: Sat, 2 Aug 2003 16:42:12 +0000 (+0000) Subject: * wl-summary.el (wl-summary-input-range): Abolish all-noscore and X-Git-Tag: wl-2_11_6~13 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ded6e92cf8ef3aa01d443dfb6aad1e924638539;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-input-range): Abolish all-noscore and update-noscore. (wl-summary-sync): Follow the change above. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 7804273..9f5bfa4 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,7 +1,9 @@ 2003-08-02 Yuuichi Teranishi * wl-summary.el (wl-summary-sync): Rearrange rescan. - (wl-summary-input-range): Added rescan-nokill. + (wl-summary-input-range): Added rescan-nokill, abolish all-noscore + and update-noscore. + (wl-summary-sync): Follow the change above. 2003-08-02 Hiroya Murata diff --git a/wl/wl-score.el b/wl/wl-score.el index 8fc34a5..03929f8 100644 --- a/wl/wl-score.el +++ b/wl/wl-score.el @@ -1242,7 +1242,7 @@ Set `wl-score-cache' nil." (when (and update update-unread) ;; Update Folder mode (wl-folder-set-folder-updated (wl-summary-buffer-folder-name) - (list + (list 0 (let ((pair (wl-summary-count-unread))) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index a281f9b..8d7191c 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1182,13 +1182,9 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'." folder)) 'force-update nil nil t)) (t - (let ((wl-use-scoring (if (string-match "noscore" range) - nil - wl-use-scoring))) - (wl-summary-sync-update unset-cursor - (or (string-match "nokill" range) - (string-match "noscore" range)) - (string-match "all" range))))))) + (wl-summary-sync-update unset-cursor + (string-match "nokill" range) + (string-match "all" range)))))) (defvar wl-summary-edit-addresses-candidate-fields ;; First element becomes default. @@ -3318,14 +3314,12 @@ Return non-nil if the mark is updated" "last:" "cache-status" "rescan" -n "rescan-nokill" + "rescan-nokill" "rescan-noscore" "update" "update-nokill" - "update-noscore" "all" - "all-nokill" - "all-noscore")) + "all-nokill")) (default (or (wl-get-assoc-list-value wl-folder-sync-range-alist folder)