(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 --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 94524c262acb8323d6c5ad4016a2b3169484e67f..f07f0da6253c5ff5f22d4d554baff8c4c86e4421 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 7a96d2480b431ce80cbfd64d80c9261043d67774..79a88cd6bd3caa79e8b55e4a4350282fde1603cf 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5905,6 +5905,7 @@ Headers already prepared in the buffer are not modified."
                      (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.