Mercurial > emacs

changeset 67877:2ea40935bde1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(send-mail-function): Autoload the standard-value.
author Luc Teirlinck <teirllm@auburn.edu>
date Wed, 28 Dec 2005 16:38:27 +0000
parents d3f449ec33bd
children fe8ec3e744b3
files lisp/mail/sendmail.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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