(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))