* nnheader.el (nnheader-file-name-translation-alist): Set the

default value for MS Windows systems.

* gnus-ems.el (nnheader-file-name-translation-alist): Removed.

3 files changed, 19 insertions, 12 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b586668a20f..9545c9b82fe 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2002-06-15  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+        * nnheader.el (nnheader-file-name-translation-alist): Set the
+        default value for MS Windows systems.
+
+        * gnus-ems.el (nnheader-file-name-translation-alist): Removed.
+
 2002-05-16  Juanma Barranquero  <lektu@terra.es>
 
         * gnus-art.el (gnus-mime-copy-part): Fix typo.
diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index e0d9f89fa0f..b52c0f75231 100644
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -76,17 +76,6 @@
     (defvar gnus-mouse-face-prop 'mouse-face
       "Property used for highlighting mouse regions.")))
 
-(eval-and-compile
-  (let ((case-fold-search t))
-    (cond
-     ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
-                    (symbol-name system-type))
-      (setq nnheader-file-name-translation-alist
-            (append nnheader-file-name-translation-alist
-                    (mapcar (lambda (c) (cons c ?_))
-                            '(?: ?* ?\" ?< ?> ??))
-                    '((?+ . ?-))))))))
-
 (defvar gnus-tmp-unread)
 (defvar gnus-tmp-replied)
 (defvar gnus-tmp-score-char)
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index b1d7d3d3cb5..6f383aec783 100644
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -47,7 +47,18 @@
 (defvar nnheader-head-chop-length 2048
   "*Length of each read operation when trying to fetch HEAD headers.")
 
-(defvar nnheader-file-name-translation-alist nil
+(defvar nnheader-file-name-translation-alist 
+  (let ((case-fold-search t))
+    (cond
+     ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
+                    (symbol-name system-type))
+      (append (mapcar (lambda (c) (cons c ?_))
+                      '(?: ?* ?\" ?< ?> ??))
+              (if (string-match "windows-nt\\|cygwin32"
+                                (symbol-name system-type))
+                  nil
+                '((?+ . ?-)))))
+     (t nil)))
   "*Alist that says how to translate characters in file names.
 For instance, if \":\" is invalid as a file character in file names
 on your system, you could say something like: