From: Reiner Steib Date: Sun, 16 Mar 2008 15:49:30 +0000 (+0000) Subject: (gnus-score-headers): Fix handling of gnus-inhibit-slow-scoring. X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=0a713d7895ae16ec89ee8970644e2b725ec87d8a;p=gnus (gnus-score-headers): Fix handling of gnus-inhibit-slow-scoring. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f0a7619de..3919b94f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-03-16 Reiner Steib + * gnus-score.el (gnus-score-headers): Fix handling of + gnus-inhibit-slow-scoring. + * gnus-art.el (gnus-article-browse-html-article): Fix type in doc string. (gnus-button-url-regexp): Improve handling of parenthesis. diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index d79007b92..7a4fb2575 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -1552,20 +1552,20 @@ If FORMAT, also format the current score file." (lambda (score) (length (gnus-score-get header score))) scores))) - ;; Call the scoring function for this type of "header". (when (if (and gnus-inhibit-slow-scoring - (if (and (stringp gnus-inhibit-slow-scoring) + (or (eq gnus-inhibit-slow-scoring t) + (and (stringp gnus-inhibit-slow-scoring) ;; Always true here? ;; (stringp gnus-newsgroup-name) - (string-match gnus-inhibit-slow-scoring - gnus-newsgroup-name)) - t - nil) + (string-match + gnus-inhibit-slow-scoring + gnus-newsgroup-name))) (> 0 (nth 1 (assoc header gnus-header-index)))) (progn (gnus-message 7 "Scoring on headers or body skipped.") nil) + ;; Call the scoring function for this type of "header". (setq new (funcall (nth 2 entry) scores header now expire trace))) (push new news))))