/[emacs]/emacs/lisp/gnus/gnus-score.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-score.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by fx, Thu Feb 8 00:23:30 2001 UTC revision 1.10.12.1 by zsh, Thu Feb 7 15:28:33 2002 UTC
# Line 59  Each element of this alist should be of Line 59  Each element of this alist should be of
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    
# Line 75  If the name of a group is matched by REG Line 75  If the name of a group is matched by REG
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    
# Line 101  files do not actually have to exist. Line 101  files do not actually have to exist.
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    
# Line 1497  THREAD is expected to contain a list of Line 1497  THREAD is expected to contain a list of
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)
# Line 1515  GNUS-NEWSGROUP-SCORED is adjusted by SCO Line 1515  GNUS-NEWSGROUP-SCORED is adjusted by SCO
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
# Line 2560  GROUP using BNews sys file syntax." Line 2560  GROUP using BNews sys file syntax."
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
# Line 2595  GROUP using BNews sys file syntax." Line 2597  GROUP using BNews sys file syntax."
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))
# Line 2678  Destroys the current buffer." Line 2680  Destroys the 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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.12.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26