From 888ab66104667346aff8a1569b924fe92daac7e2 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 15 Feb 2012 09:36:28 +0000 Subject: [PATCH] shr.el (shr-remove-trailing-whitespace): Really delete the padding on too-wide lines. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/shr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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)))) -- 2.39.2