# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835462415 0
# Node ID 8c2363919ae0f5432792b4d1d3b79ca3f6b280a9
# Parent  d3b17e7049bf5c56714c7a9b32507540a9131089
(gnus-background-mode): Set threshold for "light color"
at .6 of the total for white.

diff -r d3b17e7049bf -r 8c2363919ae0 lisp/gnus-ems.el
--- a/lisp/gnus-ems.el	Sat Jun 22 16:51:43 1996 +0000
+++ b/lisp/gnus-ems.el	Sat Jun 22 16:53:35 1996 +0000
@@ -127,7 +127,7 @@
 		    ((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))