From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/602
Path: news.gmane.org!not-for-mail
From: Josh Huber <huber@alum.wpi.edu>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: How to attach messages in Gnus (was Re: Which one shall I
 choose?)
Date: Fri, 07 Jun 2002 11:54:27 -0400
Message-ID: <874rgfaxu4.fsf@alum.wpi.edu>
References: <8z5uq9vh.fsf@hotmail.com> <ufrvpg2poe43af@news.supernews.com>
 <hekgbh2j.fsf_-_@hotmail.com> <vaf4rgf1m6a.fsf@lucy.cs.uni-dortmund.de>
 <lm9rqvpe.fsf@hotmail.com> <vaf7klbjrfr.fsf@lucy.cs.uni-dortmund.de>
 <m3zny7cey3.fsf@iwr05.mathematik.uni-karlsruhe.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138667545 7586 80.91.229.2 (31 Jan 2006 00:32:25 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:32:25 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:27:50 2006
Original-Path: quimby.gnus.org!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Original-NNTP-Posting-Host: lowell.missioncriticallinux.com
Original-X-Trace: quimby.gnus.org 1023466504 25954 64.244.21.16 (7 Jun 2002 16:15:04 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 7 Jun 2002 16:15:04 GMT
X-PGP-KeyID: 6B21489A
X-Face: C%mBb*K1^od)w'=CH$WEZu/M^aR<,.n|1uAe,;MyNLKoel>F;-j[`L!>m:Y%/R}m&4&xuIM
 R%7Ez?vbd*Ns>VE;{\(yl|mGByV{D:Dm>'52].@P&t_s^,.d<zXm<Os=44DXqAQMZU_;n4rokIt:5Z
Mail-Copies-To: nobody
User-Agent: Gnus/5.090007 (Oort Gnus v0.07) XEmacs/21.5 (bok choi,
 powerpc-unknown-linux)
Cancel-Lock: sha1:vC8rTgFQGpCrDu/lBnB+a+Tynhc=
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:742
Original-Lines: 39
X-Gnus-Article-Number: 742   Tue Jan 17 17:27:50 2006
Xref: news.gmane.org gmane.emacs.gnus.user:602
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/602>

Martin Schulz <schulz@iwrmm.math.uni-karlsruhe.de> writes:

> And what is if - - while already writing the message -- it comes to
> mind that I could cite that other message?

Good question.  I usually do this manually (C-x C-b, copy, paste,
etc), but having some sort of method to do this would be nice, IMHO.

how about:

(defun gnus-reply-buffers ()
  (delete nil (mapcar
	       (lambda (b) (if (string-match
				"^*\\(wide \\)?\\(followup\\|reply\\) to"
				(buffer-name b))
			       (cons (buffer-name b) b) nil))
	       (buffer-list))))

(defun gnus-article-yank-to-other-buffer (&optional n)
  (interactive "P")
  (let* ((articles (gnus-summary-work-articles n))
	 (buffers (gnus-reply-buffers))
	 (buffer 
	  (completing-read "Buffer to yank into: "
			   buffers
			   nil nil (caar buffers))))
    (set-buffer (get-buffer buffer))
    (gnus-inews-yank-articles articles)))

While composing a message, just switch to the summary buffer and M-x
gnus-article-yank-to-other-buffer and select the buffer you want to
cite.

Warning: this is a quick hack ;)  YMMV!

ttyl,

-- 
Josh Huber