projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(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
(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.
;;; Tag-specific rendering rules.