47 |
(defvar nnheader-head-chop-length 2048 |
(defvar nnheader-head-chop-length 2048 |
48 |
"*Length of each read operation when trying to fetch HEAD headers.") |
"*Length of each read operation when trying to fetch HEAD headers.") |
49 |
|
|
50 |
(defvar nnheader-file-name-translation-alist nil |
(defvar nnheader-file-name-translation-alist |
51 |
|
(let ((case-fold-search t)) |
52 |
|
(cond |
53 |
|
((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" |
54 |
|
(symbol-name system-type)) |
55 |
|
(append (mapcar (lambda (c) (cons c ?_)) |
56 |
|
'(?: ?* ?\" ?< ?> ??)) |
57 |
|
(if (string-match "windows-nt\\|cygwin32" |
58 |
|
(symbol-name system-type)) |
59 |
|
nil |
60 |
|
'((?+ . ?-))))) |
61 |
|
(t nil))) |
62 |
"*Alist that says how to translate characters in file names. |
"*Alist that says how to translate characters in file names. |
63 |
For instance, if \":\" is invalid as a file character in file names |
For instance, if \":\" is invalid as a file character in file names |
64 |
on your system, you could say something like: |
on your system, you could say something like: |
600 |
"Regexp that matches numerical file names.") |
"Regexp that matches numerical file names.") |
601 |
|
|
602 |
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) |
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) |
603 |
"Regexp that matches numerical full file paths.") |
"Regexp that matches numerical full file names.") |
604 |
|
|
605 |
(defsubst nnheader-file-to-number (file) |
(defsubst nnheader-file-to-number (file) |
606 |
"Take a FILE name and return the article number." |
"Take a FILE name and return the article number." |
653 |
;; We translate -- but only the file name. We leave the directory |
;; We translate -- but only the file name. We leave the directory |
654 |
;; alone. |
;; alone. |
655 |
(if (and (featurep 'xemacs) |
(if (and (featurep 'xemacs) |
656 |
(memq system-type '(win32 w32 mswindows windows-nt))) |
(memq system-type '(win32 w32 mswindows windows-nt cygwin))) |
657 |
;; This is needed on NT and stuff, because |
;; This is needed on NT and stuff, because |
658 |
;; file-name-nondirectory is not enough to split |
;; file-name-nondirectory is not enough to split |
659 |
;; file names, containing ':', e.g. |
;; file names, containing ':', e.g. |
660 |
;; "d:\\Work\\News\\nntp+news.fido7.ru:fido7.ru.gnu.SCORE" |
;; "d:\\Work\\News\\nntp+news.fido7.ru:fido7.ru.gnu.SCORE" |
661 |
;; |
;; |
662 |
;; we are trying to correctly split such names: |
;; we are trying to correctly split such names: |
663 |
;; "d:file.name" -> "a:" "file.name" |
;; "d:file.name" -> "a:" "file.name" |
664 |
;; "aaa:bbb.ccc" -> "" "aaa:bbb.ccc" |
;; "aaa:bbb.ccc" -> "" "aaa:bbb.ccc" |
767 |
(<= level gnus-verbose-backends))) |
(<= level gnus-verbose-backends))) |
768 |
|
|
769 |
(defvar nnheader-pathname-coding-system 'binary |
(defvar nnheader-pathname-coding-system 'binary |
770 |
"*Coding system for pathname.") |
"*Coding system for file names.") |
771 |
|
|
772 |
(defun nnheader-group-pathname (group dir &optional file) |
(defun nnheader-group-pathname (group dir &optional file) |
773 |
"Make pathname for GROUP." |
"Make file name for GROUP." |
774 |
(concat |
(concat |
775 |
(let ((dir (file-name-as-directory (expand-file-name dir)))) |
(let ((dir (file-name-as-directory (expand-file-name dir)))) |
776 |
;; If this directory exists, we use it directly. |
;; If this directory exists, we use it directly. |