# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 1024684270 0
# Node ID 963ff40e65124874db155c9f54fc72780d3c13da
# Parent  e4997ff1b0f4636059fcf7c6d9c72eb84c7b317f
* 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 -r e4997ff1b0f4 -r 963ff40e6512 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Jun 21 16:29:09 2002 +0000
+++ b/lisp/gnus/ChangeLog	Fri Jun 21 18:31:10 2002 +0000
@@ -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 -r e4997ff1b0f4 -r 963ff40e6512 lisp/gnus/gnus-ems.el
--- a/lisp/gnus/gnus-ems.el	Fri Jun 21 16:29:09 2002 +0000
+++ b/lisp/gnus/gnus-ems.el	Fri Jun 21 18:31:10 2002 +0000
@@ -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 -r e4997ff1b0f4 -r 963ff40e6512 lisp/gnus/nnheader.el
--- a/lisp/gnus/nnheader.el	Fri Jun 21 16:29:09 2002 +0000
+++ b/lisp/gnus/nnheader.el	Fri Jun 21 18:31:10 2002 +0000
@@ -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: