[Emacs-diffs] /srv/bzr/emacs/trunk r102010: shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102010
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2010-10-19 23:26:28 +0000
message:
  shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-19 23:06:50 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-19 23:26:28 +0000
@@ -1,5 +1,8 @@
 2010-10-19  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * shr.el (shr-find-fill-point): Don't leave blanks at the start of some
+       lines.
+
        * nndoc.el (nndoc-type-alist): Add git support.
        (nndoc-git-type-p): New function.
        (nndoc-transform-git-article): Ditto.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-10-19 22:20:47 +0000
+++ b/lisp/gnus/shr.el  2010-10-19 23:26:28 +0000
@@ -241,8 +241,8 @@
                  (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))
@@ -280,6 +280,8 @@
              (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 ()