* shr.el (shr-insert): Don't insert double spaces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e556ee9..ddd2073 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-insert): Don't insert double spaces.
+
 2010-10-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-gravatar.el (gnus-treat-from-gravatar)

diff --git a/lisp/shr.el b/lisp/shr.el
index ffc27e9..daafa61 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -188,7 +188,8 @@ redirects somewhere else."
     (let ((first t)
          column)
       (when (and (string-match "\\`[ \t\n]" text)
-                (not (bolp)))
+                (not (bolp))
+                (not (eq (char-after (1- (point))) ? )))
        (insert " "))
       (dolist (elem (split-string text))
        (when (and (bolp)