From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 22 Jun 1996 16:53:35 +0000 (+0000)
Subject: (gnus-background-mode): Set threshold for "light color"
X-Git-Tag: emacs-19.34~376
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52175688917c99686962b19e039c50f7338528c3;p=emacs.git

(gnus-background-mode): Set threshold for "light color"
at .6 of the total for white.
---

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))