projects / gnus / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
*** empty log message ***
[gnus] / lisp / gnus-score.el
diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 8b09716..4d91754 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1,4 +1,4 @@
-;;; gnus-score.el --- scoring code for Gnus
+1;;; gnus-score.el --- scoring code for Gnus
 ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <amanda@iesd.auc.dk>
 ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <amanda@iesd.auc.dk>
@@ -26,9 +26,12 @@
 
 ;;; Code:
 
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'gnus)
 (require 'gnus-sum)
 (require 'gnus-range)
 (require 'gnus)
 (require 'gnus-sum)
 (require 'gnus-range)
+(require 'message)
 
 (defcustom gnus-global-score-files nil
   "List of global score files and directories.
 
 (defcustom gnus-global-score-files nil
   "List of global score files and directories.
@@ -37,13 +40,13 @@ for each score file or each score file directory.  Gnus will decide
 by itself what score files are applicable to which group.
 
 Say you want to use the single score file
 by itself what score files are applicable to which group.
 
 Say you want to use the single score file
-\"/ftp.ifi.uio.no@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all
+\"/ftp.gnus.org@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all
 score files in the \"/ftp.some-where:/pub/score\" directory.
 
  (setq gnus-global-score-files
 score files in the \"/ftp.some-where:/pub/score\" directory.
 
  (setq gnus-global-score-files
-       '(\"/ftp.ifi.uio.no:/pub/larsi/ding/score/soc.motss.SCORE\"
+       '(\"/ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE\"
          \"/ftp.some-where:/pub/score\"))"
          \"/ftp.some-where:/pub/score\"))"
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type '(repeat file))
 
 (defcustom gnus-score-file-single-match-alist nil
   :type '(repeat file))
 
 (defcustom gnus-score-file-single-match-alist nil
@@ -58,7 +61,7 @@ use multiple matches, see gnus-score-file-multiple-match-alist).
 
 These score files are loaded in addition to any files returned by
 gnus-score-find-score-files-function (which see)."
 
 These score files are loaded in addition to any files returned by
 gnus-score-find-score-files-function (which see)."
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type '(repeat (cons regexp (repeat file))))
 
 (defcustom gnus-score-file-multiple-match-alist nil
   :type '(repeat (cons regexp (repeat file))))
 
 (defcustom gnus-score-file-multiple-match-alist nil
@@ -74,17 +77,18 @@ gnus-score-file-single-match-alist).
 
 These score files are loaded in addition to any files returned by
 gnus-score-find-score-files-function (which see)."
 
 These score files are loaded in addition to any files returned by
 gnus-score-find-score-files-function (which see)."
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type '(repeat (cons regexp (repeat file))))
 
 (defcustom gnus-score-file-suffix "SCORE"
   "Suffix of the score files."
   :type '(repeat (cons regexp (repeat file))))
 
 (defcustom gnus-score-file-suffix "SCORE"
   "Suffix of the score files."
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type 'string)
 
 (defcustom gnus-adaptive-file-suffix "ADAPT"
   "Suffix of the adaptive score files."
   :type 'string)
 
 (defcustom gnus-adaptive-file-suffix "ADAPT"
   "Suffix of the adaptive score files."
-  :group 'gnus-score
+  :group 'gnus-score-files
+  :group 'gnus-score-adapt
   :type 'string)
 
 (defcustom gnus-score-find-score-files-function 'gnus-score-find-bnews
   :type 'string)
 
 (defcustom gnus-score-find-score-files-function 'gnus-score-find-bnews
@@ -104,7 +108,7 @@ See the documentation to these functions for more information.
 This variable can also be a list of functions to be called.  Each
 function should either return a list of score files, or a list of
 score alists."
 This variable can also be a list of functions to be called.  Each
 function should either return a list of score files, or a list of
 score alists."
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type '(radio (function-item gnus-score-find-single)
                (function-item gnus-score-find-hierarchical)
                (function-item gnus-score-find-bnews)
   :type '(radio (function-item gnus-score-find-single)
                (function-item gnus-score-find-hierarchical)
                (function-item gnus-score-find-bnews)
@@ -112,13 +116,13 @@ score alists."
 
 (defcustom gnus-score-interactive-default-score 1000
   "*Scoring commands will raise/lower the score with this number as the default."
 
 (defcustom gnus-score-interactive-default-score 1000
   "*Scoring commands will raise/lower the score with this number as the default."
-  :group 'gnus-score
+  :group 'gnus-score-default
   :type 'integer)
 
 (defcustom gnus-score-expiry-days 7
   "*Number of days before unused score file entries are expired.
 If this variable is nil, no score file entries will be expired."
   :type 'integer)
 
 (defcustom gnus-score-expiry-days 7
   "*Number of days before unused score file entries are expired.
 If this variable is nil, no score file entries will be expired."
-  :group 'gnus-score
+  :group 'gnus-score-expire
   :type '(choice (const :tag "never" nil)
                 number))
 
   :type '(choice (const :tag "never" nil)
                 number))
 
@@ -126,34 +130,35 @@ If this variable is nil, no score file entries will be expired."
   "*In non-nil, update matching score entry dates.
 If this variable is nil, then score entries that provide matches
 will be expired along with non-matching score entries."
   "*In non-nil, update matching score entry dates.
 If this variable is nil, then score entries that provide matches
 will be expired along with non-matching score entries."
-  :group 'gnus-score
+  :group 'gnus-score-expire
   :type 'boolean)
 
 (defcustom gnus-orphan-score nil
   "*All orphans get this score added.  Set in the score file."
   :type 'boolean)
 
 (defcustom gnus-orphan-score nil
   "*All orphans get this score added.  Set in the score file."
-  :group 'gnus-score
-  :type 'integer)
+  :group 'gnus-score-default
+  :type '(choice (const nil)
+                integer))
 
 (defcustom gnus-decay-scores nil
   "*If non-nil, decay non-permanent scores."
 
 (defcustom gnus-decay-scores nil
   "*If non-nil, decay non-permanent scores."
-  :group 'gnus-score
+  :group 'gnus-score-decay
   :type 'boolean)
 
 (defcustom gnus-decay-score-function 'gnus-decay-score
   "*Function called to decay a score.
 It is called with one parameter -- the score to be decayed."
   :type 'boolean)
 
 (defcustom gnus-decay-score-function 'gnus-decay-score
   "*Function called to decay a score.
 It is called with one parameter -- the score to be decayed."
-  :group 'gnus-score
+  :group 'gnus-score-decay
   :type '(radio (function-item gnus-decay-score)
                (function :tag "Other")))
 
 (defcustom gnus-score-decay-constant 3
   "*Decay all \"small\" scores with this amount."
   :type '(radio (function-item gnus-decay-score)
                (function :tag "Other")))
 
 (defcustom gnus-score-decay-constant 3
   "*Decay all \"small\" scores with this amount."
-  :group 'gnus-score
+  :group 'gnus-score-decay
   :type 'integer)
 
 (defcustom gnus-score-decay-scale .05
   "*Decay all \"big\" scores with this factor."
   :type 'integer)
 
 (defcustom gnus-score-decay-scale .05
   "*Decay all \"big\" scores with this factor."
-  :group 'gnus-score
+  :group 'gnus-score-decay
   :type 'number)
 
 (defcustom gnus-home-score-file nil
   :type 'number)
 
 (defcustom gnus-home-score-file nil
@@ -179,14 +184,14 @@ It can be:
 
    * A function.
      If the function returns non-nil, the result will be used
 
    * A function.
      If the function returns non-nil, the result will be used
-     as the home score file.  The function will be passed the 
+     as the home score file.  The function will be passed the
      name of the group as its parameter.
 
    * A string.  Use the string as the home score file.
 
    The list will be traversed from the beginning towards the end looking
    for matches."
      name of the group as its parameter.
 
    * A string.  Use the string as the home score file.
 
    The list will be traversed from the beginning towards the end looking
    for matches."
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type '(choice string
                 (repeat (choice string
                                 (cons regexp (repeat file))
   :type '(choice string
                 (repeat (choice string
                                 (cons regexp (repeat file))
@@ -196,14 +201,15 @@ It can be:
 (defcustom gnus-home-adapt-file nil
   "Variable to control where new adaptive score entries are to go.
 This variable allows the same syntax as `gnus-home-score-file'."
 (defcustom gnus-home-adapt-file nil
   "Variable to control where new adaptive score entries are to go.
 This variable allows the same syntax as `gnus-home-score-file'."
-  :group 'gnus-score
+  :group 'gnus-score-adapt
+  :group 'gnus-score-files
   :type '(choice string
                 (repeat (choice string
                                 (cons regexp (repeat file))
                                 function))
                 function))
 
   :type '(choice string
                 (repeat (choice string
                                 (cons regexp (repeat file))
                                 function))
                 function))
 
-(defcustom gnus-default-adaptive-score-alist  
+(defcustom gnus-default-adaptive-score-alist
   '((gnus-kill-file-mark)
     (gnus-unread-mark)
     (gnus-read-mark (from 3) (subject 30))
   '((gnus-kill-file-mark)
     (gnus-unread-mark)
     (gnus-read-mark (from 3) (subject 30))
@@ -211,7 +217,7 @@ This variable allows the same syntax as `gnus-home-score-file'."
     (gnus-killed-mark (from -1) (subject -20))
     (gnus-del-mark (from -2) (subject -15)))
 "Alist of marks and scores."
     (gnus-killed-mark (from -1) (subject -20))
     (gnus-del-mark (from -2) (subject -15)))
 "Alist of marks and scores."
-:group 'gnus-score
+:group 'gnus-score-adapt
 :type '(repeat (cons (symbol :tag "Mark")
                     (repeat (list (choice :tag "Header"
                                           (const from)
 :type '(repeat (cons (symbol :tag "Mark")
                     (repeat (list (choice :tag "Header"
                                           (const from)
@@ -221,7 +227,7 @@ This variable allows the same syntax as `gnus-home-score-file'."
 
 (defcustom gnus-ignored-adaptive-words nil
   "List of words to be ignored when doing adaptive word scoring."
 
 (defcustom gnus-ignored-adaptive-words nil
   "List of words to be ignored when doing adaptive word scoring."
-  :group 'gnus-score
+  :group 'gnus-score-adapt
   :type '(repeat string))
 
 (defcustom gnus-default-ignored-adaptive-words
   :type '(repeat string))
 
 (defcustom gnus-default-ignored-adaptive-words
@@ -240,22 +246,22 @@ This variable allows the same syntax as `gnus-home-score-file'."
     "both" "true" "off" "say" "another" "state" "might" "under" "start"
     "try" "re")
   "Default list of words to be ignored when doing adaptive word scoring."
     "both" "true" "off" "say" "another" "state" "might" "under" "start"
     "try" "re")
   "Default list of words to be ignored when doing adaptive word scoring."
-  :group 'gnus-score
+  :group 'gnus-score-adapt
   :type '(repeat string))
 
   :type '(repeat string))
 
-(defcustom gnus-default-adaptive-word-score-alist  
+(defcustom gnus-default-adaptive-word-score-alist
   `((,gnus-read-mark . 30)
     (,gnus-catchup-mark . -10)
     (,gnus-killed-mark . -20)
     (,gnus-del-mark . -15))
 "Alist of marks and scores."
   `((,gnus-read-mark . 30)
     (,gnus-catchup-mark . -10)
     (,gnus-killed-mark . -20)
     (,gnus-del-mark . -15))
 "Alist of marks and scores."
-:group 'gnus-score
+:group 'gnus-score-adapt
 :type '(repeat (cons (character :tag "Mark")
                     (integer :tag "Score"))))
 
 (defcustom gnus-score-mimic-keymap nil
   "*Have the score entry functions pretend that they are a keymap."
 :type '(repeat (cons (character :tag "Mark")
                     (integer :tag "Score"))))
 
 (defcustom gnus-score-mimic-keymap nil
   "*Have the score entry functions pretend that they are a keymap."
-  :group 'gnus-score
+  :group 'gnus-score-default
   :type 'boolean)
 
 (defcustom gnus-score-exact-adapt-limit 10
   :type 'boolean)
 
 (defcustom gnus-score-exact-adapt-limit 10
@@ -266,12 +272,13 @@ for false positives is great, so if the length of the match is less
 than this variable, exact matching will be used.
 
 If this variable is nil, exact matching will always be used."
 than this variable, exact matching will be used.
 
 If this variable is nil, exact matching will always be used."
-  :group 'gnus-score
+  :group 'gnus-score-adapt
   :type '(choice (const nil) integer))
 
 (defcustom gnus-score-uncacheable-files "ADAPT$"
   "All score files that match this regexp will not be cached."
   :type '(choice (const nil) integer))
 
 (defcustom gnus-score-uncacheable-files "ADAPT$"
   "All score files that match this regexp will not be cached."
-  :group 'gnus-score
+  :group 'gnus-score-adapt
+  :group 'gnus-score-files
   :type 'regexp)
 
 (defcustom gnus-score-default-header nil
   :type 'regexp)
 
 (defcustom gnus-score-default-header nil
@@ -291,7 +298,7 @@ Should be one of the following symbols.
  f: followup
 
 If nil, the user will be asked for a header."
  f: followup
 
 If nil, the user will be asked for a header."
-  :group 'gnus-score
+  :group 'gnus-score-default
   :type '(choice (const :tag "from" a)
                 (const :tag "subject" s)
                 (const :tag "body" b)
   :type '(choice (const :tag "from" a)
                 (const :tag "subject" s)
                 (const :tag "body" b)
@@ -301,7 +308,8 @@ If nil, the user will be asked for a header."
                 (const :tag "xref" x)
                 (const :tag "lines" l)
                 (const :tag "date" d)
                 (const :tag "xref" x)
                 (const :tag "lines" l)
                 (const :tag "date" d)
-                (const :tag "followup" f)))
+                (const :tag "followup" f)
+                (const :tag "ask" nil)))
 
 (defcustom gnus-score-default-type nil
   "Default match type when entering new scores.
 
 (defcustom gnus-score-default-type nil
   "Default match type when entering new scores.
@@ -320,7 +328,7 @@ Should be one of the following symbols.
  =: equal to number
 
 If nil, the user will be asked for a match type."
  =: equal to number
 
 If nil, the user will be asked for a match type."
-  :group 'gnus-score
+  :group 'gnus-score-default
   :type '(choice (const :tag "substring" s)
                 (const :tag "exact string" e)
                 (const :tag "fuzzy string" f)
   :type '(choice (const :tag "substring" s)
                 (const :tag "exact string" e)
                 (const :tag "fuzzy string" f)
@@ -330,11 +338,12 @@ If nil, the user will be asked for a match type."
                 (const :tag "this date" n)
                 (const :tag "less than number" <)
                 (const :tag "greater than number" >)
                 (const :tag "this date" n)
                 (const :tag "less than number" <)
                 (const :tag "greater than number" >)
-                (const :tag "equal than number" =)))
+                (const :tag "equal than number" =)
+                (const :tag "ask" nil)))
 
 (defcustom gnus-score-default-fold nil
   "Use case folding for new score file entries iff not nil."
 
 (defcustom gnus-score-default-fold nil
   "Use case folding for new score file entries iff not nil."
-  :group 'gnus-score
+  :group 'gnus-score-default
   :type 'boolean)
 
 (defcustom gnus-score-default-duration nil
   :type 'boolean)
 
 (defcustom gnus-score-default-duration nil
@@ -347,14 +356,15 @@ Should be one of the following symbols.
  i: immediate
 
 If nil, the user will be asked for a duration."
  i: immediate
 
 If nil, the user will be asked for a duration."
-  :group 'gnus-score
+  :group 'gnus-score-default
   :type '(choice (const :tag "temporary" t)
                 (const :tag "permanent" p)
   :type '(choice (const :tag "temporary" t)
                 (const :tag "permanent" p)
-                (const :tag "immediate" i)))
+                (const :tag "immediate" i)
+                (const :tag "ask" nil)))
 
 (defcustom gnus-score-after-write-file-function nil
   "Function called with the name of the score file just written to disk."
 
 (defcustom gnus-score-after-write-file-function nil
   "Function called with the name of the score file just written to disk."
-  :group 'gnus-score
+  :group 'gnus-score-files
   :type 'function)
 
 \f
   :type 'function)
 
 \f
@@ -384,7 +394,7 @@ If nil, the user will be asked for a duration."
 
 (defvar gnus-score-alist nil
   "Alist containing score information.
 
 (defvar gnus-score-alist nil
   "Alist containing score information.
-The keys can be symbols or strings.  The following symbols are defined. 
+The keys can be symbols or strings.  The following symbols are defined.
 
 touched: If this alist has been modified.
 mark:    Automatically mark articles below this.
 
 touched: If this alist has been modified.
 mark:    Automatically mark articles below this.
@@ -442,13 +452,13 @@ of the last successful match.")
 ;; Much modification of the kill (ahem, score) code and lots of the
 ;; functions are written by Per Abrahamsen <amanda@iesd.auc.dk>.
 
 ;; Much modification of the kill (ahem, score) code and lots of the
 ;; functions are written by Per Abrahamsen <amanda@iesd.auc.dk>.
 
-(defun gnus-summary-lower-score (&optional score)
+(defun gnus-summary-lower-score (&optional score symp)
   "Make a score entry based on the current article.
 The user will be prompted for header to score on, match type,
 permanence, and the string to be used.  The numerical prefix will be
 used as score."
   "Make a score entry based on the current article.
 The user will be prompted for header to score on, match type,
 permanence, and the string to be used.  The numerical prefix will be
 used as score."
-  (interactive "P")
-  (gnus-summary-increase-score (- (gnus-score-default score))))
+  (interactive (gnus-interactive "P\ny"))
+  (gnus-summary-increase-score (- (gnus-score-default score)) symp))
 
 (defun gnus-score-kill-help-buffer ()
   (when (get-buffer "*Score Help*")
 
 (defun gnus-score-kill-help-buffer ()
   (when (get-buffer "*Score Help*")
@@ -456,17 +466,16 @@ used as score."
     (when gnus-score-help-winconf
       (set-window-configuration gnus-score-help-winconf))))
 
     (when gnus-score-help-winconf
       (set-window-configuration gnus-score-help-winconf))))
 
-(defun gnus-summary-increase-score (&optional score)
+(defun gnus-summary-increase-score (&optional score symp)
   "Make a score entry based on the current article.
 The user will be prompted for header to score on, match type,
 permanence, and the string to be used.  The numerical prefix will be
 used as score."
   "Make a score entry based on the current article.
 The user will be prompted for header to score on, match type,
 permanence, and the string to be used.  The numerical prefix will be
 used as score."
-  (interactive "P")
-  (gnus-set-global-variables)
+  (interactive (gnus-interactive "P\ny"))
   (let* ((nscore (gnus-score-default score))
         (prefix (if (< nscore 0) ?L ?I))
         (increase (> nscore 0))
   (let* ((nscore (gnus-score-default score))
         (prefix (if (< nscore 0) ?L ?I))
         (increase (> nscore 0))
-        (char-to-header 
+        (char-to-header
          '((?a "from" nil nil string)
            (?s "subject" nil nil string)
            (?b "body" "" nil body-string)
          '((?a "from" nil nil string)
            (?s "subject" nil nil string)
            (?b "body" "" nil body-string)
@@ -491,25 +500,26 @@ used as score."
            (?< < "less than number" number)
            (?> > "greater than number" number)
            (?= = "equal to number" number)))
            (?< < "less than number" number)
            (?> > "greater than number" number)
            (?= = "equal to number" number)))
+        (current-score-file gnus-current-score-file)
         (char-to-perm
          (list (list ?t (current-time-string) "temporary")
                '(?p perm "permanent") '(?i now "immediate")))
         (mimic gnus-score-mimic-keymap)
         (char-to-perm
          (list (list ?t (current-time-string) "temporary")
                '(?p perm "permanent") '(?i now "immediate")))
         (mimic gnus-score-mimic-keymap)
-        (hchar (and gnus-score-default-header 
+        (hchar (and gnus-score-default-header
                     (aref (symbol-name gnus-score-default-header) 0)))
         (tchar (and gnus-score-default-type
                     (aref (symbol-name gnus-score-default-type) 0)))
         (pchar (and gnus-score-default-duration
                     (aref (symbol-name gnus-score-default-duration) 0)))
         entry temporary type match)
                     (aref (symbol-name gnus-score-default-header) 0)))
         (tchar (and gnus-score-default-type
                     (aref (symbol-name gnus-score-default-type) 0)))
         (pchar (and gnus-score-default-duration
                     (aref (symbol-name gnus-score-default-duration) 0)))
         entry temporary type match)
-    
+
     (unwind-protect
        (progn
 
          ;; First we read the header to score.
          (while (not hchar)
            (if mimic
     (unwind-protect
        (progn
 
          ;; First we read the header to score.
          (while (not hchar)
            (if mimic
-               (progn 
+               (progn
                  (sit-for 1)
                  (message "%c-" prefix))
              (message "%s header (%s?): " (if increase "Increase" "Lower")
                  (sit-for 1)
                  (message "%c-" prefix))
              (message "%s header (%s?): " (if increase "Increase" "Lower")
@@ -522,44 +532,41 @@ used as score."
 
          (gnus-score-kill-help-buffer)
          (unless (setq entry (assq (downcase hchar) char-to-header))
 
          (gnus-score-kill-help-buffer)
          (unless (setq entry (assq (downcase hchar) char-to-header))
-           (if mimic (error "%c %c" prefix hchar) (error "")))
+           (if mimic (error "%c %c" prefix hchar)
+             (error "Illegal header type")))
 
          (when (/= (downcase hchar) hchar)
            ;; This was a majuscule, so we end reading and set the defaults.
            (if mimic (message "%c %c" prefix hchar) (message ""))
            (setq tchar (or tchar ?s)
                  pchar (or pchar ?t)))
 
          (when (/= (downcase hchar) hchar)
            ;; This was a majuscule, so we end reading and set the defaults.
            (if mimic (message "%c %c" prefix hchar) (message ""))
            (setq tchar (or tchar ?s)
                  pchar (or pchar ?t)))
-    
-         ;; We continue reading - the type.
-         (while (not tchar)
-           (if mimic
-               (progn
-                 (sit-for 1) (message "%c %c-" prefix hchar))
-             (message "%s header '%s' with match type (%s?): "
-                      (if increase "Increase" "Lower")
-                      (nth 1 entry)
-                      (mapconcat (lambda (s)
-                                   (if (eq (nth 4 entry)
-                                           (nth 3 s))
-                                       (char-to-string (car s))
-                                     ""))
-                                 char-to-type "")))
-           (setq tchar (read-char))
-           (when (or (= tchar ??) (= tchar ?\C-h))
-             (setq tchar nil)
-             (gnus-score-insert-help
-              "Match type"
-              (delq nil
-                    (mapcar (lambda (s)
-                              (if (eq (nth 4 entry)
-                                      (nth 3 s))
-                                  s nil))
-                            char-to-type))
-              2)))
 
 
-         (gnus-score-kill-help-buffer)
-         (unless (setq type (nth 1 (assq (downcase tchar) char-to-type)))
-           (if mimic (error "%c %c" prefix hchar) (error "")))
+         (let ((legal-types
+                (delq nil
+                      (mapcar (lambda (s)
+                                (if (eq (nth 4 entry)
+                                        (nth 3 s))
+                                    s nil))
+                              char-to-type))))
+           ;; We continue reading - the type.
+           (while (not tchar)
+             (if mimic
+                 (progn
+                   (sit-for 1) (message "%c %c-" prefix hchar))
+               (message "%s header '%s' with match type (%s?): "
+                        (if increase "Increase" "Lower")
+                        (nth 1 entry)
+                        (mapconcat (lambda (s) (char-to-string (car s)))
+                                   legal-types "")))
+             (setq tchar (read-char))
+             (when (or (= tchar ??) (= tchar ?\C-h))
+               (setq tchar nil)
+               (gnus-score-insert-help "Match type" legal-types 2)))
+
+           (gnus-score-kill-help-buffer)
+           (unless (setq type (nth 1 (assq (downcase tchar) legal-types)))
+             (if mimic (error "%c %c" prefix hchar)
+               (error "Illegal match type"))))
 
          (when (/= (downcase tchar) tchar)
            ;; It was a majuscule, so we end reading and use the default.
 
          (when (/= (downcase tchar) tchar)
            ;; It was a majuscule, so we end reading and use the default.
@@ -590,27 +597,34 @@ used as score."
                       (eq tchar 114)
                       (eq (- pchar 4) 111))
              (error "You rang?"))
                       (eq tchar 114)
                       (eq (- pchar 4) 111))
              (error "You rang?"))
-           (if mimic 
+           (if mimic
                (error "%c %c %c %c" prefix hchar tchar pchar)
                (error "%c %c %c %c" prefix hchar tchar pchar)
-             (error ""))))
+             (error "Illegal match duration"))))
       ;; Always kill the score help buffer.
       (gnus-score-kill-help-buffer))
 
     ;; We have all the data, so we enter this score.
     (setq match (if (string= (nth 2 entry) "") ""
                  (gnus-summary-header (or (nth 2 entry) (nth 1 entry)))))
       ;; Always kill the score help buffer.
       (gnus-score-kill-help-buffer))
 
     ;; We have all the data, so we enter this score.
     (setq match (if (string= (nth 2 entry) "") ""
                  (gnus-summary-header (or (nth 2 entry) (nth 1 entry)))))
-      
+
     ;; Modify the match, perhaps.
     ;; Modify the match, perhaps.
-    (cond 
+    (cond
      ((equal (nth 1 entry) "xref")
       (when (string-match "^Xref: *" match)
        (setq match (substring match (match-end 0))))
       (when (string-match "^[^:]* +" match)
        (setq match (substring match (match-end 0))))))
      ((equal (nth 1 entry) "xref")
       (when (string-match "^Xref: *" match)
        (setq match (substring match (match-end 0))))
       (when (string-match "^[^:]* +" match)
        (setq match (substring match (match-end 0))))))
-    
+
     (when (memq type '(r R regexp Regexp))
       (setq match (regexp-quote match)))
 
     (when (memq type '(r R regexp Regexp))
       (setq match (regexp-quote match)))
 
+    ;; Change score file to the "all.SCORE" file.
+    (when (eq symp 'a)
+      (save-excursion
+       (set-buffer gnus-summary-buffer)
+       (gnus-score-load-file
+        (gnus-score-file-name "all"))))
+    
     (gnus-summary-score-entry
      (nth 1 entry)                     ; Header
      match                             ; Match
     (gnus-summary-score-entry
      (nth 1 entry)                     ; Header
      match                             ; Match
@@ -620,8 +634,13 @@ used as score."
         nil
        temporary)
      (not (nth 3 entry)))              ; Prompt
         nil
        temporary)
      (not (nth 3 entry)))              ; Prompt
-    ))
-  
+
+    (when (eq symp 'a)
+      ;; We change the score file back to the previous one.
+      (save-excursion
+       (set-buffer gnus-summary-buffer)
+       (gnus-score-load-file current-score-file)))))
+
 (defun gnus-score-insert-help (string alist idx)
   (setq gnus-score-help-winconf (current-window-configuration))
   (save-excursion
 (defun gnus-score-insert-help (string alist idx)
   (setq gnus-score-help-winconf (current-window-configuration))
   (save-excursion
@@ -643,7 +662,7 @@ used as score."
       (setq max (+ max 4))             ; %c, `:', SPACE, a SPACE at end
       (setq n (/ (1- (window-width)) max)) ; items per line
       (setq width (/ (1- (window-width)) n)) ; width of each item
       (setq max (+ max 4))             ; %c, `:', SPACE, a SPACE at end
       (setq n (/ (1- (window-width)) max)) ; items per line
       (setq width (/ (1- (window-width)) n)) ; width of each item
-      ;; insert `n' items, each in a field of width `width' 
+      ;; insert `n' items, each in a field of width `width'
       (while alist
        (if (< i n)
            ()
       (while alist
        (if (< i n)
            ()
@@ -662,7 +681,7 @@ used as score."
     (let ((window-min-height 1))
       (shrink-window-if-larger-than-buffer))
     (select-window (get-buffer-window gnus-summary-buffer))))
     (let ((window-min-height 1))
       (shrink-window-if-larger-than-buffer))
     (select-window (get-buffer-window gnus-summary-buffer))))
-  
+
 (defun gnus-summary-header (header &optional no-err)
   ;; Return HEADER for current articles, or error.
   (let ((article (gnus-summary-article-number))
 (defun gnus-summary-header (header &optional no-err)
   ;; Return HEADER for current articles, or error.
   (let ((article (gnus-summary-article-number))
@@ -680,7 +699,7 @@ used as score."
 
 (defun gnus-newsgroup-score-alist ()
   (or
 
 (defun gnus-newsgroup-score-alist ()
   (or
-   (let ((param-file (gnus-group-find-parameter 
+   (let ((param-file (gnus-group-find-parameter
                      gnus-newsgroup-name 'score-file)))
      (when param-file
        (gnus-score-load param-file)))
                      gnus-newsgroup-name 'score-file)))
      (when param-file
        (gnus-score-load param-file)))
@@ -690,8 +709,8 @@ used as score."
 
 (defsubst gnus-score-get (symbol &optional alist)
   ;; Get SYMBOL's definition in ALIST.
 
 (defsubst gnus-score-get (symbol &optional alist)
   ;; Get SYMBOL's definition in ALIST.
-  (cdr (assoc symbol 
-             (or alist 
+  (cdr (assoc symbol
+             (or alist
                  gnus-score-alist
                  (gnus-newsgroup-score-alist)))))
 
                  gnus-score-alist
                  (gnus-newsgroup-score-alist)))))
 
@@ -731,8 +750,8 @@ If optional argument `SILENT' is nil, show effect of score entry."
        (header (format "%s" (downcase header)))
        new)
     (when prompt
        (header (format "%s" (downcase header)))
        new)
     (when prompt
-      (setq match (read-string 
-                  (format "Match %s on %s, %s: " 
+      (setq match (read-string
+                  (format "Match %s on %s, %s: "
                           (cond ((eq date 'now)
                                  "now")
                                 ((stringp date)
                           (cond ((eq date 'now)
                                  "now")
                                 ((stringp date)
@@ -747,7 +766,7 @@ If optional argument `SILENT' is nil, show effect of score entry."
     ;; Get rid of string props.
     (setq match (format "%s" match))
 
     ;; Get rid of string props.
     (setq match (format "%s" match))
 
-    ;; If this is an integer comparison, we transform from string to int. 
+    ;; If this is an integer comparison, we transform from string to int.
     (when (eq (nth 2 (assoc header gnus-header-index)) 'gnus-score-integer)
       (setq match (string-to-int match)))
 
     (when (eq (nth 2 (assoc header gnus-header-index)) 'gnus-score-integer)
       (setq match (string-to-int match)))
 
@@ -758,7 +777,7 @@ If optional argument `SILENT' is nil, show effect of score entry."
       (let ((old (gnus-score-get header))
            elem)
        (setq new
       (let ((old (gnus-score-get header))
            elem)
        (setq new
-             (cond 
+             (cond
               (type
                (list match score
                      (and date (if (numberp date) date
               (type
                (list match score
                      (and date (if (numberp date) date
@@ -799,7 +818,7 @@ If optional argument `SILENT' is nil, show effect of score entry."
   "Simulate the effect of a score file entry.
 HEADER is the header being scored.
 MATCH is the string we are looking for.
   "Simulate the effect of a score file entry.
 HEADER is the header being scored.
 MATCH is the string we are looking for.
-TYPE is a flag indicating if it is a regexp or substring.
+TYPE is the score type.
 SCORE is the score to add."
   (interactive (list (completing-read "Header: "
                                      gnus-header-index
 SCORE is the score to add."
   (interactive (list (completing-read "Header: "
                                      gnus-header-index
@@ -818,7 +837,7 @@ SCORE is the score to add."
                         match)
                        ((eq type 'e)
                         (concat "\\`" (regexp-quote match) "\\'"))
                         match)
                        ((eq type 'e)
                         (concat "\\`" (regexp-quote match) "\\'"))
-                       (t 
+                       (t
                         (regexp-quote match)))))
       (while (not (eobp))
        (let ((content (gnus-summary-header header 'noerr))
                         (regexp-quote match)))))
       (while (not (eobp))
        (let ((content (gnus-summary-header header 'noerr))
@@ -829,7 +848,8 @@ SCORE is the score to add."
                                       regexp)
                       (string-match regexp content))
                 (gnus-summary-raise-score score))))
                                       regexp)
                       (string-match regexp content))
                 (gnus-summary-raise-score score))))
-       (beginning-of-line 2)))))
+       (beginning-of-line 2))))
+  (gnus-set-mode-line 'summary))
 
 (defun gnus-summary-score-crossposting (score date)
   ;; Enter score file entry for current crossposting.
 
 (defun gnus-summary-score-crossposting (score date)
   ;; Enter score file entry for current crossposting.
@@ -842,8 +862,8 @@ SCORE is the score to add."
       (error "This article is not crossposted"))
     (while (string-match " \\([^ \t]+\\):" xref start)
       (setq start (match-end 0))
       (error "This article is not crossposted"))
     (while (string-match " \\([^ \t]+\\):" xref start)
       (setq start (match-end 0))
-      (when (not (string= 
-                 (setq group 
+      (when (not (string=
+                 (setq group
                        (substring xref (match-beginning 1) (match-end 1)))
                  gnus-newsgroup-name))
        (gnus-summary-score-entry
                        (substring xref (match-beginning 1) (match-end 1)))
                  gnus-newsgroup-name))
        (gnus-summary-score-entry
@@ -859,7 +879,7 @@ SCORE is the score to add."
 ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
 (defun gnus-score-set-mark-below (score)
   "Automatically mark articles with score below SCORE as read."
 ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
 (defun gnus-score-set-mark-below (score)
   "Automatically mark articles with score below SCORE as read."
-  (interactive 
+  (interactive
    (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg))
             (string-to-int (read-string "Mark below: ")))))
   (setq score (or score gnus-summary-default-score 0))
    (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg))
             (string-to-int (read-string "Mark below: ")))))
   (setq score (or score gnus-summary-default-score 0))
@@ -893,7 +913,7 @@ SCORE is the score to add."
 
 (defun gnus-score-set-expunge-below (score)
   "Automatically expunge articles with score below SCORE."
 
 (defun gnus-score-set-expunge-below (score)
   "Automatically expunge articles with score below SCORE."
-  (interactive 
+  (interactive
    (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg))
             (string-to-int (read-string "Set expunge below: ")))))
   (setq score (or score gnus-summary-default-score 0))
    (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg))
             (string-to-int (read-string "Set expunge below: ")))))
   (setq score (or score gnus-summary-default-score 0))
@@ -932,8 +952,8 @@ SCORE is the score to add."
 
 (defun gnus-score-set (symbol value &optional alist)
   ;; Set SYMBOL to VALUE in ALIST.
 
 (defun gnus-score-set (symbol value &optional alist)
   ;; Set SYMBOL to VALUE in ALIST.
-  (let* ((alist 
-         (or alist 
+  (let* ((alist
+         (or alist
              gnus-score-alist
              (gnus-newsgroup-score-alist)))
         (entry (assoc symbol alist)))
              gnus-score-alist
              (gnus-newsgroup-score-alist)))
         (entry (assoc symbol alist)))
@@ -951,14 +971,12 @@ SCORE is the score to add."
 (defun gnus-summary-raise-score (n)
   "Raise the score of the current article by N."
   (interactive "p")
 (defun gnus-summary-raise-score (n)
   "Raise the score of the current article by N."
   (interactive "p")
-  (gnus-set-global-variables)
   (gnus-summary-set-score (+ (gnus-summary-article-score)
                             (or n gnus-score-interactive-default-score ))))
 
 (defun gnus-summary-set-score (n)
   "Set the score of the current article to N."
   (interactive "p")
   (gnus-summary-set-score (+ (gnus-summary-article-score)
                             (or n gnus-score-interactive-default-score ))))
 
 (defun gnus-summary-set-score (n)
   "Set the score of the current article to N."
   (interactive "p")
-  (gnus-set-global-variables)
   (save-excursion
     (gnus-summary-show-thread)
     (let ((buffer-read-only nil))
   (save-excursion
     (gnus-summary-show-thread)
     (let ((buffer-read-only nil))
@@ -977,12 +995,11 @@ SCORE is the score to add."
 (defun gnus-summary-current-score ()
   "Return the score of the current article."
   (interactive)
 (defun gnus-summary-current-score ()
   "Return the score of the current article."
   (interactive)
-  (gnus-set-global-variables)
   (gnus-message 1 "%s" (gnus-summary-article-score)))
 
 (defun gnus-score-change-score-file (file)
   "Change current score alist."
   (gnus-message 1 "%s" (gnus-summary-article-score)))
 
 (defun gnus-score-change-score-file (file)
   "Change current score alist."
-  (interactive 
+  (interactive
    (list (read-file-name "Change to score file: " gnus-kill-files-directory)))
   (gnus-score-load-file file)
   (gnus-set-mode-line 'summary))
    (list (read-file-name "Change to score file: " gnus-kill-files-directory)))
   (gnus-score-load-file file)
   (gnus-set-mode-line 'summary))
@@ -991,23 +1008,25 @@ SCORE is the score to add."
 (defun gnus-score-edit-current-scores (file)
   "Edit the current score alist."
   (interactive (list gnus-current-score-file))
 (defun gnus-score-edit-current-scores (file)
   "Edit the current score alist."
   (interactive (list gnus-current-score-file))
-  (let ((winconf (current-window-configuration)))
-    (when (buffer-name gnus-summary-buffer)
-      (gnus-score-save))
-    (gnus-make-directory (file-name-directory file))
-    (setq gnus-score-edit-buffer (find-file-noselect file))
-    (gnus-configure-windows 'edit-score)
-    (gnus-score-mode)
-    (setq gnus-score-edit-exit-function 'gnus-score-edit-done)
-    (make-local-variable 'gnus-prev-winconf)
-    (setq gnus-prev-winconf winconf))
-  (gnus-message 
-   4 (substitute-command-keys 
-      "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits")))
-  
+  (if (not gnus-current-score-file)
+      (error "No current score file")
+    (let ((winconf (current-window-configuration)))
+      (when (buffer-name gnus-summary-buffer)
+       (gnus-score-save))
+      (gnus-make-directory (file-name-directory file))
+      (setq gnus-score-edit-buffer (find-file-noselect file))
+      (gnus-configure-windows 'edit-score)
+      (gnus-score-mode)
+      (setq gnus-score-edit-exit-function 'gnus-score-edit-done)
+      (make-local-variable 'gnus-prev-winconf)
+      (setq gnus-prev-winconf winconf))
+    (gnus-message
+     4 (substitute-command-keys
+       "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits"))))
+
 (defun gnus-score-edit-file (file)
   "Edit a score file."
 (defun gnus-score-edit-file (file)
   "Edit a score file."
-  (interactive 
+  (interactive
    (list (read-file-name "Edit score file: " gnus-kill-files-directory)))
   (gnus-make-directory (file-name-directory file))
   (when (buffer-name gnus-summary-buffer)
    (list (read-file-name "Edit score file: " gnus-kill-files-directory)))
   (gnus-make-directory (file-name-directory file))
   (when (buffer-name gnus-summary-buffer)
@@ -1019,13 +1038,13 @@ SCORE is the score to add."
     (setq gnus-score-edit-exit-function 'gnus-score-edit-done)
     (make-local-variable 'gnus-prev-winconf)
     (setq gnus-prev-winconf winconf))
     (setq gnus-score-edit-exit-function 'gnus-score-edit-done)
     (make-local-variable 'gnus-prev-winconf)
     (setq gnus-prev-winconf winconf))
-  (gnus-message 
-   4 (substitute-command-keys 
+  (gnus-message
+   4 (substitute-command-keys
       "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits")))
       "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits")))
-  
+
 (defun gnus-score-load-file (file)
   ;; Load score file FILE.  Returns a list a retrieved score-alists.
 (defun gnus-score-load-file (file)
   ;; Load score file FILE.  Returns a list a retrieved score-alists.
-  (let* ((file (expand-file-name 
+  (let* ((file (expand-file-name
                (or (and (string-match
                          (concat "^" (expand-file-name
                                       gnus-kill-files-directory))
                (or (and (string-match
                          (concat "^" (expand-file-name
                                       gnus-kill-files-directory))
@@ -1043,7 +1062,7 @@ SCORE is the score to add."
       (setq gnus-score-alist nil)
       (setq alist (gnus-score-load-score-alist file))
       ;; We add '(touched) to the alist to signify that it hasn't been
       (setq gnus-score-alist nil)
       (setq alist (gnus-score-load-score-alist file))
       ;; We add '(touched) to the alist to signify that it hasn't been
-      ;; touched (yet). 
+      ;; touched (yet).
       (unless (assq 'touched alist)
        (push (list 'touched nil) alist))
       ;; If it is a global score file, we make it read-only.
       (unless (assq 'touched alist)
        (push (list 'touched nil) alist))
       ;; If it is a global score file, we make it read-only.
@@ -1079,29 +1098,30 @@ SCORE is the score to add."
          (eval (car (gnus-score-get 'eval alist))))
       ;; Perform possible decays.
       (when (and gnus-decay-scores
          (eval (car (gnus-score-get 'eval alist))))
       ;; Perform possible decays.
       (when (and gnus-decay-scores
-                (gnus-decay-scores 
-                 alist (or decay (gnus-time-to-day (current-time)))))
+                (or cached (file-exists-p file))
+                (or (not decay)
+                    (gnus-decay-scores alist decay)))
        (gnus-score-set 'touched '(t) alist)
        (gnus-score-set 'decay (list (gnus-time-to-day (current-time)))))
       ;; We do not respect eval and files atoms from global score
        (gnus-score-set 'touched '(t) alist)
        (gnus-score-set 'decay (list (gnus-time-to-day (current-time)))))
       ;; We do not respect eval and files atoms from global score
-      ;; files. 
-      (and files (not global)
-          (setq lists (apply 'append lists
-                             (mapcar (lambda (file)
-                                       (gnus-score-load-file file))
-                                     (if adapt-file (cons adapt-file files)
-                                       files)))))
-      (and eval (not global) (eval eval))
+      ;; files.
+      (when (and files (not global))
+       (setq lists (apply 'append lists
+                          (mapcar (lambda (file)
+                                    (gnus-score-load-file file))
+                                  (if adapt-file (cons adapt-file files)
+                                    files)))))
+      (when (and eval (not global))
+       (eval eval))
       ;; We then expand any exclude-file directives.
       ;; We then expand any exclude-file directives.
-      (setq gnus-scores-exclude-files 
-           (nconc 
-            (mapcar 
+      (setq gnus-scores-exclude-files
+           (nconc
+            (mapcar
              (lambda (sfile)
                (expand-file-name sfile (file-name-directory file)))
              exclude-files)
             gnus-scores-exclude-files))
              (lambda (sfile)
                (expand-file-name sfile (file-name-directory file)))
              exclude-files)
             gnus-scores-exclude-files))
-      (if (not local)
-         ()
+      (unless local
        (save-excursion
          (set-buffer gnus-summary-buffer)
          (while local
        (save-excursion
          (set-buffer gnus-summary-buffer)
          (while local
@@ -1125,13 +1145,13 @@ SCORE is the score to add."
                  (t
                   ;;(setq gnus-newsgroup-adaptive gnus-use-adaptive-scoring)
                   gnus-default-adaptive-score-alist)))
                  (t
                   ;;(setq gnus-newsgroup-adaptive gnus-use-adaptive-scoring)
                   gnus-default-adaptive-score-alist)))
-      (setq gnus-thread-expunge-below 
+      (setq gnus-thread-expunge-below
            (or thread-mark-and-expunge gnus-thread-expunge-below))
            (or thread-mark-and-expunge gnus-thread-expunge-below))
-      (setq gnus-summary-mark-below 
+      (setq gnus-summary-mark-below
            (or mark mark-and-expunge gnus-summary-mark-below))
            (or mark mark-and-expunge gnus-summary-mark-below))
-      (setq gnus-summary-expunge-below 
+      (setq gnus-summary-expunge-below
            (or expunge mark-and-expunge gnus-summary-expunge-below))
            (or expunge mark-and-expunge gnus-summary-expunge-below))
-      (setq gnus-newsgroup-adaptive-score-file 
+      (setq gnus-newsgroup-adaptive-score-file
            (or adapt-file gnus-newsgroup-adaptive-score-file)))
     (setq gnus-current-score-file file)
     (setq gnus-score-alist alist)
            (or adapt-file gnus-newsgroup-adaptive-score-file)))
     (setq gnus-current-score-file file)
     (setq gnus-score-alist alist)
@@ -1149,7 +1169,7 @@ SCORE is the score to add."
       (push (cons file gnus-score-alist) gnus-score-cache))))
 
 (defun gnus-score-remove-from-cache (file)
       (push (cons file gnus-score-alist) gnus-score-cache))))
 
 (defun gnus-score-remove-from-cache (file)
-  (setq gnus-score-cache 
+  (setq gnus-score-cache
        (delq (assoc file gnus-score-cache) gnus-score-cache)))
 
 (defun gnus-score-load-score-alist (file)
        (delq (assoc file gnus-score-cache) gnus-score-cache)))
 
 (defun gnus-score-load-score-alist (file)
@@ -1168,7 +1188,7 @@ SCORE is the score to add."
          (setq alist
                (condition-case ()
                    (read (current-buffer))
          (setq alist
                (condition-case ()
                    (read (current-buffer))
-                 (error 
+                 (error
                   (gnus-error 3.2 "Problem with score file %s" file))))))
       (if (eq (car alist) 'setq)
          ;; This is an old-style score file.
                   (gnus-error 3.2 "Problem with score file %s" file))))))
       (if (eq (car alist) 'setq)
          ;; This is an old-style score file.
@@ -1180,7 +1200,7 @@ SCORE is the score to add."
 
 (defun gnus-score-check-syntax (alist file)
   "Check the syntax of the score ALIST."
 
 (defun gnus-score-check-syntax (alist file)
   "Check the syntax of the score ALIST."
-  (cond 
+  (cond
    ((null alist)
     nil)
    ((not (consp alist))
    ((null alist)
     nil)
    ((not (consp alist))
@@ -1197,14 +1217,14 @@ SCORE is the score to add."
          ((not (listp (car a)))
           (format "Illegal score element %s in %s" (car a) file))
          ((stringp (caar a))
          ((not (listp (car a)))
           (format "Illegal score element %s in %s" (car a) file))
          ((stringp (caar a))
-          (cond 
+          (cond
            ((not (listp (setq sr (cdar a))))
             (format "Illegal header match %s in %s" (nth 1 (car a)) file))
            (t
             (setq type (caar a))
             (while (and sr (not err))
               (setq s (pop sr))
            ((not (listp (setq sr (cdar a))))
             (format "Illegal header match %s in %s" (nth 1 (car a)) file))
            (t
             (setq type (caar a))
             (while (and sr (not err))
               (setq s (pop sr))
-              (setq 
+              (setq
                err
                (cond
                 ((if (member (downcase type) '("lines" "chars"))
                err
                (cond
                 ((if (member (downcase type) '("lines" "chars"))
@@ -1250,7 +1270,7 @@ SCORE is the score to add."
              out))
       (setq alist (cdr alist)))
     (cons (list 'touched t) (nreverse out))))
              out))
       (setq alist (cdr alist)))
     (cons (list 'touched t) (nreverse out))))
-  
+
 (defun gnus-score-save ()
   ;; Save all score information.
   (let ((cache gnus-score-cache)
 (defun gnus-score-save ()
   ;; Save all score information.
   (let ((cache gnus-score-cache)
@@ -1271,22 +1291,21 @@ SCORE is the score to add."
          (setq score (setcdr entry (delq (assq 'touched score) score)))
          (erase-buffer)
          (let (emacs-lisp-mode-hook)
          (setq score (setcdr entry (delq (assq 'touched score) score)))
          (erase-buffer)
          (let (emacs-lisp-mode-hook)
-           (if (string-match 
-                (concat (regexp-quote gnus-adaptive-file-suffix)
-                        "$")
+           (if (string-match
+                (concat (regexp-quote gnus-adaptive-file-suffix) "$")
                 file)
                ;; This is an adaptive score file, so we do not run
                ;; it through `pp'.  These files can get huge, and
                ;; are not meant to be edited by human hands.
                (gnus-prin1 score)
              ;; This is a normal score file, so we print it very
                 file)
                ;; This is an adaptive score file, so we do not run
                ;; it through `pp'.  These files can get huge, and
                ;; are not meant to be edited by human hands.
                (gnus-prin1 score)
              ;; This is a normal score file, so we print it very
-             ;; prettily. 
+             ;; prettily.
              (pp score (current-buffer))))
          (gnus-make-directory (file-name-directory file))
          ;; If the score file is empty, we delete it.
          (if (zerop (buffer-size))
              (delete-file file)
              (pp score (current-buffer))))
          (gnus-make-directory (file-name-directory file))
          ;; If the score file is empty, we delete it.
          (if (zerop (buffer-size))
              (delete-file file)
-           ;; There are scores, so we write the file. 
+           ;; There are scores, so we write the file.
            (when (file-writable-p file)
              (gnus-write-buffer file)
              (when gnus-score-after-write-file-function
            (when (file-writable-p file)
              (gnus-write-buffer file)
              (when gnus-score-after-write-file-function
@@ -1356,12 +1375,14 @@ SCORE is the score to add."
          (save-excursion
            (set-buffer (get-buffer-create "*Headers*"))
            (buffer-disable-undo (current-buffer))
          (save-excursion
            (set-buffer (get-buffer-create "*Headers*"))
            (buffer-disable-undo (current-buffer))
+           (when (gnus-buffer-live-p gnus-summary-buffer)
+             (message-clone-locals gnus-summary-buffer))
 
            ;; Set the global variant of this variable.
            (setq gnus-current-score-file current-score-file)
            ;; score orphans
 
            ;; Set the global variant of this variable.
            (setq gnus-current-score-file current-score-file)
            ;; score orphans
-           (when gnus-orphan-score 
-             (setq gnus-score-index 
+           (when gnus-orphan-score
+             (setq gnus-score-index
                    (nth 1 (assoc "references" gnus-header-index)))
              (gnus-score-orphans gnus-orphan-score))
            ;; Run each header through the score process.
                    (nth 1 (assoc "references" gnus-header-index)))
              (gnus-score-orphans gnus-orphan-score))
            ;; Run each header through the score process.
@@ -1396,7 +1417,7 @@ SCORE is the score to add."
                (when (listp (caar score))
                  (gnus-score-advanced (car score) trace))
                (pop score))))
                (when (listp (caar score))
                  (gnus-score-advanced (car score) trace))
                (pop score))))
-               
+
          (gnus-message 5 "Scoring...done"))))))
 
 
          (gnus-message 5 "Scoring...done"))))))
 
 
@@ -1417,7 +1438,7 @@ SCORE is the score to add."
 (defun gnus-score-orphans (score)
   (let ((new-thread-ids (gnus-get-new-thread-ids gnus-scores-articles))
         alike articles art arts this last this-id)
 (defun gnus-score-orphans (score)
   (let ((new-thread-ids (gnus-get-new-thread-ids gnus-scores-articles))
         alike articles art arts this last this-id)
-    
+
     (setq gnus-scores-articles (sort gnus-scores-articles 'gnus-score-string<)
          articles gnus-scores-articles)
 
     (setq gnus-scores-articles (sort gnus-scores-articles 'gnus-score-string<)
          articles gnus-scores-articles)
 
@@ -1466,7 +1487,7 @@ SCORE is the score to add."
                            arts (cdr arts))
                      (setcdr art (+ score (cdr art))))
                    (forward-line))))))
                            arts (cdr arts))
                      (setcdr art (+ score (cdr art))))
                    (forward-line))))))
-             
+
 
 (defun gnus-score-integer (scores header now expire &optional trace)
   (let ((gnus-score-index (nth 1 (assoc header gnus-header-index)))
 
 (defun gnus-score-integer (scores header now expire &optional trace)
   (let ((gnus-score-index (nth 1 (assoc header gnus-header-index)))
@@ -1496,10 +1517,10 @@ SCORE is the score to add."
          ;; matches on numbers that any cleverness will take more
          ;; time than one would gain.
          (while articles
          ;; matches on numbers that any cleverness will take more
          ;; time than one would gain.
          (while articles
-           (when (funcall match-func 
+           (when (funcall match-func
                           (or (aref (caar articles) gnus-score-index) 0)
                           match)
                           (or (aref (caar articles) gnus-score-index) 0)
                           match)
-             (when trace 
+             (when trace
                (push (cons (car-safe (rassq alist gnus-score-cache)) kill)
                      gnus-score-trace))
              (setq found t)
                (push (cons (car-safe (rassq alist gnus-score-cache)) kill)
                      gnus-score-trace))
              (setq found t)
@@ -1597,7 +1618,7 @@ SCORE is the score to add."
          (setq last (mail-header-number (caar (last articles))))
          ;; Not all backends support partial fetching.  In that case,
          ;; we just fetch the entire article.
          (setq last (mail-header-number (caar (last articles))))
          ;; Not all backends support partial fetching.  In that case,
          ;; we just fetch the entire article.
-         (unless (gnus-check-backend-function 
+         (unless (gnus-check-backend-function
                   (and (string-match "^gnus-" (symbol-name request-func))
                        (intern (substring (symbol-name request-func)
                                           (match-end 0))))
                   (and (string-match "^gnus-" (symbol-name request-func))
                        (intern (substring (symbol-name request-func)
                                           (match-end 0))))
@@ -1635,10 +1656,10 @@ SCORE is the score to add."
                                    gnus-score-interactive-default-score))
                         (date (nth 2 kill))
                         (found nil)
                                    gnus-score-interactive-default-score))
                         (date (nth 2 kill))
                         (found nil)
-                        (case-fold-search 
+                        (case-fold-search
                          (not (or (eq type 'R) (eq type 'S)
                                   (eq type 'Regexp) (eq type 'String))))
                          (not (or (eq type 'R) (eq type 'S)
                                   (eq type 'Regexp) (eq type 'String))))
-                        (search-func 
+                        (search-func
                          (cond ((or (eq type 'r) (eq type 'R)
                                     (eq type 'regexp) (eq type 'Regexp))
                                 're-search-forward)
                          (cond ((or (eq type 'r) (eq type 'R)
                                     (eq type 'regexp) (eq type 'Regexp))
                                 're-search-forward)
@@ -1660,7 +1681,7 @@ SCORE is the score to add."
                    (unless trace
                      (cond
                       ((null date))    ;Permanent entry.
                    (unless trace
                      (cond
                       ((null date))    ;Permanent entry.
-                      ((and found gnus-update-score-entry-dates) 
+                      ((and found gnus-update-score-entry-dates)
                        ;; Match, update date.
                        (gnus-score-set 'touched '(t) alist)
                        (setcar (nthcdr 2 kill) now))
                        ;; Match, update date.
                        (gnus-score-set 'touched '(t) alist)
                        (setcar (nthcdr 2 kill) now))
@@ -1690,7 +1711,7 @@ SCORE is the score to add."
       (set-buffer gnus-summary-buffer)
       (gnus-score-load-file
        (or gnus-newsgroup-adaptive-score-file
       (set-buffer gnus-summary-buffer)
       (gnus-score-load-file
        (or gnus-newsgroup-adaptive-score-file
-          (gnus-score-file-name 
+          (gnus-score-file-name
            gnus-newsgroup-name gnus-adaptive-file-suffix))))
 
     (setq gnus-scores-articles (sort gnus-scores-articles 'gnus-score-string<)
            gnus-newsgroup-name gnus-adaptive-file-suffix))))
 
     (setq gnus-scores-articles (sort gnus-scores-articles 'gnus-score-string<)
@@ -1711,7 +1732,7 @@ SCORE is the score to add."
     (when last                         ; Bwadr, duplicate code.
       (insert last ?\n)
       (put-text-property (1- (point)) (point) 'articles alike))
     (when last                         ; Bwadr, duplicate code.
       (insert last ?\n)
       (put-text-property (1- (point)) (point) 'articles alike))
-  
+
     ;; Find matches.
     (while scores
       (setq alist (car scores)
     ;; Find matches.
     (while scores
       (setq alist (car scores)
@@ -1726,10 +1747,10 @@ SCORE is the score to add."
               (date (nth 2 kill))
               (found nil)
               (mt (aref (symbol-name type) 0))
               (date (nth 2 kill))
               (found nil)
               (mt (aref (symbol-name type) 0))
-              (case-fold-search 
+              (case-fold-search
                (not (or (= mt ?R) (= mt ?S) (= mt ?E) (= mt ?F))))
               (dmt (downcase mt))
                (not (or (= mt ?R) (= mt ?S) (= mt ?E) (= mt ?F))))
               (dmt (downcase mt))
-              (search-func 
+              (search-func
                (cond ((= dmt ?r) 're-search-forward)
                      ((or (= dmt ?e) (= dmt ?s) (= dmt ?f)) 'search-forward)
                      (t (error "Illegal match type: %s" type))))
                (cond ((= dmt ?r) 're-search-forward)
                      ((or (= dmt ?e) (= dmt ?s) (= dmt ?f)) 'search-forward)
                      (t (error "Illegal match type: %s" type))))
@@ -1742,13 +1763,13 @@ SCORE is the score to add."
                     (= (progn (end-of-line) (point))
                        (match-end 0))
                     (progn
                     (= (progn (end-of-line) (point))
                        (match-end 0))
                     (progn
-                      (setq found (setq arts (get-text-property 
+                      (setq found (setq arts (get-text-property
                                               (point) 'articles)))
                       ;; Found a match, update scores.
                       (while arts
                         (setq art (car arts)
                               arts (cdr arts))
                                               (point) 'articles)))
                       ;; Found a match, update scores.
                       (while arts
                         (setq art (car arts)
                               arts (cdr arts))
-                        (gnus-score-add-followups 
+                        (gnus-score-add-followups
                          (car art) score all-scores thread))))
                (end-of-line))
            (while (funcall search-func match nil t)
                          (car art) score all-scores thread))))
                (end-of-line))
            (while (funcall search-func match nil t)
@@ -1790,7 +1811,7 @@ SCORE is the score to add."
             (assoc id entry)
             (setq dont t)))
       (unless dont
             (assoc id entry)
             (setq dont t)))
       (unless dont
-       (gnus-summary-score-entry 
+       (gnus-summary-score-entry
         (if thread "thread" "references")
         id 's score (current-time-string) nil t)))))
 
         (if thread "thread" "references")
         id 's score (current-time-string) nil t)))))
 
@@ -1798,11 +1819,11 @@ SCORE is the score to add."
   ;; Score ARTICLES according to HEADER in SCORE-LIST.
   ;; Update matching entries to NOW and remove unmatched entries older
   ;; than EXPIRE.
   ;; Score ARTICLES according to HEADER in SCORE-LIST.
   ;; Update matching entries to NOW and remove unmatched entries older
   ;; than EXPIRE.
-  
+
   ;; Insert the unique article headers in the buffer.
   (let ((gnus-score-index (nth 1 (assoc header gnus-header-index)))
        ;; gnus-score-index is used as a free variable.
   ;; Insert the unique article headers in the buffer.
   (let ((gnus-score-index (nth 1 (assoc header gnus-header-index)))
        ;; gnus-score-index is used as a free variable.
-       alike last this art entries alist articles 
+       alike last this art entries alist articles
        fuzzies arts words kill)
 
     ;; Sorting the articles costs os O(N*log N) but will allow us to
        fuzzies arts words kill)
 
     ;; Sorting the articles costs os O(N*log N) but will allow us to
@@ -1850,7 +1871,7 @@ SCORE is the score to add."
               (mt (aref (symbol-name type) 0))
               (case-fold-search (not (memq mt '(?R ?S ?E ?F))))
               (dmt (downcase mt))
               (mt (aref (symbol-name type) 0))
               (case-fold-search (not (memq mt '(?R ?S ?E ?F))))
               (dmt (downcase mt))
-              (search-func 
+              (search-func
                (cond ((= dmt ?r) 're-search-forward)
                      ((or (= dmt ?e) (= dmt ?s) (= dmt ?f)) 'search-forward)
                      ((= dmt ?w) nil)
                (cond ((= dmt ?r) 're-search-forward)
                      ((or (= dmt ?e) (= dmt ?s) (= dmt ?f)) 'search-forward)
                      ((= dmt ?w) nil)
@@ -1873,14 +1894,14 @@ SCORE is the score to add."
                   (= (gnus-point-at-bol) (match-beginning 0))
                   ;; Yup.
                   (progn
                   (= (gnus-point-at-bol) (match-beginning 0))
                   ;; Yup.
                   (progn
-                    (setq found (setq arts (get-text-property 
+                    (setq found (setq arts (get-text-property
                                             (point) 'articles)))
                     ;; Found a match, update scores.
                     (if trace
                         (while (setq art (pop arts))
                           (setcdr art (+ score (cdr art)))
                           (push
                                             (point) 'articles)))
                     ;; Found a match, update scores.
                     (if trace
                         (while (setq art (pop arts))
                           (setcdr art (+ score (cdr art)))
                           (push
-                           (cons 
+                           (cons
                             (car-safe (rassq alist gnus-score-cache))
                             kill)
                            gnus-score-trace))
                             (car-safe (rassq alist gnus-score-cache))
                             kill)
                            gnus-score-trace))
@@ -1909,7 +1930,7 @@ SCORE is the score to add."
          ;; Update expiry date
          (if trace
              (setq entries (cdr entries))
          ;; Update expiry date
          (if trace
              (setq entries (cdr entries))
-           (cond 
+           (cond
             ;; Permanent entry.
             ((null date)
              (setq entries (cdr entries)))
             ;; Permanent entry.
             ((null date)
              (setq entries (cdr entries)))
@@ -1948,7 +1969,7 @@ SCORE is the score to add."
                  (while (setq art (pop arts))
                    (setcdr art (+ score (cdr art)))
                    (push (cons
                  (while (setq art (pop arts))
                    (setcdr art (+ score (cdr art)))
                    (push (cons
-                          (car-safe (rassq (cdar fuzzies) gnus-score-cache)) 
+                          (car-safe (rassq (cdar fuzzies) gnus-score-cache))
                           kill)
                          gnus-score-trace))
                ;; Found a match, update scores.
                           kill)
                          gnus-score-trace))
                ;; Found a match, update scores.
@@ -2019,7 +2040,7 @@ SCORE is the score to add."
          (set-syntax-table gnus-adaptive-word-syntax-table)
          (while (re-search-forward "\\b\\w+\\b" nil t)
            (setq val
          (set-syntax-table gnus-adaptive-word-syntax-table)
          (while (re-search-forward "\\b\\w+\\b" nil t)
            (setq val
-                 (gnus-gethash 
+                 (gnus-gethash
                   (setq word (downcase (buffer-substring
                                         (match-beginning 0) (match-end 0))))
                   hashtb))
                   (setq word (downcase (buffer-substring
                                         (match-beginning 0) (match-end 0))))
                   hashtb))
@@ -2042,29 +2063,30 @@ SCORE is the score to add."
 
 (defun gnus-current-score-file-nondirectory (&optional score-file)
   (let ((score-file (or score-file gnus-current-score-file)))
 
 (defun gnus-current-score-file-nondirectory (&optional score-file)
   (let ((score-file (or score-file gnus-current-score-file)))
-    (if score-file 
+    (if score-file
        (gnus-short-group-name (file-name-nondirectory score-file))
       "none")))
 
 (defun gnus-score-adaptive ()
   "Create adaptive score rules for this newsgroup."
        (gnus-short-group-name (file-name-nondirectory score-file))
       "none")))
 
 (defun gnus-score-adaptive ()
   "Create adaptive score rules for this newsgroup."
-  (when gnus-use-adaptive-scoring
+  (when gnus-newsgroup-adaptive
     ;; We change the score file to the adaptive score file.
     (save-excursion
       (set-buffer gnus-summary-buffer)
     ;; We change the score file to the adaptive score file.
     (save-excursion
       (set-buffer gnus-summary-buffer)
-      (gnus-score-load-file 
+      (gnus-score-load-file
        (or gnus-newsgroup-adaptive-score-file
        (or gnus-newsgroup-adaptive-score-file
-          (gnus-score-file-name 
+          (gnus-home-score-file gnus-newsgroup-name t)
+          (gnus-score-file-name
            gnus-newsgroup-name gnus-adaptive-file-suffix))))
     ;; Perform ordinary line scoring.
            gnus-newsgroup-name gnus-adaptive-file-suffix))))
     ;; Perform ordinary line scoring.
-    (when (or (not (listp gnus-use-adaptive-scoring))
-             (memq 'line gnus-use-adaptive-scoring))
+    (when (or (not (listp gnus-newsgroup-adaptive))
+             (memq 'line gnus-newsgroup-adaptive))
       (save-excursion
        (let* ((malist (gnus-copy-sequence gnus-adaptive-score-alist))
               (alist malist)
               (date (current-time-string))
               (data gnus-newsgroup-data)
       (save-excursion
        (let* ((malist (gnus-copy-sequence gnus-adaptive-score-alist))
               (alist malist)
               (date (current-time-string))
               (data gnus-newsgroup-data)
-              elem headers match)
+              elem headers match func)
          ;; First we transform the adaptive rule alist into something
          ;; that's faster to process.
          (while malist
          ;; First we transform the adaptive rule alist into something
          ;; that's faster to process.
          (while malist
@@ -2073,19 +2095,21 @@ SCORE is the score to add."
              (setcar elem (symbol-value (car elem))))
            (setq elem (cdr elem))
            (while elem
              (setcar elem (symbol-value (car elem))))
            (setq elem (cdr elem))
            (while elem
-             (setcdr (car elem)
-                     (cons (if (eq (caar elem) 'followup)
-                               "references"
-                             (symbol-name (caar elem)))
-                           (cdar elem)))
-             (setcar (car elem)
-                     `(lambda (h)
-                        (,(intern 
-                           (concat "mail-header-" 
+             (when (fboundp
+                    (setq func
+                          (intern
+                           (concat "mail-header-"
                                    (if (eq (caar elem) 'followup)
                                        "message-id"
                                    (if (eq (caar elem) 'followup)
                                        "message-id"
-                                     (downcase (symbol-name (caar elem))))))
-                         h)))
+                                     (downcase (symbol-name (caar elem))))))))
+               (setcdr (car elem)
+                       (cons (if (eq (caar elem) 'followup)
+                                 "references"
+                               (symbol-name (caar elem)))
+                             (cdar elem)))
+               (setcar (car elem)
+                       `(lambda (h)
+                          (,func h))))
              (setq elem (cdr elem)))
            (setq malist (cdr malist)))
          ;; Then we score away.
              (setq elem (cdr elem)))
            (setq malist (cdr malist)))
          ;; Then we score away.
@@ -2095,9 +2119,9 @@ SCORE is the score to add."
                    (gnus-data-pseudo-p (car data)))
                ()
              (when (setq headers (gnus-data-header (car data)))
                    (gnus-data-pseudo-p (car data)))
                ()
              (when (setq headers (gnus-data-header (car data)))
-               (while elem 
+               (while elem
                  (setq match (funcall (caar elem) headers))
                  (setq match (funcall (caar elem) headers))
-                 (gnus-summary-score-entry 
+                 (gnus-summary-score-entry
                   (nth 1 (car elem)) match
                   (cond
                    ((numberp match)
                   (nth 1 (car elem)) match
                   (cond
                    ((numberp match)
@@ -2106,10 +2130,10 @@ SCORE is the score to add."
                     'a)
                    (t
                     ;; Whether we use substring or exact matches is
                     'a)
                    (t
                     ;; Whether we use substring or exact matches is
-                    ;; controlled here.  
+                    ;; controlled here.
                     (if (or (not gnus-score-exact-adapt-limit)
                             (< (length match) gnus-score-exact-adapt-limit))
                     (if (or (not gnus-score-exact-adapt-limit)
                             (< (length match) gnus-score-exact-adapt-limit))
-                        'e 
+                        'e
                       (if (equal (nth 1 (car elem)) "subject")
                           'f 's))))
                   (nth 2 (car elem)) date nil t)
                       (if (equal (nth 1 (car elem)) "subject")
                           'f 's))))
                   (nth 2 (car elem)) date nil t)
@@ -2117,8 +2141,8 @@ SCORE is the score to add."
            (setq data (cdr data))))))
 
     ;; Perform adaptive word scoring.
            (setq data (cdr data))))))
 
     ;; Perform adaptive word scoring.
-    (when (and (listp gnus-use-adaptive-scoring)
-              (memq 'word gnus-use-adaptive-scoring))
+    (when (and (listp gnus-newsgroup-adaptive)
+              (memq 'word gnus-newsgroup-adaptive))
       (nnheader-temp-write nil
        (let* ((hashtb (gnus-make-hashtable 1000))
               (date (gnus-day-number (current-time-string)))
       (nnheader-temp-write nil
        (let* ((hashtb (gnus-make-hashtable 1000))
               (date (gnus-day-number (current-time-string)))
@@ -2133,7 +2157,7 @@ SCORE is the score to add."
                  (when (and
                         (not (gnus-data-pseudo-p d))
                         (setq score
                  (when (and
                         (not (gnus-data-pseudo-p d))
                         (setq score
-                              (cdr (assq 
+                              (cdr (assq
                                     (gnus-data-mark d)
                                     gnus-adaptive-word-score-alist))))
                    ;; This article has a mark that should lead to
                                     (gnus-data-mark d)
                                     gnus-adaptive-word-score-alist))))
                    ;; This article has a mark that should lead to
@@ -2176,24 +2200,31 @@ SCORE is the score to add."
 (defun gnus-score-find-trace ()
   "Find all score rules that applies to the current article."
   (interactive)
 (defun gnus-score-find-trace ()
   "Find all score rules that applies to the current article."
   (interactive)
-  (let ((gnus-newsgroup-headers
-        (list (gnus-summary-article-header)))
-     &