From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 3 Oct 2010 21:42:26 +0000 (+0200)
Subject: (shr-ensure-paragraph): Actually work.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=eee491757a49e1494a4df549b5954612c4c194e1;hp=d899f72d87146f8c9626cb0466a0893e46b0eb9e

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d60b0c279..5f6ec897e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 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>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 3b9596a6e..9580b4f60 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -98,7 +98,7 @@ fit these criteria."
 (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"))))