From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Thu, 7 Oct 2010 14:40:14 +0000 (+0200)
Subject: (shr-tag-blockquote): Ensure paragraphs after </ul>.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=ec37deaf667d39e32df12f708b58e6fc0082e6ad

(shr-tag-blockquote): Ensure paragraphs after </ul>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86a2c6578..60ecd3619 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
 	(shr-insert): Rework the line-breaking algorithm.
 	(shr-insert): Don't leave trailing spaces.
 	(shr-insert-table): Also insert empty TDs.
+	(shr-tag-blockquote): Ensure paragraphs after </ul>.
 
 2010-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index ff3474ce1..4d62ba3d6 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -404,11 +404,14 @@ Return a string with image data."
 (defun shr-tag-ul (cont)
   (shr-ensure-paragraph)
   (let ((shr-list-mode 'ul))
-    (shr-generic cont)))
+    (shr-generic cont))
+  (shr-ensure-paragraph))
 
 (defun shr-tag-ol (cont)
+  (shr-ensure-paragraph)
   (let ((shr-list-mode 1))
-    (shr-generic cont)))
+    (shr-generic cont))
+  (shr-ensure-paragraph))
 
 (defun shr-tag-li (cont)
   (shr-ensure-newline)