[Emacs-diffs] /srv/bzr/emacs/trunk r103145: message.el (message-setup-1): Handle message-generate-headers-first set to t.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103145
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-02-06 12:48:19 +0000
message:
  message.el (message-setup-1): Handle message-generate-headers-first set to t.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-02-05 00:11:16 +0000
+++ b/lisp/gnus/ChangeLog       2011-02-06 12:48:19 +0000
@@ -1,3 +1,8 @@
+2011-02-06  Julien Danjou  <address@hidden>
+
+       * message.el (message-setup-1): Handle message-generate-headers-first
+       set to t.
+
 2011-02-04  Lars Ingebrigtsen  <address@hidden>
 
        * message.el (message-setup-1): Remove the read-only stuff, since it

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2011-02-05 00:11:16 +0000
+++ b/lisp/gnus/message.el      2011-02-06 12:48:19 +0000
@@ -6417,7 +6417,9 @@
   ;; `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)