gnus-msg.el (gnus-summary-resend-message): Make gnus-summary-resend-message-insert...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce204f8..fce0758 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-02-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-summary-resend-message): Make
+       gnus-summary-resend-message-insert-gcc be last item in
+       message-header-setup-hook.
+
 2012-02-13  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * nnfolder.el (nnfolder-marks-directory, nnfolder-marks-is-evil)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 3867a58..ecad92f 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1299,7 +1299,7 @@ For the \"inline\" alternatives, also see the variable
     (message-remove-header "gcc")
     (when gcc
       (goto-char (point-max))
-      (cond ((eq gnus-gcc-self-resent-messages  'none))
+      (cond ((eq gnus-gcc-self-resent-messages 'none))
            ((eq gnus-gcc-self-resent-messages t)
             (insert "Gcc: \"" gnus-newsgroup-name "\"\n"))
            ((stringp gnus-gcc-self-resent-messages)
@@ -1336,8 +1336,9 @@ For the \"inline\" alternatives, also see the variable
         current-prefix-arg))
   (let ((message-header-setup-hook (copy-sequence message-header-setup-hook))
        (message-sent-hook (copy-sequence message-sent-hook)))
+    ;; `gnus-summary-resend-message-insert-gcc' must run last.
     (add-hook 'message-header-setup-hook
-             'gnus-summary-resend-message-insert-gcc)
+             'gnus-summary-resend-message-insert-gcc t)
     (add-hook 'message-sent-hook (if gnus-agent
                                     'gnus-agent-possibly-do-gcc
                                   'gnus-inews-do-gcc))