(shr-insert): Get 'space transition right.

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 3b9709c..e0bb868 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -175,7 +175,8 @@ redirects somewhere else."
          column)
       (when (and (string-match "\\`[ \t\n]" text)
                 (not (bolp)))
-       (insert " "))
+       (insert " ")
+       (setq shr-state 'space))
       (dolist (elem (split-string text))
        (setq column (current-column))
        (when (> column 0)