[PATCH] Removing headers from message when resending.

[Matthieu Moy <Matthieu.Moy@imag.fr>]

Hi ! 

I have made a slight modification to gnus-summary-resend-message-edit,
which  I  had written  some  time ago.  It  now  removes headers  like
forwarding does. Can someone apply it ?

-- 
Matthieu

(defcustom message-resend-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus\\|^Received:\\|^X-"
  "*All headers that match this regexp will be deleted when forwarding a message."
  :version "21.1"
  :group 'message-forwarding
  :type '(choice (const :tag "None" nil)
		 regexp))

;;;###autoload
(defun gnus-summary-resend-article-edit ()
  "In gnus summary mode, resend an article that has already been sent.
A new buffer will be created to allow the user to modify body and
contents of the message, and then, everything will happen as when
composing a new message."
  (interactive)
  (let ((article (gnus-summary-article-number)))
    (gnus-setup-message 'reply-yank
      (gnus-summary-select-article t)
      (set-buffer gnus-original-article-buffer)
      (let ((cur (current-buffer))
	    (to (message-fetch-field "to")))
	;; Get a normal message buffer.
	(message-pop-to-buffer (message-buffer-name "Resend" to))
	(insert-buffer-substring cur)
	(mime-to-mml)
	(message-narrow-to-head-1)
	;; Gnus will generate a new one when sending.
	(message-remove-header "Message-ID")
	(message-remove-header message-resend-ignored-headers t)
	;; Remove unwanted headers.
	(goto-char (point-max))
	(insert mail-header-separator)
	(goto-char (point-min))
 	(re-search-forward "^To: *\\|^Newsgroups: *" nil 'move)
	(widen)
	)
      )))