emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] Add more autoloads to sendmail.el


From: Jari Aalto
Subject: [PATCH] Add more autoloads to sendmail.el
Date: Mon, 12 Sep 2005 15:18:46 +0300
User-agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.3 (windows-nt)


Variable mail-yank-prefix is currently defined in sendmail.el, so in
order to access it's default value, one would formally need to load
sendmail:

   (require 'sendmail)

Perhaps few ###autoloads would be in place here? Proposed patch follows.


2005-09-12 Mon  Jari Aalto  <jari dot aalto A T cante dot net>

        * mail/sendmail.el: Added more ###autoloads statements
        above defcustom variables.

*** modified file 'mail/sendmail.el'
--- mail/sendmail.el
+++ mail/sendmail.el
@@ -169,6 +169,7 @@
   :type '(choice (const nil) file)
   :group 'sendmail)
 
+;;;###autoload
 (defcustom mail-setup-hook nil
   "Normal hook, run each time a new outgoing mail message is initialized.
 The function `mail-setup' runs this hook."
@@ -176,6 +177,7 @@
   :options '(fortune-to-signature spook mail-abbrevs-setup)
   :group 'sendmail)
 
+;;;###autoload
 (defvar mail-aliases t
   "Alist of mail address aliases,
 or t meaning should be initialized from your mail aliases file.
@@ -187,17 +189,20 @@
 (defvar mail-alias-modtime nil
   "The modification time of your mail alias file when it was last examined.")
 
+;;;###autoload
 (defcustom mail-yank-prefix nil
   "*Prefix insert on lines of yanked message being replied to.
 nil means use indentation."
   :type '(choice (const nil) string)
   :group 'sendmail)
 
+;;;###autoload
 (defcustom mail-indentation-spaces 3
   "*Number of spaces to insert at the beginning of each cited line.
 Used by `mail-yank-original' via `mail-indent-citation'."
   :type 'integer
   :group 'sendmail)
+
 (defvar mail-yank-hooks nil
   "Obsolete hook for modifying a citation just inserted in the mail buffer.
 Each hook function can find the citation between (point) and (mark t).
@@ -225,6 +230,7 @@
 This enables the hook functions to see the whole message header
 regardless of what part of it (if any) is included in the cited text.")
 
+;;;###autoload
 (defcustom mail-citation-prefix-regexp "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|[ \t]*"
   "*Regular expression to match a citation prefix plus whitespace.
 It should match whatever sort of citation prefixes you want to handle,
@@ -248,7 +254,6 @@
 removed from alias expansions."
   nil)
 
-;;;###autoload
 (defcustom mail-signature nil
   "*Text inserted at end of mail buffer when a message is initialized.
 If t, it means to insert the contents of the file `mail-signature-file'.
@@ -264,6 +269,7 @@
   :group 'sendmail)
 (put 'mail-signature 'risky-local-variable t)
 
+;;;###autoload
 (defcustom mail-signature-file "~/.signature"
   "*File containing the text inserted at end of mail buffer."
   :type 'file
@@ -275,6 +281,7 @@
 (put 'mail-reply-action 'permanent-local t)
 (put 'mail-send-actions 'permanent-local t)
 
+;;;###autoload
 (defcustom mail-default-headers nil
   "*A string containing header lines, to be inserted in outgoing messages.
 It is inserted before you edit the message,
@@ -282,6 +289,7 @@
   :type '(choice (const nil) string)
   :group 'sendmail)
 
+;;;###autoload
 (defcustom mail-bury-selects-summary t
   "*If non-nil, try to show RMAIL summary buffer after returning from mail.
 The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
@@ -290,6 +298,7 @@
   :type 'boolean
   :group 'sendmail)
 
+;;;###autoload
 (defcustom mail-send-nonascii 'mime
   "*Specify whether to allow sending non-ASCII characters in mail.
 If t, that means do allow it.  nil means don't allow it.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]