Mercurial > emacs
changeset 45956:963ff40e6512
* nnheader.el (nnheader-file-name-translation-alist): Set the
default value for MS Windows systems.
* gnus-ems.el (nnheader-file-name-translation-alist): Removed.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Fri, 21 Jun 2002 18:31:10 +0000 |
| parents | e4997ff1b0f4 |
| children | 4afe5a9ced92 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-ems.el lisp/gnus/nnheader.el |
| diffstat | 3 files changed, 19 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)
--- 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: