(shr-tag-p): Collapse subsequent <p>s.

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 8092b1b..40f2f77 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -92,8 +92,7 @@ fit these criteria."
 (defun shr-tag-p (cont)
   (shr-ensure-paragraph)
   (shr-generic cont)
-  (unless (bobp)
-    (insert "\n")))
+  (shr-ensure-paragraph))
 
 (defun shr-ensure-paragraph ()
   (unless (bobp)