Signed-off-by: Julien Danjou <julien@danjou.info>
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.
(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))))