diff options
| author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2002-06-21 18:31:10 +0000 |
|---|---|---|
| committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2002-06-21 18:31:10 +0000 |
| commit | 3e7b2fa787a547dd577e59e9ce9c06932b5cffa7 (patch) | |
| tree | 432b3838ac1fad1abb1fed9424fa5b3093d11c2d /lisp/gnus/nnheader.el | |
| parent | 0f31dcfc6194a364058dd448d92215b8071e90f4 (diff) | |
| download | emacs-3e7b2fa787a547dd577e59e9ce9c06932b5cffa7.tar.gz | |
* nnheader.el (nnheader-file-name-translation-alist): Set the
default value for MS Windows systems.
* gnus-ems.el (nnheader-file-name-translation-alist): Removed.
Diffstat (limited to 'lisp/gnus/nnheader.el')
| -rw-r--r-- | lisp/gnus/nnheader.el | 13 |
1 files changed, 12 insertions, 1 deletions
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: |