Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-score.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents fe104dbd9147
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
35 Set this variable if you want to use people's score files. One entry 35 Set this variable if you want to use people's score files. One entry
36 for each score file or each score file directory. Gnus will decide 36 for each score file or each score file directory. Gnus will decide
37 by itself what score files are applicable to which group. 37 by itself what score files are applicable to which group.
38 38
39 Say you want to use the single score file 39 Say you want to use the single score file
40 \"/ftp.ifi.uio.no@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all 40 \"/ftp.gnus.org@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all
41 score files in the \"/ftp.some-where:/pub/score\" directory. 41 score files in the \"/ftp.some-where:/pub/score\" directory.
42 42
43 (setq gnus-global-score-files 43 (setq gnus-global-score-files
44 '(\"/ftp.ifi.uio.no:/pub/larsi/ding/score/soc.motss.SCORE\" 44 '(\"/ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE\"
45 \"/ftp.some-where:/pub/score\"))" 45 \"/ftp.some-where:/pub/score\"))"
46 :group 'gnus-score-files 46 :group 'gnus-score-files
47 :type '(repeat file)) 47 :type '(repeat file))
48 48
49 (defcustom gnus-score-file-single-match-alist nil 49 (defcustom gnus-score-file-single-match-alist nil
2500 (mapcar 'gnus-score-file-name all))) 2500 (mapcar 'gnus-score-file-name all)))
2501 (if (equal prefix "") 2501 (if (equal prefix "")
2502 all 2502 all
2503 (mapcar 2503 (mapcar
2504 (lambda (file) 2504 (lambda (file)
2505 (concat (file-name-directory file) prefix 2505 (nnheader-translate-file-chars
2506 (file-name-nondirectory file))) 2506 (concat (file-name-directory file) prefix
2507 (file-name-nondirectory file))))
2507 all)))) 2508 all))))
2508 2509
2509 (defun gnus-score-file-rank (file) 2510 (defun gnus-score-file-rank (file)
2510 "Return a number that says how specific score FILE is. 2511 "Return a number that says how specific score FILE is.
2511 Destroys the current buffer." 2512 Destroys the current buffer."