diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2011-02-09 23:04:56 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-02-09 23:04:56 -0800 |
commit | be6d99804b3efdecf3660c4b51da1945e955fb4d (patch) | |
tree | 99b523c445f7b95572ab668f4e878cd703ff3527 /lisp/gnus/shr.el | |
parent | dd4638842ad1921562bc66049ec81a4530651cdf (diff) | |
parent | 67f02b82f496be403353a1dc918cc4f2278841bb (diff) | |
download | emacs-be6d99804b3efdecf3660c4b51da1945e955fb4d.tar.gz emacs-be6d99804b3efdecf3660c4b51da1945e955fb4d.tar.bz2 emacs-be6d99804b3efdecf3660c4b51da1945e955fb4d.zip |
Merge from mainline.
Diffstat (limited to 'lisp/gnus/shr.el')
-rw-r--r-- | lisp/gnus/shr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 5b4e6c7389d..bb9695ebb72 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/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)))) |