some solution but n>1 (was: reply to one message and at the same time forward another)

[Uwe Brauer <oub@mat.ucm.es>]

>> On Tue, 03 Jan 2012 22:03:11 +0100, Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:

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


Ok I have found a very primitive solution, which only works
if I mark more than ONE message.


Look at the following:
O# 3623 [ Uwe Brauer          ]   12-Jan    2 1 to be forwarded
O# 3624 [ Uwe Brauer          ]   12-Jan    2 2 to be forwarded
R  3625 [ Uwe Brauer          ]   12-Jan    2 to be replied

I reply to 3625 and in the reply buffer fire up my new
function which I attach below. Everything works as expected.
Both messages 3623 and 3624 will be "attached" as forwarded
messages in the reply buffer.

However:

O  3623 [ Uwe Brauer          ]   12-Jan    2 1 to be forwarded
O# 3624 [ Uwe Brauer          ]   12-Jan    2 2 to be forwarded
R  3625 [ Uwe Brauer          ]   12-Jan    2 to be replied

I repeat the same procedure as above but now in the reply
buffer, message 3625 (the message I reply to NOT the message
I have marked for forwarding) will be attached as a forward
message. This is bizarre. Anybody has an idea what is wrong?


Thanks 

Uwe Brauer 


(defun my-gnus-summary-mail-forward ()
  "This function is to be used within a reply or forward buffer,
  marked messages (n>1!!!) will be inserted as forwarded messages."
  (interactive)
  (if (y-or-n-p (format "Did you mark the msg in the summary buffer? "))
      (progn
	(save-excursion
	  (let ((currentname   (current-buffer)))
	    (switch-to-buffer "*Summary nnimap+UCM:INBOX*")
	    (gnus-summary-mail-forward nil)
	    (mail-text)
	    (copy-region-as-kill (point)  (point-max))
	    (switch-to-buffer currentname)
	    (goto-char (point-max))
	    (yank nil))))
    (progn
      (message "You did NOT mark the msg, you fool!")
      (beep) (sleep-for 1) (beep) (sleep-for 1) (beep))))