diff options
author | ShengHuo ZHU <[email protected]> | 2002-06-21 18:31:10 +0000 |
---|---|---|
committer | ShengHuo ZHU <[email protected]> | 2002-06-21 18:31:10 +0000 |
commit | 3e7b2fa787a547dd577e59e9ce9c06932b5cffa7 (patch) | |
tree | 432b3838ac1fad1abb1fed9424fa5b3093d11c2d /lisp | |
parent | 0f31dcfc6194a364058dd448d92215b8071e90f4 (diff) |
* 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')
-rw-r--r-- | lisp/gnus/ChangeLog | 7 | ||||
-rw-r--r-- | lisp/gnus/gnus-ems.el | 11 | ||||
-rw-r--r-- | lisp/gnus/nnheader.el | 13 |
3 files changed, 19 insertions, 12 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b586668a20..9545c9b82f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,10 @@ +2002-06-15 ShengHuo ZHU <[email protected]> + + * 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 <[email protected]> * gnus-art.el (gnus-mime-copy-part): Fix typo. diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el index e0d9f89fa0..b52c0f7523 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 b1d7d3d3cb..6f383aec78 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: |