Mercurial > emacs

diff lisp/gnus/shr.el @ 111693:1cb16ad0d1bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge changes made in Gnus trunk. nnheader.el (nnheader-parse-head): Bug fix. Properly position point when parsing headers. nnspool.el (nnspool-insert-nov-head): Bug fix. Make sure point is positioned properly when parsing headers. shr-color.el (shr-color->hexadecimal): Add support for color names. color-lab.el (boundp): Bind float-pi for Emacs < 23.3. shr.el (shr-insert-color-overlay): Split stuff like "#444444 !important" to find the real colour.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 23 Nov 2010 22:24:15 +0000
parents 01aefe45207c
children bef4f575201b
line wrap: on
line diff
--- a/lisp/gnus/shr.el	Tue Nov 23 22:27:22 2010 +0200
+++ b/lisp/gnus/shr.el	Tue Nov 23 22:24:15 2010 +0000
@@ -502,6 +502,8 @@
 
 (defun shr-insert-color-overlay (color start end)
   (when color
+    (when (string-match " " color)
+      (setq color (car (split-string color))))
     (let ((overlay (make-overlay start end)))
       (overlay-put overlay 'face (cons 'foreground-color
                                        (cadr (shr-color-check color)))))))