+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
(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)
(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)))