Fix DOS family path name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27dde9f..699c28f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+1999-12-14 15:08:03  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-ems.el: Translate more ugly characters.
+       * nnheader.el (nnheader-translate-file-chars): Don't translate
+       the second ':'.
+
 1999-12-14 10:40:33  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-request-article-this-buffer): Use all refer

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 8934ef6..8b9e712 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -89,8 +89,9 @@
                    (symbol-name system-type))
       (setq nnheader-file-name-translation-alist
            (append nnheader-file-name-translation-alist
-                   '((?: . ?_)
-                     (?+ . ?-))))))))
+                   (mapcar (lambda (c) (cons c ?_))
+                           '(?: ?* ?\" ?< ?> ??))
+                   '((?+ . ?-))))))))
 
 (defvar gnus-tmp-unread)
 (defvar gnus-tmp-replied)

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index e4a11dd..8e20098 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -631,6 +631,10 @@ 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)))