59 |
If the name of a group is matched by REGEXP, the corresponding scorefiles |
If the name of a group is matched by REGEXP, the corresponding scorefiles |
60 |
will be used for that group. |
will be used for that group. |
61 |
The first match found is used, subsequent matching entries are ignored (to |
The first match found is used, subsequent matching entries are ignored (to |
62 |
use multiple matches, see gnus-score-file-multiple-match-alist). |
use multiple matches, see `gnus-score-file-multiple-match-alist'). |
63 |
|
|
64 |
These score files are loaded in addition to any files returned by |
These score files are loaded in addition to any files returned by |
65 |
gnus-score-find-score-files-function (which see)." |
`gnus-score-find-score-files-function'." |
66 |
:group 'gnus-score-files |
:group 'gnus-score-files |
67 |
:type '(repeat (cons regexp (repeat file)))) |
:type '(repeat (cons regexp (repeat file)))) |
68 |
|
|
75 |
will be used for that group. |
will be used for that group. |
76 |
If multiple REGEXPs match a group, the score files corresponding to each |
If multiple REGEXPs match a group, the score files corresponding to each |
77 |
match will be used (for only one match to be used, see |
match will be used (for only one match to be used, see |
78 |
gnus-score-file-single-match-alist). |
`gnus-score-file-single-match-alist'). |
79 |
|
|
80 |
These score files are loaded in addition to any files returned by |
These score files are loaded in addition to any files returned by |
81 |
gnus-score-find-score-files-function (which see)." |
`gnus-score-find-score-files-function'." |
82 |
:group 'gnus-score-files |
:group 'gnus-score-files |
83 |
:type '(repeat (cons regexp (repeat file)))) |
:type '(repeat (cons regexp (repeat file)))) |
84 |
|
|
101 |
|
|
102 |
Predefined values are: |
Predefined values are: |
103 |
|
|
104 |
gnus-score-find-single: Only apply the group's own score file. |
`gnus-score-find-single': Only apply the group's own score file. |
105 |
gnus-score-find-hierarchical: Also apply score files from parent groups. |
`gnus-score-find-hierarchical': Also apply score files from parent groups. |
106 |
gnus-score-find-bnews: Apply score files whose names matches. |
`gnus-score-find-bnews': Apply score files whose names matches. |
107 |
|
|
108 |
See the documentation to these functions for more information. |
See the documentation to these functions for more information. |
109 |
|
|
1497 |
CHILD2 ...])' where PARENT is a header array and each CHILD is a list |
CHILD2 ...])' where PARENT is a header array and each CHILD is a list |
1498 |
of the same form as THREAD. The empty list `nil' is valid. For each |
of the same form as THREAD. The empty list `nil' is valid. For each |
1499 |
article in the tree, the score of the corresponding entry in |
article in the tree, the score of the corresponding entry in |
1500 |
GNUS-NEWSGROUP-SCORED is adjusted by SCORE-ADJUST." |
`gnus-newsgroup-scored' is adjusted by SCORE-ADJUST." |
1501 |
(while thread |
(while thread |
1502 |
(let ((head (car thread))) |
(let ((head (car thread))) |
1503 |
(if (listp head) |
(if (listp head) |
1515 |
A root is an article with no references. An orphan is an article |
A root is an article with no references. An orphan is an article |
1516 |
which has references, but is not connected via its references to a |
which has references, but is not connected via its references to a |
1517 |
root article. This function finds all the orphans, and adjusts their |
root article. This function finds all the orphans, and adjusts their |
1518 |
score in GNUS-NEWSGROUP-SCORED by SCORE." |
score in `gnus-newsgroup-scored' by SCORE." |
1519 |
(let ((threads (gnus-make-threads))) |
(let ((threads (gnus-make-threads))) |
1520 |
;; gnus-make-threads produces a list, where each entry is a "thread" |
;; gnus-make-threads produces a list, where each entry is a "thread" |
1521 |
;; as described in the gnus-score-lower-thread docs. This function |
;; as described in the gnus-score-lower-thread docs. This function |
2560 |
;; too much. |
;; too much. |
2561 |
(delete-char (min (1- (point-max)) klen)) |
(delete-char (min (1- (point-max)) klen)) |
2562 |
(goto-char (point-max)) |
(goto-char (point-max)) |
2563 |
(search-backward (string directory-sep-char)) |
(if (re-search-backward gnus-directory-sep-char-regexp nil t) |
2564 |
(delete-region (1+ (point)) (point-min))) |
(delete-region (1+ (point)) (point-min)) |
2565 |
|
(gnus-message 1 "Can't find directory separator in %s" |
2566 |
|
(car sfiles)))) |
2567 |
;; If short file names were used, we have to translate slashes. |
;; If short file names were used, we have to translate slashes. |
2568 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2569 |
(let ((regexp (concat |
(let ((regexp (concat |
2597 |
;; we add this score file to the list of score files |
;; we add this score file to the list of score files |
2598 |
;; applicable to this group. |
;; applicable to this group. |
2599 |
(when (or (and not-match |
(when (or (and not-match |
2600 |
(ignore-errors |
(ignore-errors |
2601 |
(not (string-match regexp group-trans)))) |
(not (string-match regexp group-trans)))) |
2602 |
(and (not not-match) |
(and (not not-match) |
2603 |
(ignore-errors (string-match regexp group-trans)))) |
(ignore-errors (string-match regexp group-trans)))) |
2604 |
(push (car sfiles) ofiles))) |
(push (car sfiles) ofiles))) |
2605 |
(setq sfiles (cdr sfiles))) |
(setq sfiles (cdr sfiles))) |
2606 |
(kill-buffer (current-buffer)) |
(kill-buffer (current-buffer)) |
2680 |
|
|
2681 |
(defun gnus-score-find-alist (group) |
(defun gnus-score-find-alist (group) |
2682 |
"Return list of score files for GROUP. |
"Return list of score files for GROUP. |
2683 |
The list is determined from the variable gnus-score-file-alist." |
The list is determined from the variable `gnus-score-file-alist'." |
2684 |
(let ((alist gnus-score-file-multiple-match-alist) |
(let ((alist gnus-score-file-multiple-match-alist) |
2685 |
score-files) |
score-files) |
2686 |
;; if this group has been seen before, return the cached entry |
;; if this group has been seen before, return the cached entry |