Mercurial > emacs
changeset 111057:097fe1170a9a
shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 19 Oct 2010 23:26:28 +0000 |
| parents | 062487f243c2 |
| children | ea17726e9043 |
| files | lisp/gnus/ChangeLog lisp/gnus/shr.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Oct 19 23:06:50 2010 +0000 +++ b/lisp/gnus/ChangeLog Tue Oct 19 23:26:28 2010 +0000 @@ -1,5 +1,8 @@ 2010-10-19 Lars Magne Ingebrigtsen <larsi@gnus.org> + * 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.
--- a/lisp/gnus/shr.el Tue Oct 19 23:06:50 2010 +0000 +++ b/lisp/gnus/shr.el Tue Oct 19 23:26:28 2010 +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 ()