From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 29 Dec 2021 15:48:34 +0000 (+0100)
Subject: Allow the user to specify shr-width in mm-shr
X-Git-Tag: emacs-29.0.90~3369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9b28ba7c3fa3dc9647aa67ae398ce8b36fb1f4e;p=emacs.git

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 d2889a50c0a..e2fb4b66b1b 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)))