/[emacs]/emacs/lisp/gnus/nnheader.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnheader.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by gerd, Wed Jul 4 09:40:50 2001 UTC revision 1.14.8.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 47  Line 47 
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:
# Line 589  the line could be found." Line 600  the line could be found."
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."
# Line 642  If FULL, translate everything." Line 653  If FULL, translate everything."
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"
# Line 756  without formatting." Line 767  without formatting."
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.

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26