# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1271979790 0
# Node ID 4968d76aad93030b247f6f8f5092058e2789b0ec
# Parent  8cdb3c0534d0e40ebe80702893d025f87d950849# Parent  97594bf4e5a9e8d6e55b45df98d4aa1ee0f18030
Synch with Gnus trunk:

;; I've committed this change to only the trunk by mistake, sorry,
;; but it should have been also in the branch.

(message-generate-headers): Record insertion of optional headers as well.
Otherwise the check to prevent repeated insertion of optional headers
is a no-op.  By Andreas Seltenreich <seltenreich@gmx.de>.

diff -r 8cdb3c0534d0 -r 4968d76aad93 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Apr 22 14:01:21 2010 +0900
+++ b/lisp/gnus/ChangeLog	Thu Apr 22 23:43:10 2010 +0000
@@ -1,3 +1,9 @@
+2010-04-22  Andreas Seltenreich  <seltenreich@gmx.de>
+
+	* message.el (message-generate-headers): Record insertion of optional
+	headers as well.  Otherwise the check to prevent repeated insertion of
+	optional headers is a no-op.
+
 2010-04-17  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* smime.el: Don't mention CVS.
diff -r 8cdb3c0534d0 -r 4968d76aad93 lisp/gnus/message.el
--- a/lisp/gnus/message.el	Thu Apr 22 14:01:21 2010 +0900
+++ b/lisp/gnus/message.el	Thu Apr 22 23:43:10 2010 +0000
@@ -5880,6 +5880,7 @@
 		      (if formatter
 			  (funcall formatter header value)
 			(insert header-string ": " value))
+		      (push header-string message-inserted-headers)
 		      (goto-char (message-fill-field))
 		      ;; We check whether the value was ended by a
 		      ;; newline.  If not, we insert one.