Gnus development mailing list
 help / color / mirror / Atom feed
From: Jack Vinson <jvinson@cheux.ecs.umass.edu>
Subject: Re: [sgnus-0.89] compose two messages simultaneously?
Date: 20 May 1996 20:35:18 -0400	[thread overview]
Message-ID: <woloim6eyh.fsf@cheux.ecs.umass.edu> (raw)
In-Reply-To: Mark Borges's message of Mon, 20 May 1996 15:09:31 -0600

>>>>> "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


  parent reply	other threads:[~1996-05-21  0:35 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1996-05-20 21:09 Mark Borges
1996-05-20 21:43 ` Andrew Eskilsson
1996-05-21  0:35 ` Jack Vinson [this message]
1996-05-21  4:45   ` Manoj Srivastava
1996-05-21 14:30     ` Sudish Joseph

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=woloim6eyh.fsf@cheux.ecs.umass.edu \
    --to=jvinson@cheux.ecs.umass.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).