* lisp/url/url.el (mm-dissect-buffer, mm-display-part): Declare.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 0735c738f162e82ebacd9471ba86eb3173c73370..49adec69de7e0e3ca0569ad19c2557a7d0b7b9d0 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-23  Glenn Morris  <rgm@gnu.org>
+
+       * url.el (mm-dissect-buffer, mm-display-part): Declare.
+
 2013-05-22  Glenn Morris  <rgm@gnu.org>
 
        * url-handlers.el (mm-save-part-to-file, mm-destroy-parts)

diff --git a/lisp/url/url.el b/lisp/url/url.el
index a1f0415d5fdfa25704120be3a75905f0f554254f..acdfc7f3a6264df266a21fbaeca0aa73a8277c39 100644 (file)
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -290,6 +290,11 @@ no further processing).  URL is either a string or a parsed URL."
                              (get-buffer-process asynch-buffer)))))))
       asynch-buffer)))
 
+;; url-mm-callback called from url-mm, which requires mm-decode.
+(declare-function mm-dissect-buffer "mm-decode"
+                 (&optional no-strict-mime loose-mime from))
+(declare-function mm-display-part "mm-decode" (handle &optional no-default))
+
 (defun url-mm-callback (&rest ignored)
   (let ((handle (mm-dissect-buffer t)))
     (url-mark-buffer-as-dead (current-buffer))