From 4b8b6f602a2a006f4a1a8257e1110eb3d3d8bb1b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 24 Nov 2010 06:22:51 +0000 Subject: [PATCH] shr-color.el (shr-color->hexadecimal): Ignore case of color names. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/shr-color.el | 3 +-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index a1f1fa5eaea..60173116746 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,7 @@ 2010-11-24 Katsumi Yamaoka + * shr-color.el (shr-color->hexadecimal): Ignore case of color names. + * color-lab.el: Add coding cookie. (float-pi): Use eval-and-compile. diff --git a/lisp/gnus/shr-color.el b/lisp/gnus/shr-color.el index d611609e39c..1e965673803 100644 --- a/lisp/gnus/shr-color.el +++ b/lisp/gnus/shr-color.el @@ -260,8 +260,7 @@ Like rgb() or hsl()." (shr-color-hsl-to-rgb-fractions h s l) (format "#%02X%02X%02X" (* r 255) (* g 255) (* b 255))))) ;; Color names - ((assoc color shr-color-html-colors-alist) - (cdr (assoc-string color shr-color-html-colors-alist t))) + ((cdr (assoc-string color shr-color-html-colors-alist t))) ;; Unrecognized color :( (t nil)))) -- 2.39.5