(gnus-score-fast-scoring): New variable. Allows to

skip scoring on headers or body.
(gnus-score-headers): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 387aa8a..27a5c61 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2007-03-24  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus-score.el (gnus-score-fast-scoring): New variable.  Allows to
+       skip scoring on headers or body.
+       (gnus-score-headers): Use it.
+
        * gnus-util.el (gnus-emacs-version): Include "no MULE" in no-MULE
        XEmacs.
 

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index a1af6b7..129f765 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -422,11 +422,17 @@ If nil, the user will be asked for a duration."
   :group 'gnus-score-various
   :type 'boolean)
 
-(defcustom gnus-score-fast-scoring nil
-  "If non-nil, no scoring on headers or body is done."
+(defcustom gnus-inhibit-slow-scoring nil
+  "Inhibit slow scoring, e.g. scoring on headers or body.
+
+If a regexp, scoring on headers or body is inhibited if the group
+matches the regexp.  If it is t, scoring on headers or body is
+inhibited for all groups."
   :group 'gnus-score-various
   :version "23.0" ;; No Gnus
-  :type 'boolean)
+  :type '(choice (const :tag "All" nil)
+                (const :tag "None" t)
+                regexp))
 
 \f
 
@@ -1547,9 +1553,19 @@ If FORMAT, also format the current score file."
                                        (length (gnus-score-get header score)))
                                      scores)))
                ;; Call the scoring function for this type of "header".
-               (when (if (and gnus-score-fast-scoring
+               (when (if (and gnus-inhibit-slow-scoring
+                              (if (and (stringp gnus-inhibit-slow-scoring)
+                                       ;; Always true here?
+                                       ;; (stringp gnus-newsgroup-name)
+                                       (string-match gnus-inhibit-slow-scoring
+                                                     gnus-newsgroup-name))
+                                  t
+                                nil)
                               (> 0 (nth 1 (assoc header gnus-header-index))))
-                         nil
+                         (progn
+                           (gnus-message
+                            7 "Scoring on headers or body skipped.")
+                           nil)
                        (setq new (funcall (nth 2 entry) scores header
                                           now expire trace)))
                  (push new news))))