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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a9dd27b8403145e1c40ac27afac672a19c70891..729013ba54ce52feca93882fbd2f2a20029752df 100644 (file)
--- 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 a5c0065036aabf09b1d2ccca2240ad63a522ee72..4f69c7414684cd0dcebf0bd7002a8e5904486f92 100644 (file)
--- 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 b14c7e501373237961994853f0f3fd749f487ac0..5ffc834f5331c6bc974f7ab349ae88cbcad4cdc1 100644 (file)
--- 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."