* lisp/mail/sendmail.el (send-mail-function): No longer delay custom

initialization.
* lisp/custom.el (custom-initialize-delay): Doc fix.

3 files changed, 10 insertions, 13 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a9dd27b840..729013ba54c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-08  Andreas Schwab  <schwab@linux-m68k.org>
+
+        * mail/sendmail.el (send-mail-function): No longer delay custom
+        initialization.
+        * custom.el (custom-initialize-delay): Doc fix.
+
 2011-07-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * abbrev.el (expand-abbrev): Try to preserve point (bug#5805).
diff --git a/lisp/custom.el b/lisp/custom.el
index a5c0065036a..4f69c741468 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -120,8 +120,10 @@ the :set function.
 For variables in preloaded files, you can simply use this
 function for the :initialize property.  For autoloaded variables,
 you will also need to add an autoload stanza calling this
-function, and another one setting the standard-value property.
-See `send-mail-function' in sendmail.el for an example."
+function, and another one setting the standard-value property."
+  ;; No longer true:
+  ;; "See `send-mail-function' in sendmail.el for an example."
+
   ;; Until the var is actually initialized, it is kept unbound.
   ;; This seemed to be at least as good as setting it to an arbitrary
   ;; value like nil (evaluating `value' is not an option because it
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index b14c7e50137..5ffc834f533 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -138,14 +138,6 @@ Otherwise, let mailer send back a message to report errors."
   :group 'sendmail
   :version "23.1")
 
-;; Prevent problems with `window-system' not having the correct value
-;; when loaddefs.el is loaded. `custom-reevaluate-setting' needs the
-;; standard value.
-;;;###autoload
-(put 'send-mail-function 'standard-value
-     ;; MS-Windows can access the clipboard even under -nw.
-     '('sendmail-query-once))
-
 ;; Useful to set in site-init.el
 ;;;###autoload
 (defcustom send-mail-function 'sendmail-query-once
@@ -161,7 +153,6 @@ This is used by the default mail-sending commands.  See also
                 (function-item feedmail-send-it :tag "Use Feedmail package")
                 (function-item mailclient-send-it :tag "Use Mailclient package")
                 function)
-  :initialize 'custom-initialize-delay
   :version "24.1"
   :group 'sendmail)
 
@@ -212,8 +203,6 @@ function to use, and then save that choice."
         (setq sendmail-query-once-function function))))
   (funcall sendmail-query-once-function))
 
-;;;###autoload(custom-initialize-delay 'send-mail-function nil)
-
 ;;;###autoload
 (defcustom mail-header-separator (purecopy "--text follows this line--")
   "Line used to separate headers from text in messages being composed."