[Emacs-diffs] /srv/bzr/emacs/trunk r105044: * lisp/mail/sendmail.el (send-mail-function): No longer delay custom

[Andreas Schwab]

------------------------------------------------------------
revno: 105044
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Fri 2011-07-08 19:02:01 +0200
message:
  * lisp/mail/sendmail.el (send-mail-function): No longer delay custom
  initialization.
  * lisp/custom.el (custom-initialize-delay): Doc fix.
modified:
  lisp/ChangeLog
  lisp/custom.el
  lisp/mail/sendmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-08 14:42:36 +0000
+++ b/lisp/ChangeLog    2011-07-08 17:02:01 +0000
@@ -1,3 +1,9 @@
+2011-07-08  Andreas Schwab  <address@hidden>
+
+       * mail/sendmail.el (send-mail-function): No longer delay custom
+       initialization.
+       * custom.el (custom-initialize-delay): Doc fix.
+
 2011-07-08  Stefan Monnier  <address@hidden>
 
        * abbrev.el (expand-abbrev): Try to preserve point (bug#5805).

=== modified file 'lisp/custom.el'
--- a/lisp/custom.el    2011-07-05 09:51:56 +0000
+++ b/lisp/custom.el    2011-07-08 17:02:01 +0000
@@ -120,8 +120,10 @@
 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

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2011-07-08 07:42:21 +0000
+++ b/lisp/mail/sendmail.el     2011-07-08 17:02:01 +0000
@@ -138,14 +138,6 @@
   :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 @@
                (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 @@
        (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."