2003-06-11 Daniel Néri <dne@mayonnaise.net>

	* message.el (message-resend): Generate Resent-Message-ID header.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e3e136..3234d83 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-11  Daniel N\e,Ai\e(Bri  <dne@mayonnaise.net>
+
+       * message.el (message-resend): Generate Resent-Message-ID header.
+
 2003-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-next-page): Don't go to the next line

diff --git a/lisp/message.el b/lisp/message.el
index 5f0d166..75bda5e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6082,7 +6082,7 @@ Optional DIGEST will use digest to forward."
            message-setup-hook)
        (message-setup `((To . ,address))))
       ;; Insert our usual headers.
-      (message-generate-headers '(From Date To))
+      (message-generate-headers '(From Date To Message-ID))
       (message-narrow-to-headers)
       ;; Remove X-Draft-From header etc.
       (message-remove-header message-ignored-mail-headers t)