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

[Juanma Barranquero]

Index: emacs/lisp/gnus/nnheader.el
diff -c emacs/lisp/gnus/nnheader.el:1.16 emacs/lisp/gnus/nnheader.el:1.17
*** emacs/lisp/gnus/nnheader.el:1.16    Wed Jan 15 20:19:02 2003
--- emacs/lisp/gnus/nnheader.el Fri Jan 31 10:19:49 2003
***************
*** 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 
    (let ((case-fold-search t))
      (cond
       ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
--- 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
    (let ((case-fold-search t))
      (cond
       ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
***************
*** 653,664 ****
        ;; We translate -- but only the file name.  We leave the directory
        ;; alone.
        (if (and (featurep 'xemacs)
!                (memq system-type '(win32 w32 mswindows windows-nt)))
            ;; 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"
--- 653,664 ----
        ;; We translate -- but only the file name.  We leave the directory
        ;; alone.
        (if (and (featurep 'xemacs)
!                (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"