Gnus 5.9.0 message.el removes needed headers

[Colin Walters <walters@cis.ohio-state.edu>]

Hello,

On "GNU Emacs 21.0.91.1 (i686-pc-linux-gnu, X toolkit)
 of Sun 2000-11-19 on meta"

when sending mail, message.el generates the headers here on line 2515:

	;; Insert some headers.
	(message-generate-headers message-required-news-headers)

where the Message-ID, Lines, Date, etc are generated.  Then,
message.el generates these headers again on line 2538:

		;; We (re)generate the Lines header.
		(when (memq 'Lines message-required-mail-headers)
		  (message-generate-headers '(Lines)))

The comment by the second generation seems to say that only the Lines
header will be regenerated; in fact, all headers with the
'message-deletable text property are deleted, including the
Message-ID, but are not restored, because only the '(Lines) header is
passed as a header to generate the second time.

The following gross hack cures the symptoms, but I think message.el
should be fixed to not require the headers to be generated twice.

walters@meta:/usr/local/share/emacs/21.0.91/lisp/gnus$ diff -u message.el /usr/src/emacs-21.0.91/lisp/gnus/message.el
--- message.el	Mon Nov 13 05:25:16 2000
+++ /usr/src/emacs-21.0.91/lisp/gnus/message.el	Wed Nov 22 02:06:45 2000
@@ -2328,7 +2328,7 @@
 	    (message-narrow-to-headers)
 	    ;; We (re)generate the Lines header.
 	    (when (memq 'Lines message-required-mail-headers)
-	      (message-generate-headers '(Lines)))
+	      (message-generate-headers message-required-mail-headers))
 	    ;; Remove some headers.
 	    (message-remove-header message-ignored-mail-headers t)
 	    (let ((mail-parse-charset message-default-charset))