From: Julien Danjou <julien@danjou.info>
Date: Sun, 6 Feb 2011 12:48:19 +0000 (+0000)
Subject: message.el (message-setup-1): Handle message-generate-headers-first set to t.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~1009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=184469b7a092b069aa0ba65053855fbaa91b4607;p=emacs.git

message.el (message-setup-1): Handle message-generate-headers-first set to t.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ceef5e5df2b..7571016a8cb 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-06  Julien Danjou  <julien@danjou.info>
+
+	* message.el (message-setup-1): Handle message-generate-headers-first
+	set to t.
+
 2011-02-04  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* message.el (message-setup-1): Remove the read-only stuff, since it
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 37d64bc5f1b..3ba57caba4f 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6417,7 +6417,9 @@ are not included."
   ;; `References:' header if `message-generate-headers-first' was nil.
   ;; Therefore, always generate it first.
   (let ((message-generate-headers-first
-         (append message-generate-headers-first '(References))))
+         (if (eq message-generate-headers-first t)
+             t
+           (append message-generate-headers-first '(References)))))
     (when (message-news-p)
       (when message-default-news-headers
         (insert message-default-news-headers)