From: Lars Ingebrigtsen Date: Thu, 27 Jan 2011 10:27:51 +0000 (+0000) Subject: shr.el (shr-put-color): Special-case background colours: Do put them at the blank... X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~1322^2~116 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f39b526928624a15c3b079e3e69103ab8643bd7;p=emacs.git shr.el (shr-put-color): Special-case background colours: Do put them at the blank parts at the front of the lines. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5f20d2cfa65..1e3a1b670c9 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -4,6 +4,9 @@ 2011-01-27 Lars Ingebrigtsen + * shr.el (shr-put-color): Special-case background colours: Do put them + at the blank parts at the front of the lines. + * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an exit hook to nix out all data on readedness on group exit. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 899a5defaeb..4568f45dbb5 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -612,7 +612,8 @@ ones, in case fg and bg are nil." (save-excursion (goto-char start) (while (< (point) end) - (when (bolp) + (when (and (bolp) + (not (eq type :background))) (skip-chars-forward " ")) (when (> (line-end-position) (point)) (shr-put-color-1 (point) (min (line-end-position) end) type color))