diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2012-02-15 09:36:28 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-02-15 09:36:28 +0000 |
| commit | 888ab66104667346aff8a1569b924fe92daac7e2 (patch) | |
| tree | 2f755177d1a6352a48aa042d51a40c6287e0efbd /lisp/gnus | |
| parent | fcacfa8d51757d43e0934f59524924f20518e3e9 (diff) | |
| download | emacs-888ab66104667346aff8a1569b924fe92daac7e2.tar.gz | |
shr.el (shr-remove-trailing-whitespace): Really delete the padding on too-wide lines.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 2 |
2 files changed, 6 insertions, 1 deletions
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 <larsi@gnus.org> + + * shr.el (shr-remove-trailing-whitespace): Really delete the padding on + too-wide lines. + 2012-02-15 Paul Eggert <eggert@cs.ucla.edu> * 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)))) |