X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-url.el;h=b1978cce3150190f37eed547058b5e5b81ff785a;hb=853d3fa059d36143f0f4d600e50c6a1970ec41c3;hp=ab18a57471754ef05f982bb5d98e7a83a46f7c81;hpb=7ec06d852d58d9d6a23903aefb3abc71eb853855;p=gnus

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index ab18a5747..b1978cce3 100644
--- 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