Changes committed gnus/lisp (ChangeLog gnus-score.el)

Modified: ChangeLog gnus-score.el

(gnus-score-headers): Fix handling of gnus-inhibit-slow-scoring.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1794 gnus/lisp/ChangeLog:7.1795
--- ChangeLog:7.1794	Sun Mar 16 16:45:42 2008
+++ ChangeLog	Sun Mar 16 16:49:30 2008
@@ -1,5 +1,8 @@
 2008-03-16  Reiner Steib  <[email protected]>
 
+	* 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.
Index: gnus-score.el
diff -u gnus/lisp/gnus-score.el:7.36 gnus/lisp/gnus-score.el:7.37
--- gnus-score.el:7.36	Sat Mar  1 02:48:13 2008
+++ gnus-score.el	Sun Mar 16 16:49:30 2008
@@ -1552,20 +1552,20 @@
 				      (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))))