2000-10-21 09:38:27 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mailcap.el (mailcap-parse-mailcaps): Don't use parse-colon-path,
	because they are files, not paths.
	(mailcap-parse-mimetypes): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 36795d0..16bd01b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-21 09:38:27  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mailcap.el (mailcap-parse-mailcaps): Don't use parse-colon-path,
+       because they are files, not paths.
+       (mailcap-parse-mimetypes): Ditto.
+
 2000-10-20 19:55:59  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-mime-inline-part): Check validity of charset.

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index aaa29fa..60e1c1d 100644 (file)
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -357,7 +357,7 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus
                "/usr/local/etc/mailcap"))))
     (let ((fnames (reverse
                   (if (stringp path)
-                      (parse-colon-path path)
+                      (delete "" (split-string path path-separator))
                     path)))
          fname)
       (while fnames
@@ -860,7 +860,7 @@ If FORCE, re-parse even if already parsed."
                "/usr/local/etc/mime-types"
                "/usr/local/www/conf/mime-types"))))
     (let ((fnames (reverse (if (stringp path)
-                              (parse-colon-path path)
+                              (delete "" (split-string path path-separator))
                             path)))
          fname)
       (while fnames