From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Tue, 5 Oct 2010 18:42:40 +0000 (+0200)
Subject: * mm-decode.el (mm-shr): Require shr.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=2e7157f545dab4c5aefe05c1737d71f1a4d5c739

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44f89d727..68d2ddf4e 100644
--- 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 28339d769..70b735a70 100644
--- 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))