(shr-find-fill-point): Don't leave blanks at the start of some lines.

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index e360eab..cdb6ea6 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -241,8 +241,8 @@ redirects somewhere else."
                  (insert "\n"))
          (put-text-property (1- (point)) (point) 'shr-break t)
          ;; No space is needed at the beginning of a line.
                  (insert "\n"))
          (put-text-property (1- (point)) (point) 'shr-break t)
          ;; No space is needed at the beginning of a line.

-         (if (eq (following-char) ? )
-             (delete-char 1)))
+         (when (eq (following-char) ? )
+           (delete-char 1)))

        (when (> shr-indentation 0)
          (shr-indent))
        (end-of-line))
        (when (> shr-indentation 0)
          (shr-indent))
        (end-of-line))


@@ -280,6 +280,8 @@ redirects somewhere else."
              (while (and (> count 0)
                          (aref (char-category-set (following-char)) ?>))
                (forward-char 1)))
              (while (and (> count 0)
                          (aref (char-category-set (following-char)) ?>))
                (forward-char 1)))

+           (when (eq (following-char) ? )
+             (forward-char 1))

            t)))))
 
 (defun shr-ensure-newline ()
            t)))))
 
 (defun shr-ensure-newline ()