# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1135787907 0
# Node ID 2ea40935bde1404659eb86896af9246738d248e4
# Parent  d3f449ec33bdaa9b9d1c334f8e1ebb5ddaa7e38c
(send-mail-function): Autoload the standard-value.

diff -r d3f449ec33bd -r 2ea40935bde1 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Wed Dec 28 16:36:18 2005 +0000
+++ b/lisp/mail/sendmail.el	Wed Dec 28 16:38:27 2005 +0000
@@ -123,6 +123,15 @@
   :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