Don't insert a new newline after empty-ish lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bc70bf..0ac2c8f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (browse-url): Required.
+       (shr-ensure-paragraph): Don't insert a new newline after empty-ish
+       lines.
 
        * gnus-sum.el (gnus-widen-article-window): New variable.
        (gnus-summary-select-article-buffer): Use it.

diff --git a/lisp/shr.el b/lisp/shr.el
index 587587c..4b5d2fb 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -99,7 +99,9 @@ fit these criteria."
 (defun shr-ensure-paragraph ()
   (unless (bobp)
     (if (bolp)
-       (unless (eql (char-after (- (point) 2)) ?\n)
+       (unless (save-excursion
+                 (forward-line -1)
+                 (looking-at " *$"))
          (insert "\n"))
       (if (save-excursion
            (beginning-of-line)