Mercurial > emacs

changeset 110792:647b7ac5007c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
shr.el (shr-render-td): Only delete space at the end of the TD.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 06 Oct 2010 13:21:07 +0000
parents 5d585a964174
children 6ab940f572a9
files lisp/gnus/ChangeLog lisp/gnus/shr.el
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Wed Oct 06 13:13:11 2010 +0000
+++ b/lisp/gnus/ChangeLog	Wed Oct 06 13:21:07 2010 +0000
@@ -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.
--- a/lisp/gnus/shr.el	Wed Oct 06 13:13:11 2010 +0000
+++ b/lisp/gnus/shr.el	Wed Oct 06 13:21:07 2010 +0000
@@ -553,8 +553,10 @@
     (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))