Subject: bug#5555: 23.1.92; mail-archive-file-name not working

From: Glenn Morris <[email-masked]>
Date: Thu, 11 Feb 2010 14:59:37 -0500

How about something like the following.

(I'm not sure if it will put the FCC file in the same directory as
mail-mode used to.)

*** lisp/gnus/message.el	2010-01-17 23:49:27 +0000
--- lisp/gnus/message.el	2010-02-11 19:54:01 +0000
***************
*** 1178,1185 ****
    :link '(custom-manual "(message)Message Headers")
    :type 'message-header-lines)
  
! (defcustom message-default-mail-headers ""
    "*A string of header lines to be inserted in outgoing mails."
    :group 'message-headers
    :group 'message-mail
    :link '(custom-manual "(message)Mail Headers")
--- 1178,1190 ----
    :link '(custom-manual "(message)Message Headers")
    :type 'message-header-lines)
  
! (defcustom message-default-mail-headers
!   (if (and (boundp 'mail-archive-file-name)
! 	   (stringp mail-archive-file-name))
!       (format "FCC: %s\n" mail-archive-file-name)
!     "")
    "*A string of header lines to be inserted in outgoing mails."
+   :version "23.2"
    :group 'message-headers
    :group 'message-mail
    :link '(custom-manual "(message)Mail Headers")