Re: Attach messages from other groups

[David S Goldberg <david.goldberg6@verizon.net>]

I use this with nnimap.  It's klunky in that it requires I know the
article number I want.  I very often use it by starting a gnus-slave,
finding what I want (sometimes with nnir) and then running it.
Ideally, it would be more general with respect to back ends and
present you with a group buffer that you could search for the article
you want to attach.  But I'm neither skilled enough in lisp nor
motivated enough to take it to that level.

(defun dsg-nnimap-insert-article (group message)
  (interactive
   (list (completing-read
	  "Group: " gnus-active-hashtb nil
	  (gnus-read-active-file-p)
	  nil
	  'gnus-group-history)
	 (read-number "Message: " t)))
  (let ((tmp (get-buffer-create (generate-new-buffer-name "*DSGTMP*"))))
    (nnimap-request-article message
			    (gnus-group-real-name group)
			    (nth 1 (gnus-group-method group))
			    tmp)
    (mml-attach-buffer (buffer-name tmp) "message/rfc822")))

-- 
Dave Goldberg
david.goldberg6@verizon.net