(mm-shr): Bind shr-blocked-images to gnus-blocked-images.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b9be99..ff45fa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-decode.el (mm-shr): Bind shr-blocked-images to
+       gnus-blocked-images.
+
 2010-10-05  Julien Danjou  <julien@danjou.info>
 
        * gnus-html.el (gnus-html-wash-images): Rescale image from cid too.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index edbd252..3db539e 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1685,6 +1685,8 @@ If RECURSIVE, search recursively."
 
 (defun mm-shr (handle)
   (let ((article-buffer (current-buffer))
+       (shr-blocked-images (with-current-buffer gnus-summary-buffer
+                             gnus-blocked-images))
        charset)
     (unless handle
       (setq handle (mm-dissect-buffer t)))