* shr.el (shr-find-fill-point): Don't inloop on indented text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65d2bb0..c19ea93 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-find-fill-point): Don't inloop on indented text.
+
        * tls.el (tls-program): Remove spurious %s from openssl.
 
        * nnimap.el (nnimap-open-connection): Fix open-tls-stream call.

diff --git a/lisp/shr.el b/lisp/shr.el
index 1cdd6a7..119fd97 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -235,7 +235,7 @@ redirects somewhere else."
 (defun shr-find-fill-point ()
   (let ((found nil))
     (while (and (not found)
-               (not (bolp)))
+               (> (current-column) shr-indentation))
       (when (and (or (eq (preceding-char) ? )
                     (aref fill-find-break-point-function-table
                           (preceding-char)))