/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.72 by miles, Thu Mar 3 23:02:21 2005 UTC revision 1.73 by miles, Sat Mar 5 00:35:42 2005 UTC
# Line 335  few false positives here." Line 335  few false positives here."
335    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
336    :type 'regexp)    :type 'regexp)
337    
 ;; Fixme: Why are all these things autoloaded?  
   
338  ;;; marking inserted text  ;;; marking inserted text
339    
 ;;;###autoload  
340  (defcustom message-mark-insert-begin  (defcustom message-mark-insert-begin
341    "--8<---------------cut here---------------start------------->8---\n"    "--8<---------------cut here---------------start------------->8---\n"
342    "How to mark the beginning of some inserted text."    "How to mark the beginning of some inserted text."
# Line 348  few false positives here." Line 345  few false positives here."
345    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
346    :group 'message-various)    :group 'message-various)
347    
 ;;;###autoload  
348  (defcustom message-mark-insert-end  (defcustom message-mark-insert-end
349    "--8<---------------cut here---------------end--------------->8---\n"    "--8<---------------cut here---------------end--------------->8---\n"
350    "How to mark the end of some inserted text."    "How to mark the end of some inserted text."
# Line 357  few false positives here." Line 353  few false positives here."
353    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
354    :group 'message-various)    :group 'message-various)
355    
356  ;;;###autoload  (defcustom message-archive-header "X-No-Archive: Yes\n"
 (defcustom message-archive-header  
   "X-No-Archive: Yes\n"  
357    "Header to insert when you don't want your article to be archived.    "Header to insert when you don't want your article to be archived.
358  Archives \(such as groups.google.com\) respect this header."  Archives \(such as groups.google.com\) respect this header."
359    :version "22.1"    :version "22.1"
# Line 367  Archives \(such as groups.google.com\) r Line 361  Archives \(such as groups.google.com\) r
361    :link '(custom-manual "(message)Header Commands")    :link '(custom-manual "(message)Header Commands")
362    :group 'message-various)    :group 'message-various)
363    
 ;;;###autoload  
364  (defcustom message-archive-note  (defcustom message-archive-note
365    "X-No-Archive: Yes - save http://groups.google.com/"    "X-No-Archive: Yes - save http://groups.google.com/"
366    "Note to insert why you wouldn't want this posting archived.    "Note to insert why you wouldn't want this posting archived.
# Line 385  If nil, don't insert any text in the bod Line 378  If nil, don't insert any text in the bod
378    "Old target for cross-posts or follow-ups.")    "Old target for cross-posts or follow-ups.")
379  (make-variable-buffer-local 'message-cross-post-old-target)  (make-variable-buffer-local 'message-cross-post-old-target)
380    
 ;;;###autoload  
381  (defcustom message-cross-post-default t  (defcustom message-cross-post-default t
382    "When non-nil `message-cross-post-followup-to' will perform a crosspost.    "When non-nil `message-cross-post-followup-to' will perform a crosspost.
383  If nil, `message-cross-post-followup-to' will only do a followup.  Note that  If nil, `message-cross-post-followup-to' will only do a followup.  Note that
# Line 395  you can explicitly override this setting Line 387  you can explicitly override this setting
387    :type 'boolean    :type 'boolean
388    :group 'message-various)    :group 'message-various)
389    
390  ;;;###autoload  (defcustom message-cross-post-note "Crosspost & Followup-To: "
 (defcustom message-cross-post-note  
   "Crosspost & Followup-To: "  
391    "Note to insert before signature to notify of cross-post and follow-up."    "Note to insert before signature to notify of cross-post and follow-up."
392    :version "22.1"    :version "22.1"
393    :type 'string    :type 'string
394    :group 'message-various)    :group 'message-various)
395    
396  ;;;###autoload  (defcustom message-followup-to-note "Followup-To: "
 (defcustom message-followup-to-note  
   "Followup-To: "  
397    "Note to insert before signature to notify of follow-up only."    "Note to insert before signature to notify of follow-up only."
398    :version "22.1"    :version "22.1"
399    :type 'string    :type 'string
400    :group 'message-various)    :group 'message-various)
401    
402  ;;;###autoload  (defcustom message-cross-post-note-function 'message-cross-post-insert-note
 (defcustom message-cross-post-note-function  
   'message-cross-post-insert-note  
403    "Function to use to insert note about Crosspost or Followup-To.    "Function to use to insert note about Crosspost or Followup-To.
404  The function will be called with four arguments.  The function should not only  The function will be called with four arguments.  The function should not only
405  insert a note, but also ensure old notes are deleted.  See the documentation  insert a note, but also ensure old notes are deleted.  See the documentation
# Line 1766  see `message-narrow-to-headers-or-head'. Line 1752  see `message-narrow-to-headers-or-head'.
1752  ;;; Start of functions adopted from `message-utils.el'.  ;;; Start of functions adopted from `message-utils.el'.
1753    
1754  (defun message-strip-subject-trailing-was (subject)  (defun message-strip-subject-trailing-was (subject)
1755    "Remove trailing \"(Was: <old subject>)\" from SUBJECT lines.    "Remove trailing \"(was: <old subject>)\" from SUBJECT lines.
1756  Leading \"Re: \" is not stripped by this function.  Use the function  Leading \"Re: \" is not stripped by this function.  Use the function
1757  `message-strip-subject-re' for this."  `message-strip-subject-re' for this."
1758    (let* ((query message-subject-trailing-was-query)    (let* ((query message-subject-trailing-was-query)

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26