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

default value for MS Windows systems.

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b586668a20f6d05da00c0f8fc55cd69b5b10a224..9545c9b82fef042aea6c3241c8cb048e16b04171 100644 (file)
--- 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 e0d9f89fa0f9d2b3866a939ad70a66fdfcb536cf..b52c0f75231080f9d89ede1daa29da823b5c5c3c 100644 (file)
--- 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 b1d7d3d3cb5cc0aca57140ef8afe93983c883fe4..6f383aec7838836ff13859aef28d633e92dd03c5 100644 (file)
--- 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: