From: Julien Danjou Date: Tue, 8 Feb 2011 10:32:01 +0000 (+0100) Subject: shr: add support for text attribute in body X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=63f4303602489f15cc8bf1c9f1696e18436999dd;p=gnus shr: add support for text attribute in body Signed-off-by: Julien Danjou --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 19370f2ad..14c7f50cb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-02-08 Julien Danjou + * 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 diff --git a/lisp/shr.el b/lisp/shr.el index 5b4e6c738..bb9695ebb 100644 --- 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))))