* mm-decode.el (mm-shr): Allow use from non-Gnus users.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f0ced5..81bb3a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mm-decode.el (mm-shr): Allow use from non-Gnus users.
+
        * gnus-spec.el (gnus-parse-simple-format): princ doesn't really insert
        anything in Emacs.
 

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 8be4bb7..1a05b4d 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1691,8 +1691,11 @@ If RECURSIVE, search recursively."
   ;; 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))
+       (shr-blocked-images (if (and (boundp gnus-summary-buffer)
+                                    (buffer-name gnus-summary-buffer))
+                               (with-current-buffer gnus-summary-buffer
+                                 gnus-blocked-images)
+                             shr-blocked-images))
        (shr-content-function (lambda (id)
                                (let ((handle (mm-get-content-id id)))
                                  (when handle