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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba4f460..5c625f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-insert): Get 'space transition right.
+
        * nnimap.el (nnimap-open-connection): Prepare to support
        open-gnutls-stream.
 

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)