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

This commit is contained in:
Glenn Morris 2013-05-22 21:58:09 -07:00
parent f87b128460
commit be32a13ff5
2 changed files with 9 additions and 0 deletions

View file

@ -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)

View file

@ -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))