2001-07-20 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-score.el (gnus-home-score-file): nnheader-translate-file-chars.
	(gnus-all-score-files): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a72088..0dc1dd5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-20 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-score.el (gnus-home-score-file): nnheader-translate-file-chars.
+       (gnus-all-score-files): Ditto.
+
 2001-07-18  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * message.el (message-shorten-references): Change `maxcount' and

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index d7f457d..ef3f337 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -2744,7 +2744,9 @@ The list is determined from the variable gnus-score-file-alist."
       (while funcs
        (when (gnus-functionp (car funcs))
          (setq score-files
-               (nconc score-files (nreverse (funcall (car funcs) group)))))
+               (nconc score-files 
+                       (mapcar 'nnheader-translate-file-chars
+                               (nreverse (funcall (car funcs) group))))))
        (setq funcs (cdr funcs)))
       (when gnus-score-use-all-scores
        ;; Add any home score files.
@@ -2839,17 +2841,18 @@ If ADAPT, return the home adaptive file instead."
     (while (and (not found)
                (setq elem (pop list)))
       (setq found
-           (cond
-            ;; Simple string.
-            ((stringp elem)
-             elem)
-            ;; Function.
-            ((gnus-functionp elem)
-             (funcall elem group))
-            ;; Regexp-file cons.
-            ((consp elem)
-             (when (string-match (gnus-globalify-regexp (car elem)) group)
-               (replace-match (cadr elem) t nil group))))))
+            (nnheader-translate-file-chars
+             (cond
+              ;; Simple string.
+              ((stringp elem)
+               elem)
+              ;; Function.
+              ((gnus-functionp elem)
+               (funcall elem group))
+              ;; Regexp-file cons.
+              ((consp elem)
+               (when (string-match (gnus-globalify-regexp (car elem)) group)
+                 (replace-match (cadr elem) t nil group)))))))
     (when found
       (if (file-name-absolute-p found)
           found