shr: add support for text attribute in body

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19370f2..14c7f50 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-08  Julien Danjou  <julien@danjou.info>
 
+       * shr.el (shr-tag-body): Add support for text attribute in body
+       markups.
+
        * message.el (message-options): Make message-options a local variable.
 
 2011-02-07  Lars Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/shr.el b/lisp/shr.el
index 5b4e6c7..bb9695e 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -696,7 +696,8 @@ ones, in case fg and bg are nil."
 
 (defun shr-tag-body (cont)
   (let* ((start (point))
-        (fgcolor (cdr (assq :fgcolor cont)))
+        (fgcolor (cdr (or (assq :fgcolor cont)
+                           (assq :text cont))))
         (bgcolor (cdr (assq :bgcolor cont)))
         (shr-stylesheet (list (cons 'color fgcolor)
                               (cons 'background-color bgcolor))))