Allow the user to specify shr-width in mm-shr

* lisp/gnus/mm-decode.el (mm-shr): Allow the user to specify the
width by setting `shr-width' (bug#52825).

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index d2889a50c0a26a53f47279142b7fb1b1672fd1a1..e2fb4b66b1bfa6629d28fb7819e65fe841656560 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1869,7 +1869,7 @@ If RECURSIVE, search recursively."
   ;; Require since we bind its variables.
   (require 'shr)
   (let ((shr-width (if shr-use-fonts
-                      nil
+                      shr-width
                     fill-column))
        (shr-content-function (lambda (id)
                                (let ((handle (mm-get-content-id id)))