master d9b28ba7c3: Allow the user to specify shr-width in mm-shr

[Lars Ingebrigtsen]

branch: master
commit d9b28ba7c3fa3dc9647aa67ae398ce8b36fb1f4e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/gnus/mm-decode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index d2889a50c0..e2fb4b66b1 100644
--- 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)))