shr.el (shr-render-td): Only delete space at the end of the TD.

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))