From: Dave Love Date: Fri, 27 Oct 2000 17:26:48 +0000 (+0000) Subject: (nnheader-translate-file-chars): Only kludge things X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=b8a15c74e7c2a2f5e0ffac5013774848daa88e81;p=gnus (nnheader-translate-file-chars): Only kludge things under Doze with XEmacs. --- diff --git a/lisp/nnheader.el b/lisp/nnheader.el index b8d8db5cf..d15446bb4 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -634,7 +634,8 @@ If FULL, translate everything." 2 0)) ;; We translate -- but only the file name. We leave the directory ;; alone. - (if (memq system-type '(win32 w32 mswindows windows-nt)) + (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. @@ -652,7 +653,7 @@ If FULL, translate everything." (if (string-match "\\(^\\w:\\|[/\\]\\)\\([^/\\]+\\)$" file) (setq leaf (substring file (match-beginning 2)) path (substring file 0 (match-beginning 2))))) - ;; Fall back on this. + ;; Emacs DTRT, says andrewi. (setq leaf (file-name-nondirectory file) path (file-name-directory file)))) (setq len (length leaf))