From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Fri, 20 Jul 2001 19:01:44 +0000 (+0000)
Subject: 2001-07-20 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=8ca5911eda4017f032f649049c30deb4a64ead0d

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 7a7208842..0dc1dd557 100644
--- 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 d7f457ddc..ef3f33792 100644
--- 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