From 3f39b526928624a15c3b079e3e69103ab8643bd7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 27 Jan 2011 10:27:51 +0000 Subject: [PATCH] shr.el (shr-put-color): Special-case background colours: Do put them at the blank parts at the front of the lines. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/shr.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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)) -- 2.39.2