Re: Multiple frame problem

[dsg@mitre.org (David S. Goldberg)]

> Thanks, Kai.  I wasn't sure how much info to include in my previous
> message.  I had asked before how to go about getting the separate
> frame for compositions, and I believe David Goldberg was kind enough
> to post something from his .gnus.el.  Here's what I'm using:


[...]

Yup, that looks something like my setup.

> (add-hook 'message-sent-hook (lambda () (bury-buffer (get-buffer
>           "*Group*"))) (lower-frame)))
> (add-hook 'message-setup-hook (lambda () (raise-frame (next-frame))))

Here's my solution which works with XEmacs.  Not sure about Emacs.  In
my .gnus I have: 

(defvar dsg-gnus-edit-buffer "*gnusedit*" "place holder for gnus editing")

(defun dsg-gnus-buffer-predicate (arg)
  (string= (buffer-name arg) dsg-gnus-edit-buffer))

[...]

(gnus-add-configuration
 '(message
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical (user-position t top 1 left 1 name "Gnus Edit"
				   buffer-predicate
				   dsg-gnus-buffer-predicate)
		    (message 1.0 point)))))

What this says is that when I kill or bury whatever is being put in
the frame called "Gnus Edit", the buffer it will return to is called
"*gnusedit*" which is not used for anything else, and therefore won't
likely show up in any other frame.  You can use this as the buffer to
find and lower.  Note that you're better off with something like this
to do the lowering:

(lower-frame (window-frame (get-buffer-window "*gnusedit*" t)))

This way you don't end up mucking with your current frame selection etc.
-- 
Dave Goldberg
Post: The Mitre Corporation\MS K207\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org