summaryrefslogtreecommitdiff
path: root/lisp/mail/sendmail.el
diff options
context:
space:
mode:
authorLuc Teirlinck <teirllm@auburn.edu>2005-12-28 16:38:27 +0000
committerLuc Teirlinck <teirllm@auburn.edu>2005-12-28 16:38:27 +0000
commit5e7f11bc1525eb87e63eb55ec150df0ff4d283f0 (patch)
tree9547020c4f4a7047d0c16b8d48230a7454a09050 /lisp/mail/sendmail.el
parent3cf212510bc80050e0c244dfc15a2f2b278ef2da (diff)
downloademacs-5e7f11bc1525eb87e63eb55ec150df0ff4d283f0.tar.gz
(send-mail-function): Autoload the standard-value.
Diffstat (limited to 'lisp/mail/sendmail.el')
-rw-r--r--lisp/mail/sendmail.el9
1 files changed, 9 insertions, 0 deletions
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