+1999-12-14 22:07:26 Shenghuo ZHU <zsh@cs.rochester.edu>
+
+ * nnheader.el (nnheader-translate-file-chars): Only in full path.
+
1999-12-14 16:21:45 Shenghuo ZHU <zsh@cs.rochester.edu>
* mm-util.el (mm-find-charset-region): mail-parse-charset is a
(if full
;; Do complete translation.
(setq leaf (copy-sequence file)
- path "")
+ path ""
+ i (if (and (< 1 (length leaf)) (eq ?: (aref leaf 1)))
+ 2 0))
;; We translate -- but only the file name. We leave the directory
;; alone.
(if (string-match "/[^/]+\\'" file)
(setq leaf (file-name-nondirectory file)
path (file-name-directory file))))
(setq len (length leaf))
- (when (and (< 1 len)
- (eq ?: (aref leaf 1))
- (assq ?: nnheader-file-name-translation-alist))
- (setq i 2))
(while (< i len)
(when (setq trans (cdr (assq (aref leaf i)
nnheader-file-name-translation-alist)))