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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 900b5a5..e0c5a60 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-27  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-put-color): Don't do the box padding in tables, since
+       they're already padded.
+
 2011-01-26  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-next-page): When the last line of the

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)