shr: add bgcolor support on table

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8867afe..a451185 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -13,6 +13,8 @@
 
 2010-11-24  Julien Danjou  <julien@danjou.info>
 
+       * shr.el (shr-tag-table): 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 43b680f..23ecbde 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -802,9 +802,11 @@ text will be inserted at start."
         (header (cdr (assq 'thead cont)))
         (body (or (cdr (assq 'tbody cont)) cont))
         (footer (cdr (assq 'tfoot cont)))
+         (bgcolor (cdr (assq :bgcolor cont)))
         (nheader (if header (shr-max-columns header)))
         (nbody (if body (shr-max-columns body)))
         (nfooter (if footer (shr-max-columns footer))))
+    (shr-insert-background-overlay bgcolor (point))
     (shr-tag-table-1
      (nconc
       (if caption `((tr (td ,@caption))))