From 885c12fb13c4fa489d2437a426773adb8e5d50e7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 20 Feb 2003 23:07:24 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ba65fd1..317eef8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-02-20 Katsumi Yamaoka + + * message.el (message-resend): Bind message-setup-hook to nil; + remove X-Draft-From header. + 2003-02-20 Jesper Harder * gnus-sum.el (gnus-simplify-subject-fully, gnus-subject-equal) diff --git a/lisp/message.el b/lisp/message.el index 06ee36f..e41148e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -6532,15 +6532,17 @@ Optional NEWS will use news to forward instead of mail." ;; We first set up a normal mail buffer. (unless (message-mail-user-agent) (set-buffer (get-buffer-create " *message resend*")) - (erase-buffer) - (let ((message-this-is-mail t) - ;; avoid to turn-on-mime-edit - message-setup-hook) - (message-setup `((To . ,address))))) + (erase-buffer)) + (let ((message-this-is-mail t) + message-setup-hook) + (message-setup `((To . ,address)))) ;; Insert our usual headers. (message-generate-headers '(From Date To)) (message-narrow-to-headers) + ;; Remove X-Draft-From header etc. + (message-remove-header message-ignored-mail-headers t) ;; Rename them all to "Resent-*". + (goto-char (point-min)) (while (re-search-forward "^[A-Za-z]" nil t) (forward-char -1) (insert "Resent-")) -- 1.7.10.4