shr: add bgcolor support in td

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a451185..a778fc7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -14,6 +14,7 @@
 2010-11-24  Julien Danjou  <julien@danjou.info>
 
        * shr.el (shr-tag-table): Add bgcolor support.
+       (shr-render-td): Add bgcolor support.
 
        * message.el (message-goto-body): Use called-interactively-p.
        (message-in-body-p): message-goto-body returns point.

diff --git a/lisp/shr.el b/lisp/shr.el
index 23ecbde..286cab1 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -953,6 +953,7 @@ text will be inserted at start."
     (let ((cache (cdr (assoc (cons width cont) shr-content-cache))))
       (if cache
          (insert cache)
+        (shr-insert-background-overlay (cdr (assq :bgcolor cont)) (point))
        (let ((shr-width width)
              (shr-indentation 0))
          (shr-generic cont))