From 96c1e956d124e84b6a1df29ba96c00b35fa1a8ae Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 8 Oct 2010 15:56:34 +0200 Subject: [PATCH] * shr.el (shr-insert): Don't insert double spaces. --- lisp/ChangeLog | 4 ++++ lisp/shr.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * shr.el (shr-insert): Don't insert double spaces. + 2010-10-08 Katsumi Yamaoka * 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) -- 2.25.1