Don't translate first two letter if the second of full path is ':'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3061941..8b06a79 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 8e20098..4bee834 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -620,7 +620,9 @@ If FULL, translate everything."
       (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)
@@ -631,10 +633,6 @@ If FULL, translate everything."
          (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)))