Re: strange behaviour of gnus-summary-mail-forward.

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

Oops error in the function I sent: this should work in
general:
(defun my-gnus-reply-mail-forward (&optional arg)
  "This function is to be used within a reply or forward buffer,
  marked messages 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 gnus-summary-buffer)
	    (goto-char (point-max))
	    (search-backward "#")
	    (gnus-summary-mail-forward arg)
	    (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))))