diff options
Diffstat (limited to 'lisp')
| -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)) |