(shr-ensure-paragraph): Don't insert double line feeds after blank lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61cec76..6a994a2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,8 @@
        (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.
+       (shr-ensure-paragraph): Don't insert double line feeds after blank
+       lines.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 40f2f77..b9df138 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -99,7 +99,11 @@ fit these criteria."
     (if (bolp)
        (unless (eql (char-after (- (point) 2)) ?\n)
          (insert "\n"))
-      (insert "\n\n"))))
+      (if (save-excursion
+           (beginning-of-line)
+           (looking-at " *"))
+         (insert "\n")
+       (insert "\n\n")))))
 
 (defun shr-tag-b (cont)
   (shr-fontize-cont cont 'bold))