X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fshr.el;h=ba335e77f7b12b064e63a16a861387af6b5e1930;hp=88508961756521c818e23b1f358867334e490435;hb=d0df09319ca1c5cad22bb04c263578e6b6a8f910;hpb=3dd9cea0b2c072d1dbe2e8f1370ded2ceb9d82ac

diff --git a/lisp/shr.el b/lisp/shr.el
index 885089617..ba335e77f 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -942,8 +942,7 @@ ones, in case fg and bg are nil."
 	      `((tr (td (table (tbody ,@body)))))
 	    body)))))
     (when bgcolor
-      (shr-colorize-region start (point)
-			   nil
+      (shr-colorize-region start (point) (cdr (assq 'color shr-stylesheet))
 			   bgcolor))))
 
 (defun shr-find-elements (cont type)