Index: lisp/message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 6.350
diff -u -r6.350 message.el
--- lisp/message.el	8 Jun 2003 22:17:05 -0000	6.350
+++ lisp/message.el	11 Jun 2003 00:14:32 -0000
@@ -6073,7 +6073,7 @@
 	    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)