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

[Glenn Morris]

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")