* mm-decode.el (mm-shr): Require shr.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44f89d7..68d2ddf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mm-decode.el (mm-shr): Require shr.
+
        * gnus-art.el (gnus-blocked-images): Move variable here.
 
        * shr.el (shr-insert-table): Bind free variable.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 28339d7..70b735a 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1684,6 +1684,8 @@ If RECURSIVE, search recursively."
 (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))