shr-color: add HTML->hexadecimal converter

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 1084505..60fa127 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -520,7 +520,9 @@ START, and END."
 (autoload 'shr-color-visible "shr-color")
 (defun shr-tag-color-check (fg &optional bg)
   "Check that FG is visible on BG."
-  (shr-color-visible (or bg (frame-parameter nil 'background-color)) fg (not bg)))
+  (shr-color-visible (or (shr-color->hexadecimal bg)
+                         (frame-parameter nil 'background-color))
+                     (shr-color->hexadecimal fg) (not bg)))
 
 (defun shr-tag-insert-color-overlay (color start end)
   (when color