From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6288
Path: main.gmane.org!not-for-mail
From: Jack Vinson <jvinson@cheux.ecs.umass.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: [sgnus-0.89] compose two messages simultaneously?
Date: 20 May 1996 20:35:18 -0400
Message-ID: <woloim6eyh.fsf@cheux.ecs.umass.edu>
References: <199605202109.PAA25113@roberts.cdc.noaa.gov>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035146767 3224 80.91.224.250 (20 Oct 2002 20:46:07 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:46:07 +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 SAA15760 for <steve@miranova.com>; Mon, 20 May 1996 18:07:18 -0700
Original-Received: from cheux.ecs.umass.edu (cheux.ecs.umass.edu [128.119.82.11]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <CAA27129@ifi.uio.no> for <ding@ifi.uio.no> ; Tue, 21 May 1996 02:37:05 +0200
Original-Received: by cheux.ecs.umass.edu (5.65/DEC-Ultrix/4.3)
	id AA19991; Mon, 20 May 1996 20:35:19 -0400
Original-To: ding@ifi.uio.no
In-Reply-To: Mark Borges's message of Mon, 20 May 1996 15:09:31 -0600
Original-Lines: 45
X-Mailer: September Gnus v0.89/Emacs 19.30
Xref: main.gmane.org gmane.emacs.gnus.general:6288
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6288

>>>>> "mb" == Mark D Borges <Mark> writes:

mb> Is it possible in sgnus to compose two messages at the same time?
mb> Suppose I'm writing a lengthy diatribe, get bored, read some other
mb> news, see something that begs for a one-word reply and want to post a
mb> quick reply. Right now it appears I have to finish what I'm doing, or
mb> erase the current message. OK, I don't really erase it, I copy it ot
mb> *scratch*, do the quick reply, then reply (again) to the original
mb> article and insert the *scratch* buffer.

Andy Eskilsson already mentioned using M-x rename-uniquely.  It will rename
to something list "*mail message*<2>" which I don't particularly like.
Below is a take on mail/news buffer renaming that I worked out with a couple
other people.  I then bind it to C-c C-r, to provide an easy way to rename
the buffer.  The result is a buffer name "*message* recipient@some.where.net".


(defun message-rename-buffer (&optional enter-string)
  "Rename the *message* buffer to \"*message* RECIPIENT\".  If the function is
run with a prefix, it will ask for a new buffer name, rather than giving
an automatic name."
  (interactive "Pbuffer name: ")
  (save-excursion
    (save-restriction
      (goto-char (point-min))
      (narrow-to-region (point) 
			(search-forward mail-header-separator nil 'end))
      (let* ((mail-to (if (message-news-p) (mail-fetch-field "Newsgroups")
			(mail-fetch-field "To")))
	     (mail-trimmed-to
	      (if (string-match "," mail-to)
		  (concat (substring mail-to 0 (match-beginning 0)) ", ...")
		mail-to))
	     (name-default (concat "*message* " mail-trimmed-to))
	     (name (if enter-string
		       (read-string "New buffer name: " name-default)
		     name-default)))
	(rename-buffer name t)))))

(define-key message-mode-map "\C-c\C-r" 'message-rename-buffer)

-- 
Jack Vinson                       jvinson@cheux.ecs.umass.edu
"I Spit on Your Grave"            -- double feature at the drive-in as seen
"I Thumb Through Your Magazines"     from the Qwik-E mart