From 3e7b2fa787a547dd577e59e9ce9c06932b5cffa7 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 21 Jun 2002 18:31:10 +0000 Subject: * nnheader.el (nnheader-file-name-translation-alist): Set the default value for MS Windows systems. * gnus-ems.el (nnheader-file-name-translation-alist): Removed. --- lisp/gnus/nnheader.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'lisp/gnus/nnheader.el') 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: -- cgit v1.2.1