Tweak background colours in shr when there's indentation

* lisp/net/shr.el (shr-fill-line): Get the background colour right
for the indentation, too.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 8fdc758032000d3b23c2038837f7c75e04b930ec..6517596130c8d3f808eda3f1693a6788a8e8773e 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -751,10 +751,10 @@ size, and full-buffer size."
               (face (get-text-property (point) 'face)))
           ;; Extend the background to the end of the line.
           (insert ?\n)
+         (shr-indent)
           (when face
-            (put-text-property (1- (point)) (point)
+            (put-text-property gap-start (point)
                                'face (shr-face-background face)))
-         (shr-indent)
           (when (and (> (1- gap-start) (point-min))
                      (get-text-property (point) 'shr-url)
                      ;; The link on both sides of the newline are the