;; Patch from Mark A. Hershberger.

(mm-url-insert-file-contents): Make it return the same type values
 ("url" size) regardless of the values of mm-url-use-external.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e96572..c9604a6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-10-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+       From mah@everybody.org (Mark A. Hershberger).
+
+       * mm-url.el (mm-url-insert-file-contents): Make it return the same
+       type values ("url" size) regardless of the values of
+       mm-url-use-external.
+
 2002-10-26  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * nnimap.el (nnimap-request-article-part): Try harder to show

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index ab18a57..b1978cc 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -270,9 +270,12 @@ This is taken from RFC 2396.")
 
 (defun mm-url-insert-file-contents (url)
   (if mm-url-use-external
-      (if (string-match "^file:/+" url)
-         (insert-file-contents (substring url (1- (match-end 0))))
-       (mm-url-insert-file-contents-external url))
+      (progn
+       (if (string-match "^file:/+" url)
+           (insert-file-contents (substring url (1- (match-end 0))))
+         (mm-url-insert-file-contents-external url))
+       (goto-char (point-min))
+       (list url (buffer-size)))
     (mm-url-load-url)
     (let ((name buffer-file-name)
          (url-package-name (or mm-url-package-name