(setq alist (cdr alist))
        (when (> count elmo-display-progress-threshold)
          (setq i (1+ i))
-         (if (or (zerop (% i 10)) (= i count))
-             (elmo-display-progress
-              'wl-summary-score-update-all-lines "Updating score..."
-              (/ (* i 100) count)))))
+         (elmo-display-progress
+          'wl-summary-score-update-all-lines "Updating score..."
+          (/ (* i 100) count))))
       (when dels
 ;      (elmo-msgdb-delete-msgs wl-summary-buffer-folder-name
 ;                              dels wl-summary-buffer-msgdb t)