* texi/gnus-ja.texi (Article Date): Update Japanese translation.

[elisp/gnus.git-] / lisp / mm-extern.el

diff --git a/lisp/mm-extern.el b/lisp/mm-extern.el
index 4579a55..fef89ca 100644 (file)
--- 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)))
 
@@ -157,10 +157,12 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
                (condition-case nil
                    ;; This is only valid on XEmacs.
                    (mapcar (lambda (prop)
-                           (remove-specifier
-                            (face-property 'default prop) (current-buffer)))
+                             (remove-specifier
+                              (face-property 'default prop) (current-buffer)))
                            '(background background-pixmap foreground))
                  (error nil))
                (delete-region ,(point-min-marker) ,(point-max-marker))))))))))
 
+(provide 'mm-extern)
+
 ;;; mm-extern.el ends here