From 52175688917c99686962b19e039c50f7338528c3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 Jun 1996 16:53:35 +0000 Subject: [PATCH] (gnus-background-mode): Set threshold for "light color" at .6 of the total for white. --- lisp/gnus-ems.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 04a32e039c0..a759acfc3bc 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -127,7 +127,7 @@ pounce directly on the real variables themselves.") ((and (cdr (assq 'background-color params)) (< (apply '+ (x-color-values (cdr (assq 'background-color params)))) - (/ (apply '+ (x-color-values "white")) 3))) + (* (apply '+ (x-color-values "white")) .6))) 'dark) (t 'light))) (error 'light)) -- 2.39.2