From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6020
Path: main.gmane.org!not-for-mail
From: William Perry <wmperry@monolith.spry.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Correction to gnus-background-mode for XEmacs
Date: Mon, 22 Apr 1996 08:39:43 -0700
Message-ID: <199604221539.IAA02435@monolith.spry.com>
Reply-To: wmperry@spry.com
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035146538 2239 80.91.224.250 (20 Oct 2002 20:42:18 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:42:18 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id JAA05133 for <steve@miranova.com>; Mon, 22 Apr 1996 09:19:21 -0700
Original-Received: from monolith.spry.com (wmperry@monolith.spry.com [198.185.2.198]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <RAA09558@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 22 Apr 1996 17:39:00 +0200
Original-Received: (from wmperry@localhost) by monolith.spry.com (8.6.12/8.6.9) id IAA02435; Mon, 22 Apr 1996 08:39:43 -0700
Original-To: ding@ifi.uio.no
Errors-to: wmperry@spry.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
Xref: main.gmane.org gmane.emacs.gnus.general:6020
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6020

Since XEmacs doesn't _EVER_ set the background-color frame property,
gnus-background-mode would always guess 'light', which is just
disgusting on a dark background. :)

This patch appears to mostly fix things.

-Bill P.

*** gnus-xmas.el	1996/04/22 15:26:31	1.1
--- gnus-xmas.el	1996/04/22 15:26:43
***************
*** 375,389 ****
  	     (make-color-instance color)))))
      
    (defvar gnus-background-mode 
!     (let ((bg-resource 
! 	   (condition-case ()
! 	       (x-get-resource ".backgroundMode" "BackgroundMode" 'string)
! 	     (error nil)))
! 	  (params (frame-parameters)))
        (cond (bg-resource (intern (downcase bg-resource)))
! 	    ((and (assq 'background-color params)
! 		  (< (apply '+ (gnus-x-color-values
! 				(cdr (assq 'background-color params))))
  		     (/ (apply '+ (gnus-x-color-values "white")) 3)))
  	     'dark)
  	    (t 'light)))
--- 375,392 ----
  	     (make-color-instance color)))))
      
    (defvar gnus-background-mode 
!     (let* ((bg-resource 
! 	    (condition-case ()
! 		(x-get-resource ".backgroundMode" "BackgroundMode" 'string)
! 	      (error nil)))
! 	   (params (frame-parameters))
! 	   (color (or (assq 'background-color params)
! 		      (color-instance-name
! 		       (specifier-instance
! 			(face-background 'default))))))
        (cond (bg-resource (intern (downcase bg-resource)))
! 	    ((and color
! 		  (< (apply '+ (gnus-x-color-values color))
  		     (/ (apply '+ (gnus-x-color-values "white")) 3)))
  	     'dark)
  	    (t 'light)))