Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!uwm.edu!cs.utexas.edu!samsung!uakari.primate.wisc.edu!dali!milton!milton.u.washington.edu!mcglk
From: mcglk@bailey.cpac.washington.edu (Ken McGlothlen)
Newsgroups: comp.emacs
Subject: GNUS (mode lines)
Message-ID: <MCGLK.90Apr8171737@bailey.cpac.washington.edu>
Date: 9 Apr 90 00:17:37 GMT
Sender: news@milton.acs.washington.edu
Distribution: usa
Organization: Dubious.
Lines: 40

Hopefully, someone can help me out with this.

I've gotten quite addicted to GNUS over `rn' lately, in spite of the slightly
slower speed.  The problem is that in my .emacs file, I've altered
`mode-line-format' and `default-mode-line-format' to something more my liking.
However, when I do this, it also carries over to the mode-line formats that
GNUS uses.

I tried putting

	(setq original-default-mode-line-format default-mode-line-format)
	(setq original-mode-line-format mode-line-format)

in my .emacs file, which seems to work, since I can then execute

	(setq mode-line-format original-mode-line-format)
and
	(setq default-mode-line-format original-default-mode-line-format)

with no problem.

However, if I create a function

	(defun mygnus () "Just like GNUS, but fixes the mode-line format."
	  (interactive)
	  (setq default-mode-line-format original-default-mode-line-format)
	  (setq mode-line-format original-mode-line-format)
	  (gnus)
	  (setq default-mode-line-format my-default-mode-line-format)
	  (setq mode-line-format my-mode-line-format)
	)

the mode-line formats aren't restored properly.  Yet, I can execute the lines
one at a time (with ^X^E), and it works fine.

Any ideas?

				---Ken McGlothlen
				   mcglk@bailey.cpac.washington.edu
				   mcglk@cpac.bitnet