[Emacs-diffs] /srv/bzr/emacs/trunk r101820: shr.el (shr-render-td): Only delete space at the end of the TD.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101820
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-10-06 13:21:07 +0000
message:
  shr.el (shr-render-td): Only delete space at the end of the TD.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-06 13:13:11 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-06 13:21:07 +0000
@@ -1,6 +1,7 @@
 2010-10-06  Lars Magne Ingebrigtsen  <address@hidden>
 
        * 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.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-10-06 12:38:45 +0000
+++ b/lisp/gnus/shr.el  2010-10-06 13:21:07 +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))