diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-10-06 13:21:07 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-06 13:21:07 +0000 |
| commit | 356242428b39c85760780f961ba40672d8e2d8b3 (patch) | |
| tree | 36dc2dbd8420af3b190c77f18fc182ccb33e19dc /lisp | |
| parent | 1d8e1f787db65c09d7d2394d5644b63a3bd2f7df (diff) | |
| download | emacs-356242428b39c85760780f961ba40672d8e2d8b3.tar.gz | |
shr.el (shr-render-td): Only delete space at the end of the TD.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 6 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5e6a1e488f8..08c5282728e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,6 +1,7 @@ 2010-10-06 Lars Magne Ingebrigtsen <larsi@gnus.org> * shr.el (shr-insert): Get 'space transition right. + (shr-render-td): Only delete space at the end of the TD. * nnimap.el (nnimap-open-connection): Prepare to support open-gnutls-stream. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index e0bb868f40e..1c496ced543 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -553,8 +553,10 @@ Return a string with image data." (let ((shr-width width) (shr-indentation 0)) (shr-generic cont)) - (while (re-search-backward "\n *$" nil t) - (delete-region (match-beginning 0) (match-end 0))) + (delete-region + (point) + (+ (point) + (skip-chars-backward " \t\n"))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) |