Commit 3e7b2fa7 authored by ShengHuo ZHU's avatar ShengHuo ZHU

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

default value for MS Windows systems.

* gnus-ems.el (nnheader-file-name-translation-alist): Removed.
parent 0f31dcfc
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.
......
......@@ -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)
......
......@@ -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:
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment