From 133953e3dae536f5a827293bedd49e24cb65708b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 27 Jan 2011 02:13:55 -0800 Subject: [PATCH] Special-case background colours. Do put them at the blank parts at the front of the lines. --- lisp/ChangeLog | 3 +++ lisp/shr.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5f7e09061..2ba846165 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 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/shr.el b/lisp/shr.el index 899a5defa..4568f45db 100644 --- a/lisp/shr.el +++ b/lisp/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.25.1