(shr-ensure-paragraph): Fix the non-empty line case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2477219..f365ced 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-ensure-paragraph): Fix the non-empty line case.
+

 2010-10-04  Julien Danjou  <julien@danjou.info>
 
        * gnus-html.el (gnus-html-put-image): Fix resize image code.
 2010-10-04  Julien Danjou  <julien@danjou.info>
 
        * gnus-html.el (gnus-html-put-image): Fix resize image code.

diff --git a/lisp/shr.el b/lisp/shr.el
index 118afe2..bfcb91e 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -101,7 +101,7 @@ fit these criteria."
          (insert "\n"))
       (if (save-excursion
            (beginning-of-line)
          (insert "\n"))
       (if (save-excursion
            (beginning-of-line)

-           (looking-at " *"))
+           (looking-at " *$"))

          (insert "\n")
        (insert "\n\n")))))
 
          (insert "\n")
        (insert "\n\n")))))