(gnus-background-mode): Set threshold for "light color"

[bpt/emacs.git] / lisp / gnus-ems.el

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 04a32e0..a759acf 100644 (file)
--- 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))