* 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 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,9 @@
 2003-08-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 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  <lapis-lazuli@pop06.odn.ne.jp>
 

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 8fc34a5..03929f8 100644 (file)
--- 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 (file)
--- 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)