projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dgnushack.el (dgnushack-compile): Fix last change.
[gnus]
/
lisp
/
mm-decode.el
diff --git
a/lisp/mm-decode.el
b/lisp/mm-decode.el
index
3db539e
..
70b735a
100644
(file)
--- a/
lisp/mm-decode.el
+++ b/
lisp/mm-decode.el
@@
-1684,9
+1684,16
@@
If RECURSIVE, search recursively."
(declare-function shr-insert-document "shr" (dom))
(defun mm-shr (handle)
(declare-function shr-insert-document "shr" (dom))
(defun mm-shr (handle)
+ ;; Require since we bind its variables.
+ (require 'shr)
(let ((article-buffer (current-buffer))
(shr-blocked-images (with-current-buffer gnus-summary-buffer
gnus-blocked-images))
(let ((article-buffer (current-buffer))
(shr-blocked-images (with-current-buffer gnus-summary-buffer
gnus-blocked-images))
+ (shr-content-function (lambda (id)
+ (let ((handle (mm-get-content-id id)))
+ (when handle
+ (mm-with-part handle
+ (buffer-string))))))
charset)
(unless handle
(setq handle (mm-dissect-buffer t)))
charset)
(unless handle
(setq handle (mm-dissect-buffer t)))