From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Thu, 6 Dec 2001 05:53:54 +0000 (+0000)
Subject: 2001-12-06 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=a25f29c9f40c9e18bdbe8144800afd46883b01bb

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 4b1387a88..bdb04cbe4 100644
--- 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 609b0ba31..e48d0d483 100644
--- 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)