Re: reply to one message and at the same time forward another

[david.goldberg6@verizon.net (Dave Goldberg)]

> Uwe Brauer <oub@mat.ucm.es> writes:
>> >> Is it possible to combine gnus-summary-reply and
>> >> gnus-summary-mail-forward, such that I can reply (or
>> >> followup) to somebody, including a another mail as
>> >> forward.
>> 
>> > I don't think any such command exists, but it does
>> > sound kinda useful, and probably wouldn't be too
>> > difficult to implement.  Gnus and Emacs is in a feature
>> > freeze at the moment, though.
>> 
>> Can you give me a hint where to start, I might give it a
>> try.

> I think the best way to implement this would be to allow people
> composing the article in the normal way.  But then have a new command in
> the summary buffer that would put the article under point into the
> Message buffer.

> That is, you'd pop to the summary buffer, find the message you want to
> include, issue the new command keystroke, and it'd prompt you for
> "attach message to buffer *unsent wide repl...*" etc, allowing you to
> choose what Message buffer to attach the message to (if there are
> several active Message buffers), and then insert the MML the same way `S
> O m' and friends do.

That would be a lot better than my approach, which is to set up gnus-summary-line-format to display the article number and use this:

(defun dsg-message-attach-article (group message)
  (interactive
   (list (completing-read
	  "Group: " gnus-active-hashtb nil
	  (gnus-read-active-file-p)
	  nil
	  'gnus-group-history)
	 (read-number "Message: ")))
  (let ((tmp (get-buffer-create (generate-new-buffer-name "*DSGTMP*"))))
    (save-excursion
      (set-buffer tmp)
      (gnus-request-article-this-buffer message group))
    (mml-attach-buffer (buffer-name tmp) "message/rfc822")))

Since I open message buffers in a new frame, picking up the article number is fairly easy.

-- 
Dave Goldberg
david.goldberg6@verizon.net