diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-10-19 23:26:28 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-19 23:26:28 +0000 |
| commit | b643306fb0d4335141d289f28238c04744c89629 (patch) | |
| tree | 7029dc2c268d5058a584d97f0c04ded7516c4375 /lisp/gnus/shr.el | |
| parent | c872595d34c5254408a0e8197f9869a53a5f4b34 (diff) | |
| download | emacs-b643306fb0d4335141d289f28238c04744c89629.tar.gz | |
shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
Diffstat (limited to 'lisp/gnus/shr.el')
| -rw-r--r-- | lisp/gnus/shr.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index e360eab9064..cdb6ea67d1d 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/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. - (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 @@ redirects somewhere else." (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 () |