shr-color: only return hexadecimal part of colors

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 3d3b199..fc1286e 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -502,9 +502,6 @@ START, and END."
 
 (defun shr-insert-color-overlay (color start end)
   (when color
-    (when (and (not (string-match "\\`rgb([^\)]+)\\'" color))
-              (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)))))))