[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.72 emacs/lisp/gnus/message.el:1.73
*** emacs/lisp/gnus/message.el:1.72     Thu Mar  3 23:02:21 2005
--- emacs/lisp/gnus/message.el  Sat Mar  5 00:35:42 2005
***************
*** 335,345 ****
    :link '(custom-manual "(message)Message Headers")
    :type 'regexp)
  
- ;; Fixme: Why are all these things autoloaded?
- 
  ;;; marking inserted text
  
- ;;;###autoload
  (defcustom message-mark-insert-begin
    "--8<---------------cut here---------------start------------->8---\n"
    "How to mark the beginning of some inserted text."
--- 335,342 ----
***************
*** 348,354 ****
    :link '(custom-manual "(message)Insertion Variables")
    :group 'message-various)
  
- ;;;###autoload
  (defcustom message-mark-insert-end
    "--8<---------------cut here---------------end--------------->8---\n"
    "How to mark the end of some inserted text."
--- 345,350 ----
***************
*** 357,365 ****
    :link '(custom-manual "(message)Insertion Variables")
    :group 'message-various)
  
! ;;;###autoload
! (defcustom message-archive-header
!   "X-No-Archive: Yes\n"
    "Header to insert when you don't want your article to be archived.
  Archives \(such as groups.google.com\) respect this header."
    :version "22.1"
--- 353,359 ----
    :link '(custom-manual "(message)Insertion Variables")
    :group 'message-various)
  
! (defcustom message-archive-header "X-No-Archive: Yes\n"
    "Header to insert when you don't want your article to be archived.
  Archives \(such as groups.google.com\) respect this header."
    :version "22.1"
***************
*** 367,373 ****
    :link '(custom-manual "(message)Header Commands")
    :group 'message-various)
  
- ;;;###autoload
  (defcustom message-archive-note
    "X-No-Archive: Yes - save http://groups.google.com/";
    "Note to insert why you wouldn't want this posting archived.
--- 361,366 ----
***************
*** 385,391 ****
    "Old target for cross-posts or follow-ups.")
  (make-variable-buffer-local 'message-cross-post-old-target)
  
- ;;;###autoload
  (defcustom message-cross-post-default t
    "When non-nil `message-cross-post-followup-to' will perform a crosspost.
  If nil, `message-cross-post-followup-to' will only do a followup.  Note that
--- 378,383 ----
***************
*** 395,419 ****
    :type 'boolean
    :group 'message-various)
  
! ;;;###autoload
! (defcustom message-cross-post-note
!   "Crosspost & Followup-To: "
    "Note to insert before signature to notify of cross-post and follow-up."
    :version "22.1"
    :type 'string
    :group 'message-various)
  
! ;;;###autoload
! (defcustom message-followup-to-note
!   "Followup-To: "
    "Note to insert before signature to notify of follow-up only."
    :version "22.1"
    :type 'string
    :group 'message-various)
  
! ;;;###autoload
! (defcustom message-cross-post-note-function
!   'message-cross-post-insert-note
    "Function to use to insert note about Crosspost or Followup-To.
  The function will be called with four arguments.  The function should not only
  insert a note, but also ensure old notes are deleted.  See the documentation
--- 387,405 ----
    :type 'boolean
    :group 'message-various)
  
! (defcustom message-cross-post-note "Crosspost & Followup-To: "
    "Note to insert before signature to notify of cross-post and follow-up."
    :version "22.1"
    :type 'string
    :group 'message-various)
  
! (defcustom message-followup-to-note "Followup-To: "
    "Note to insert before signature to notify of follow-up only."
    :version "22.1"
    :type 'string
    :group 'message-various)
  
! (defcustom message-cross-post-note-function 'message-cross-post-insert-note
    "Function to use to insert note about Crosspost or Followup-To.
  The function will be called with four arguments.  The function should not only
  insert a note, but also ensure old notes are deleted.  See the documentation
***************
*** 1766,1772 ****
  ;;; Start of functions adopted from `message-utils.el'.
  
  (defun message-strip-subject-trailing-was (subject)
!   "Remove trailing \"(Was: <old subject>)\" from SUBJECT lines.
  Leading \"Re: \" is not stripped by this function.  Use the function
  `message-strip-subject-re' for this."
    (let* ((query message-subject-trailing-was-query)
--- 1752,1758 ----
  ;;; Start of functions adopted from `message-utils.el'.
  
  (defun message-strip-subject-trailing-was (subject)
!   "Remove trailing \"(was: <old subject>)\" from SUBJECT lines.
  Leading \"Re: \" is not stripped by this function.  Use the function
  `message-strip-subject-re' for this."
    (let* ((query message-subject-trailing-was-query)