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.
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
