diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-01-31 15:24:20 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-01-31 15:24:20 +0000 |
| commit | c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1 (patch) | |
| tree | 7d28300d64e41bf2aeed37bc8f1293f9fc52a36a /lisp/gnus/nnheader.el | |
| parent | 2454c12d458c60b871f6f36c3fd6ba752aad61bf (diff) | |
| download | emacs-c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1.tar.gz | |
Cygwin support patch.
Diffstat (limited to 'lisp/gnus/nnheader.el')
| -rw-r--r-- | lisp/gnus/nnheader.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index 9fee7b776c5..53ab2d88ebb 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -47,7 +47,7 @@ (defvar nnheader-head-chop-length 2048 "*Length of each read operation when trying to fetch HEAD headers.") -(defvar nnheader-file-name-translation-alist +(defvar nnheader-file-name-translation-alist (let ((case-fold-search t)) (cond ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" @@ -653,12 +653,12 @@ If FULL, translate everything." ;; We translate -- but only the file name. We leave the directory ;; alone. (if (and (featurep 'xemacs) - (memq system-type '(win32 w32 mswindows windows-nt))) + (memq system-type '(win32 w32 mswindows windows-nt cygwin))) ;; This is needed on NT and stuff, because ;; file-name-nondirectory is not enough to split ;; file names, containing ':', e.g. ;; "d:\\Work\\News\\nntp+news.fido7.ru:fido7.ru.gnu.SCORE" - ;; + ;; ;; we are trying to correctly split such names: ;; "d:file.name" -> "a:" "file.name" ;; "aaa:bbb.ccc" -> "" "aaa:bbb.ccc" |