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

[gnus] / lisp / shr.el

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)