X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-extern.el;h=fef89caaa6dc11699fd7543707c8fde9d6117990;hb=36bd162f4f7cd40453b8683e796730836c352b2a;hp=5ccd2e1091539ffea7edd8cb2c4c04658403443e;hpb=bafc3998abcdbf5d1688ba35327d1aa67a8bdbab;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-extern.el b/lisp/mm-extern.el
index 5ccd2e1..fef89ca 100644
--- a/lisp/mm-extern.el
+++ b/lisp/mm-extern.el
@@ -29,6 +29,7 @@
 
 (require 'mm-util)
 (require 'mm-decode)
+(require 'mm-url)
 
 (defvar mm-extern-function-alist
   '((local-file . mm-extern-local-file)
@@ -55,14 +56,13 @@
 
 (defun mm-extern-url (handle)
   (erase-buffer)
-  (require 'url)
   (let ((url (cdr (assq 'url (cdr (mm-handle-type handle)))))
 	(name buffer-file-name)
 	(coding-system-for-read mm-binary-coding-system))
     (unless url
       (error "URL is not specified"))
     (mm-with-unibyte-current-buffer-mule4
-      (url-insert-file-contents url))
+      (mm-url-insert-file-contents url))
     (mm-disable-multibyte-mule4)
     (setq buffer-file-name name)))