From e3a492c39046ad4e7e84d714ba3464b831f94740 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Mon, 4 Oct 2010 00:03:20 +0200
Subject: [PATCH] (shr-tag-p): Collapse subsequent <p>s.

---
 lisp/ChangeLog | 1 +
 lisp/shr.el    | 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e00c6b31..61cec7654 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
 	(shr-ensure-paragraph): Actually work.
 	(shr-tag-li): Make <ul> prettier.
 	(shr-insert): Get white space at the beginning/end of elements right.
+	(shr-tag-p): Collapse subsequent <p>s.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 8092b1bdf..40f2f77b3 100644
--- 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)
-- 
2.25.1