[Emacs-diffs] Changes to emacs/lisp/gnus/nnheader.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/nnheader.el
diff -c emacs/lisp/gnus/nnheader.el:1.14 emacs/lisp/gnus/nnheader.el:1.15
*** emacs/lisp/gnus/nnheader.el:1.14    Wed Jul  4 05:40:50 2001
--- emacs/lisp/gnus/nnheader.el Fri Jun 21 14:31:10 2002
***************
*** 47,53 ****
  (defvar nnheader-head-chop-length 2048
    "*Length of each read operation when trying to fetch HEAD headers.")
  
! (defvar nnheader-file-name-translation-alist nil
    "*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:
--- 47,64 ----
  (defvar nnheader-head-chop-length 2048
    "*Length of each read operation when trying to fetch HEAD headers.")
  
! (defvar nnheader-file-name-translation-alist 
!   (let ((case-fold-search t))
!     (cond
!      ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
!                   (symbol-name system-type))
!       (append (mapcar (lambda (c) (cons c ?_))
!                     '(?: ?* ?\" ?< ?> ??))
!             (if (string-match "windows-nt\\|cygwin32"
!                               (symbol-name system-type))
!                 nil
!               '((?+ . ?-)))))
!      (t nil)))
    "*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: