From xemacs-m  Sat Feb 15 17:27:30 1997
Received: from mailhost.lanl.gov (mailhost.lanl.gov [128.165.3.12])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA10243
	for <xemacs-beta@xemacs.org>; Sat, 15 Feb 1997 17:27:29 -0600 (CST)
Received: from branagh.ta52.lanl.gov (branagh.ta52.lanl.gov [128.165.144.9]) by mailhost.lanl.gov (8.8.5/8.8.3) with SMTP id QAA01982 for <xemacs-beta@xemacs.org>; Sat, 15 Feb 1997 16:27:30 -0700 (MST)
Received: by branagh.ta52.lanl.gov (SMI-8.6/SMI-SVR4)
	id QAA06084; Sat, 15 Feb 1997 16:23:46 -0700
Date: Sat, 15 Feb 1997 16:23:46 -0700
Message-Id: <199702152323.QAA06084@branagh.ta52.lanl.gov>
From: "John A. Turner" <turner@branagh.ta52.lanl.gov>
To: xemacs-beta@xemacs.org
Subject: frame-icon.el
Reply-To: turner@lanl.gov

OK, this is the last one, I promise...

Live-icon.el is cool and all, but I just find this to be more useful.
For those that don't know, frame-icon sets the icon depending on the
mode (a scroll and quill for VM, file cabinet for dired, question mark
for info, newspaper for Gnus, etc.).  Since I typically have separate
frames dedicated to VM and Gnus, this is great.

I have a version I've used since around 19.11, but I believe there's a
version in Infodock as well.  Not sure which would be best to add.
Here are some excerpts from the version I have:

;;; FRAME-ICON.EL - set up mode-specific icons for each frame in XEmacs
;;; Copyright (C) 1993, 1994, 1995 Michael J Lamoureux

[snip]

;;; LCD Archive Entry:
;;; frame-icon|Michael J Lamoureux|<lamour@engin.umich.edu>
;;; |set up mode-specific icons for each frame in XEmacs
;;; |$Date: 1996/07/30 15:11:52 $|$Revision: 1.1.1.1 $|~/packages/frame-icon.el

I have to admit this stretches the bounds of your request, Steve,
since although it's a single .el, there are also a bunch of .xbm's for
the different icons...

-- 
John Turner
http://www.lanl.gov/home/turner

