From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 13 Sep 2014 09:25:38 +0000 (+0300)
Subject: Fix HTML rendering by shr-insert-document in Rmail.
X-Git-Tag: emacs-25.0.90~2635^2~679^2~298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f9d7c7c5c41efea91b24c78e35f9e661ac7d7dd;p=emacs.git

Fix HTML rendering by shr-insert-document in Rmail.

 lisp/mail/rmailmm.el (rmail-mime-insert-html): Decode the HTML part
 using the specified transfer-encoding, if any, or 'undecided'.
 (rmail-mime-render-html-shr): Bind shr-width to nil, so lines are
 broken at the window margin.

Fixes: debbugs:4258
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e79f8563b49..a05b7b59a27 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* mail/rmailmm.el (rmail-mime-insert-html): Decode the HTML part
 	using the specified transfer-encoding, if any, or 'undecided'.
+	(rmail-mime-render-html-shr): Bind shr-width to nil, so lines are
+	broken at the window margin.
 
 2013-12-27  Ken Olum  <kdo@cosmos.phy.tufts.edu>
 
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index becfb2f8cab..b5b594f59f2 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -694,7 +694,12 @@ HEADER is a header component of a MIME-entity object (see
 	;; Image retrieval happens asynchronously, but meanwhile
 	;; `rmail-swap-buffers' may have been run, leaving
 	;; `shr-image-fetched' trying to insert the image in the wrong buffer.
-	(shr-inhibit-images t))
+	(shr-inhibit-images t)
+	;; Bind shr-width to nil to force shr-insert-document break
+	;; the lines at the window margin.  The default is
+	;; fill-column, whose default value is too small, and screws
+	;; up display of the quoted messages.
+	shr-width)
     (shr-insert-document dom)))
 
 (defun rmail-mime-render-html-lynx (source-buffer)