diff options
Diffstat (limited to 'lisp/gnus/nnheader.el')
| -rw-r--r-- | lisp/gnus/nnheader.el | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index 648485b4f61..cc3dccea25f 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -82,8 +82,7 @@ Integer values will in effect be rounded up to the nearest multiple of :type 'integer) (defvar nnheader-read-timeout - (if (string-match "windows-nt\\|os/2\\|cygwin" - (symbol-name system-type)) + (if (memq system-type '(windows-nt cygwin)) ;; http://thread.gmane.org/v9655t3pjo.fsf@marauder.physik.uni-ulm.de ;; ;; IIRC, values lower than 1.0 didn't/don't work on Windows/DOS. @@ -105,17 +104,8 @@ Integer values will in effect be rounded up to the nearest multiple of Shorter values mean quicker response, but are more CPU intensive.") (defcustom nnheader-file-name-translation-alist - (let ((case-fold-search t)) - (cond - ((string-match "windows-nt\\|os/2\\|cygwin" - (symbol-name system-type)) - (append (mapcar (lambda (c) (cons c ?_)) - '(?: ?* ?\" ?< ?> ??)) - (if (string-match "windows-nt\\|cygwin" - (symbol-name system-type)) - nil - '((?+ . ?-))))) - (t nil))) + (if (memq system-type '(windows-nt cygwin)) + (mapcar (lambda (c) (cons c ?_)) '(?: ?* ?\" ?< ?> ??))) "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: |