From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/3872
Path: main.gmane.org!not-for-mail
From: Scott Blachowicz <scott@statsci.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: default colors (dark background)
Date: Mon, 06 Nov 1995 09:20:19 -0800
Message-ID: <m0tCVDX-000r3yC@main.statsci.com>
References: <199511040015.SAA01979@galil.austnsc.tandem.com.>
Reply-To: scott@statsci.com
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035144693 27657 80.91.224.250 (20 Oct 2002 20:11:33 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:11:33 +0000 (UTC)
Cc: ding@ifi.uio.no, campo@sunthpi3.difi.unipi.it,
        elf@mailhost.ee.ryerson.ca (Luis Fernandes)
X-From-Line: ding-request@ifi.uio.no  Mon Nov  6 10:22:54 1995
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id KAA05435 for <steve@miranova.com>; Mon, 6 Nov 1995 10:22:41 -0800
Original-Received: from main.statsci.com (main.statsci.com [198.145.127.110]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <SAA07986@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 6 Nov 1995 18:21:17 +0100
Original-Received: by main.statsci.com (Smail3.1.29.1 #3)
	id m0tCVDX-000r3yC; Mon, 6 Nov 95 09:20 PST
Original-To: Sten Drescher <dreschs@mpd.tandem.com>
In-reply-to: Your message of "Fri, 03 Nov 1995 18:15:17 -0600."
             <199511040015.SAA01979@galil.austnsc.tandem.com.> 
Original-Lines: 44
Xref: main.gmane.org gmane.emacs.gnus.general:3872
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:3872

Sten Drescher <dreschs@mpd.tandem.com> wrote:

> 	This lets me change colors to suit my mood.  What can I put in
> the defuns to change gnus colors appropriately?  (And, in a non-gnus
> emacs question, how can I set one of the color schemes and the font as
> the default for all frames, not just the first one?)

I'm not sure if this is complete, up-to-date or "proper" (I believe it is
definitely specific to GNU Emacs 19, not XEmacs), but I've got this
function that I put together a while ago:

    (defun sab:modify-all-frames (alist)
      ;; Modify existing frames
      (mapcar (lambda (f)
                (modify-frame-parameters f alist))
              (frame-list))

      ;; Set defaults for new frames
      (mapcar (lambda (f)
                (let ((old (assoc (car f) default-frame-alist)))
                  (setq default-frame-alist
                        (append
                         (if old
                             (delete old default-frame-alist)
                           default-frame-alist)
                         (list f)))
                  )
                )
              alist
              )
      )

and I call it like this:

          (sab:modify-all-frames
           '((foreground-color . "DarkSlateBlue")
             (background-color . "grey90")
             )
           )

Scott Blachowicz    Ph: 206/283-8802x240    StatSci, a div of MathSoft, Inc.
                                            1700 Westlake Ave N #500
scott@statsci.com                           Seattle, WA USA   98109
Scott.Blachowicz@seaslug.org