mm-decode.el (mm-shr): Bind `shr-width' to `fill-column' so that lines don't get...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 786ee1b..d7ad893 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-29  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-decode.el (mm-shr): Bind `shr-width' to `fill-column' so that
+       lines don't get overlong when responding.
+
 2014-12-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * registry.el (cl-remf, cl-loop, cl-subseq):

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index f5b4d7c..3913ecc 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1814,6 +1814,7 @@ If RECURSIVE, search recursively."
   ;; Require since we bind its variables.
   (require 'shr)
   (let ((article-buffer (current-buffer))
+       (shr-width fill-column)
        (shr-content-function (lambda (id)
                                (let ((handle (mm-get-content-id id)))
                                  (when handle