From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 3 Oct 2010 22:03:20 +0000 (+0200)
Subject: (shr-tag-p): Collapse subsequent <p>s.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=e3a492c39046ad4e7e84d714ba3464b831f94740

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

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)