diff options
| author | Glenn Morris | 2013-05-22 21:58:09 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-05-22 21:58:09 -0700 |
| commit | be32a13ff548b00dc0491bc2c42dfdb7743a837d (patch) | |
| tree | a3ed1290f2fe7eaeddda1d3e4a6ce3fe91779abb | |
| parent | f87b128460e1f13f2c7f20066348643bb3e16642 (diff) | |
| download | emacs-be32a13ff548b00dc0491bc2c42dfdb7743a837d.tar.gz emacs-be32a13ff548b00dc0491bc2c42dfdb7743a837d.zip | |
* lisp/url/url.el (mm-dissect-buffer, mm-display-part): Declare.
| -rw-r--r-- | lisp/url/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/url/url.el | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 0735c738f16..49adec69de7 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2013-05-23 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * url.el (mm-dissect-buffer, mm-display-part): Declare. | ||
| 4 | |||
| 1 | 2013-05-22 Glenn Morris <rgm@gnu.org> | 5 | 2013-05-22 Glenn Morris <rgm@gnu.org> |
| 2 | 6 | ||
| 3 | * url-handlers.el (mm-save-part-to-file, mm-destroy-parts) | 7 | * url-handlers.el (mm-save-part-to-file, mm-destroy-parts) |
diff --git a/lisp/url/url.el b/lisp/url/url.el index a1f0415d5fd..acdfc7f3a62 100644 --- 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." | |||
| 290 | (get-buffer-process asynch-buffer))))))) | 290 | (get-buffer-process asynch-buffer))))))) |
| 291 | asynch-buffer))) | 291 | asynch-buffer))) |
| 292 | 292 | ||
| 293 | ;; url-mm-callback called from url-mm, which requires mm-decode. | ||
| 294 | (declare-function mm-dissect-buffer "mm-decode" | ||
| 295 | (&optional no-strict-mime loose-mime from)) | ||
| 296 | (declare-function mm-display-part "mm-decode" (handle &optional no-default)) | ||
| 297 | |||
| 293 | (defun url-mm-callback (&rest ignored) | 298 | (defun url-mm-callback (&rest ignored) |
| 294 | (let ((handle (mm-dissect-buffer t))) | 299 | (let ((handle (mm-dissect-buffer t))) |
| 295 | (url-mark-buffer-as-dead (current-buffer)) | 300 | (url-mark-buffer-as-dead (current-buffer)) |