Make eww rendering default to `window-width' again

* lisp/gnus/mm-decode.el (mm-shr): Bind `shr-width' to `fill-column'
so that lines don't get overlong when responding.

* lisp/net/eww.el (eww-mode): Truncate overlong lines for prettier
display when resizing.

* lisp/net/shr.el (shr-width): Default to using the window width when
rendering.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d2aa9b96a0d28c261ad1a443506e17a52cf4d3a..82608b76b57fa103aac10921cda237cc22c4c4b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2014-12-29  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * net/eww.el (eww-mode): Truncate overlong lines for prettier
+       display when resizing.
+
+       * net/shr.el (shr-width): Default to using the window width when
+       rendering.
+
 2014-12-29  Dmitry Gutov  <dgutov@yandex.ru>
 
        Unbreak jumping to an alias's definition.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6f0ea0f57dedd548d3c83a75d554bddb8b991759..0007b15a76a90621b64336d0c38d4b24dbf07818 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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-18  Paul Eggert  <eggert@cs.ucla.edu>
 
        * registry.el (registry-db): Set default slot later.

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index f5b4d7cba881afe101e04b3ab817efc07160e09c..3913ecc0b4ee7826adde7852b03a65b4547affbd 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/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

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 9d787d34f49fa11616f8e17bf8efbf992174b6ca..b43dba589c2e46e0384633edc05c92eb2334703e 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -705,6 +705,7 @@ the like."
    (setq-local tool-bar-map eww-tool-bar-map))
   ;; desktop support
   (setq-local desktop-save-buffer 'eww-desktop-misc-data)
+  (setq truncate-lines t)
   (buffer-disable-undo)
   (setq buffer-read-only t))
 

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 26bb292bc4156727a25c3283d4fdbbcec32d0c74..6553fd3958c78f3bd102d9f1582251a81e0ac134 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -78,11 +78,12 @@ If nil, don't draw horizontal table lines."
   :group 'shr
   :type 'character)
 
-(defcustom shr-width fill-column
+(defcustom shr-width nil
   "Frame width to use for rendering.
 May either be an integer specifying a fixed width in characters,
 or nil, meaning that the full width of the window should be
 used."
+  :version "25.1"
   :type '(choice (integer :tag "Fixed width in characters")
                 (const   :tag "Use the width of the window" nil))
   :group 'shr)