diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 948b2a2fd1c..521251845da 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1817,6 +1817,8 @@ If RECURSIVE, search recursively."
 	    (delete-region ,(point-min-marker)
 			   ,(point-max-marker))))))))
 
+(defvar shr-map)
+
 (defun mm-convert-shr-links ()
   (let ((start (point-min))
 	end)