From c4498ffd1482d5155129cb05d613a2ef4a7d5ca0 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 22 Apr 2010 23:41:53 +0000 Subject: [PATCH] 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 . --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/message.el | 1 + 2 files changed, 7 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5e70b49a862..ab1210af5b5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2010-04-22 Andreas Seltenreich + + * 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 * smime.el: Don't mention CVS. diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 27266f8aec1..2fe8a4d32ef 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5880,6 +5880,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. -- 2.30.2