(shr-ensure-paragraph): Actually work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d60b0c2..5f6ec89 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-10-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el: Add headings.
 2010-10-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el: Add headings.

+       (shr-ensure-paragraph): Actually work.

 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 3b9596a..9580b4f 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -98,7 +98,7 @@ fit these criteria."
 (defun shr-ensure-paragraph ()
   (unless (bobp)
     (if (bolp)
 (defun shr-ensure-paragraph ()
   (unless (bobp)
     (if (bolp)

-       (unless (eql (char-after (1- (point))) ?\n)
+       (unless (eql (char-after (- (point) 2)) ?\n)

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