Mercurial > emacs
comparison lisp/gnus/nnheader.el @ 49549:99be3a1e2589
Cygwin support patch.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 31 Jan 2003 15:24:20 +0000 |
| parents | eb2699620e9c |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49548:8b1c605f8c9b | 49549:99be3a1e2589 |
|---|---|
| 45 "*Max length of the head of articles.") | 45 "*Max length of the head of articles.") |
| 46 | 46 |
| 47 (defvar nnheader-head-chop-length 2048 | 47 (defvar nnheader-head-chop-length 2048 |
| 48 "*Length of each read operation when trying to fetch HEAD headers.") | 48 "*Length of each read operation when trying to fetch HEAD headers.") |
| 49 | 49 |
| 50 (defvar nnheader-file-name-translation-alist | 50 (defvar nnheader-file-name-translation-alist |
| 51 (let ((case-fold-search t)) | 51 (let ((case-fold-search t)) |
| 52 (cond | 52 (cond |
| 53 ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" | 53 ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" |
| 54 (symbol-name system-type)) | 54 (symbol-name system-type)) |
| 55 (append (mapcar (lambda (c) (cons c ?_)) | 55 (append (mapcar (lambda (c) (cons c ?_)) |
| 651 i (if (and (< 1 (length leaf)) (eq ?: (aref leaf 1))) | 651 i (if (and (< 1 (length leaf)) (eq ?: (aref leaf 1))) |
| 652 2 0)) | 652 2 0)) |
| 653 ;; We translate -- but only the file name. We leave the directory | 653 ;; We translate -- but only the file name. We leave the directory |
| 654 ;; alone. | 654 ;; alone. |
| 655 (if (and (featurep 'xemacs) | 655 (if (and (featurep 'xemacs) |
| 656 (memq system-type '(win32 w32 mswindows windows-nt))) | 656 (memq system-type '(win32 w32 mswindows windows-nt cygwin))) |
| 657 ;; This is needed on NT and stuff, because | 657 ;; This is needed on NT and stuff, because |
| 658 ;; file-name-nondirectory is not enough to split | 658 ;; file-name-nondirectory is not enough to split |
| 659 ;; file names, containing ':', e.g. | 659 ;; file names, containing ':', e.g. |
| 660 ;; "d:\\Work\\News\\nntp+news.fido7.ru:fido7.ru.gnu.SCORE" | 660 ;; "d:\\Work\\News\\nntp+news.fido7.ru:fido7.ru.gnu.SCORE" |
| 661 ;; | 661 ;; |
| 662 ;; we are trying to correctly split such names: | 662 ;; we are trying to correctly split such names: |
| 663 ;; "d:file.name" -> "a:" "file.name" | 663 ;; "d:file.name" -> "a:" "file.name" |
| 664 ;; "aaa:bbb.ccc" -> "" "aaa:bbb.ccc" | 664 ;; "aaa:bbb.ccc" -> "" "aaa:bbb.ccc" |
| 665 ;; "d:aaa\\bbb:ccc" -> "d:aaa\\" "bbb:ccc" | 665 ;; "d:aaa\\bbb:ccc" -> "d:aaa\\" "bbb:ccc" |
| 666 ;; etc. | 666 ;; etc. |