From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Fri, 21 Jun 2002 18:31:10 +0000 (+0000)
Subject: * nnheader.el (nnheader-file-name-translation-alist): Set the
X-Git-Tag: ttn-vms-21-2-B4~14498
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e7b2fa787a547dd577e59e9ce9c06932b5cffa7;p=emacs.git

* 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 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: