Re: score files... [patch]

[Sudish Joseph <sudish@mindspring.com>]

Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:
> This is now possible with the `gnus-home-score-file' alist. 

Cool!  It's somewhat ironic that ding provided so many hooks that were
needed in earlier versions--and removes the need for those hooks.

Since this is a new feature, can we make a small change?  The patch is
self-explanatory.  I hope no one is using this as yet/won't mind it
terribly.

(setq gnus-home-score-file gnus-score-file-single-match-alist) is
easier than maintaining two separate alists, for those that use both.

-Sudish


--- gnus-score.el~	Tue Aug 13 20:50:57 1996
+++ gnus-score.el	Tue Aug 13 20:50:57 1996
@@ -136,9 +136,11 @@
  * A list
    The elements in this list can be:
 
-   * `(regexp . file-name)'
-     If the `regexp' matches the group name, the `file-name' will
-     will be used as the home score file.
+   * `(regexp file-name ...)'
+     If the `regexp' matches the group name, the first `file-name' will
+     will be used as the home score file.  (Multiple filenames are
+     allowed so that one may use gnus-score-file-single-match-alist to
+     set this variable.)
 
    * A function.
      If the function returns non-nil, the result will be used
@@ -2495,7 +2497,7 @@
 	     ;; Regexp-file cons
 	     ((consp elem)
 	      (when (string-match (car elem) group)
-		(cdr elem))))))
+		(cadr elem))))))
     (when found
       (nnheader-concat gnus-kill-files-directory found))))