shr.el (shr-insert): Minor shr white space rendering tweak

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d0d35407367..878b9b9eb6b 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/shr.el b/lisp/gnus/shr.el
index 53c0063de2e..c2040a9b8cf 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/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