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

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index ff3474c..4d62ba3 100644 (file)
--- 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)