From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Fri, 8 Oct 2010 13:56:34 +0000 (+0200)
Subject: * shr.el (shr-insert): Don't insert double spaces.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=96c1e956d124e84b6a1df29ba96c00b35fa1a8ae;hp=e9fde9a29ea5fd81ab428e382ba498ed5bc8dce2

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e556ee97a..ddd2073ee 100644
--- 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 ffc27e92c..daafa61d3 100644
--- 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)