From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 28 Dec 2005 16:38:27 +0000 (+0000)
Subject: (send-mail-function): Autoload the standard-value.
X-Git-Tag: emacs-pretest-22.0.90~5015
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e7f11bc1525eb87e63eb55ec150df0ff4d283f0;p=emacs.git

(send-mail-function): Autoload the standard-value.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 40e678aa130..cf257a8876e 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -123,6 +123,15 @@ nil means let mailer mail back a message to report errors."
   :type 'regexp
   :group 'sendmail)
 
+;; Revent 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
+     '((if (and window-system (memq system-type '(darwin windows-nt)))
+	   'mailclient-send-it
+	 'sendmail-send-it)))
+
 ;; Useful to set in site-init.el
 ;;;###autoload
 (defcustom send-mail-function