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

[gnus] / lisp / shr.el

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)))