- (let ((number (mail-header-number root)))
- (if (and (not (memq number gnus-newsgroup-limit))
- (not (memq number gnus-newsgroup-sparse)))
- ;; This article shouldn't be counted.
- (apply gnus-thread-score-function
- (mapcar 'gnus-thread-total-score
- (cdr (gnus-gethash (mail-header-id root)
- gnus-newsgroup-dependencies))))
- ;; This article should be counted.
- (apply gnus-thread-score-function
- (or (cdr (assq number gnus-newsgroup-scored))
- gnus-summary-default-score 0)
- (mapcar 'gnus-thread-total-score
- (cdr (gnus-gethash (mail-header-id root)
- gnus-newsgroup-dependencies)))))))
+ (apply gnus-thread-score-function
+ (or (cdr (assq (mail-header-number root) gnus-newsgroup-scored))
+ gnus-summary-default-score 0)
+ (mapcar 'gnus-thread-total-score
+ (cdr (gnus-gethash (mail-header-id root)
+ gnus-newsgroup-dependencies)))))