(shr-put-color): Don't do the box padding in tables, since they're already padded.

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 2f47585..899a5de 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -619,7 +619,8 @@ ones, in case fg and bg are nil."
       (if (< (line-end-position) end)
          (forward-line 1)
        (goto-char end)))
-    (when (eq type :background)
+    (when (and (eq type :background)
+              (= shr-table-depth 0))
       (shr-expand-newlines start end color))))
 
 (defun shr-expand-newlines (start end color)