Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-score.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/gnus/gnus-score.el	Mon Aug 13 09:24:17 2007 +0200
@@ -37,11 +37,11 @@
 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
-       '(\"/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\"))"
   :group 'gnus-score-files
   :type '(repeat file))
@@ -2502,8 +2502,9 @@
 	all
       (mapcar
        (lambda (file)
-	 (concat (file-name-directory file) prefix
-		 (file-name-nondirectory file)))
+	 (nnheader-translate-file-chars
+	  (concat (file-name-directory file) prefix
+		  (file-name-nondirectory file))))
        all))))
 
 (defun gnus-score-file-rank (file)