shr-color: only return hexadecimal part of colors

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index b195f6b..fc1286e 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -502,11 +502,9 @@ START, and END."
 
 (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)))))))
+                                      (cadr (shr-color-check color)))))))
 
 ;;; Tag-specific rendering rules.