From: Lars Ingebrigtsen Date: Wed, 15 Feb 2012 09:36:28 +0000 (+0000) Subject: shr.el (shr-remove-trailing-whitespace): Really delete the padding on too-wide lines. X-Git-Tag: emacs-pretest-24.0.94~133^2~16 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=888ab66104667346aff8a1569b924fe92daac7e2;p=emacs.git shr.el (shr-remove-trailing-whitespace): Really delete the padding on too-wide lines. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 59796c9df4f..9ac21e5a33e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-02-15 Lars Ingebrigtsen + + * shr.el (shr-remove-trailing-whitespace): Really delete the padding on + too-wide lines. + 2012-02-15 Paul Eggert * shr.el (shr-rescale-image): Undo previous change; see diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index a8bbc77a4b1..f3d75032926 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -160,7 +160,7 @@ DOM should be a parse tree as generated by (goto-char start) (while (not (eobp)) (end-of-line) - (when (> (current-column) width) + (when (> (shr-previous-newline-padding-width (current-column)) width) (dolist (overlay (overlays-at (point))) (when (overlay-get overlay 'before-string) (overlay-put overlay 'before-string nil))))