2001-12-06 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-url.el (mm-url-insert-file-contents): Support file:.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b1387a..bdb04cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-06 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-url.el (mm-url-insert-file-contents): Support file:.
+
 2001-12-05 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-view.el: Lower case for the description line. Sync from the

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index 609b0ba..e48d0d4 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -248,7 +248,9 @@ This is taken from RFC 2396.")
 
 (defun mm-url-insert-file-contents (url)
   (if mm-url-use-external
-      (mm-url-insert-file-contents-external url)
+      (if (string-match "^file:/+" url)
+         (insert-file-contents (substring url (1- (match-end 0))))
+       (mm-url-insert-file-contents-external url))
     (url-insert-file-contents url)))
 
 (defun mm-url-insert-file-contents-external (url)