Minor shr white space rendering tweak

* shr.el (shr-insert): Update the text state properly to avoid
inserting spurious paragraph starts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c678d35..d2a2590 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-insert): Update the text state properly to avoid
+       inserting spurious paragraph starts.
+
 2012-03-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-update-marks): Don't propagate marks unless

diff --git a/lisp/shr.el b/lisp/shr.el
index 53c0063..c2040a9 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -332,6 +332,7 @@ the URL of the image to the kill buffer instead."
       (unless shr-start
        (setq shr-start (point)))
       (insert elem)
+      (setq shr-state nil)
       (let (found)
        (while (and (> (current-column) shr-width)
                    (progn