From 5e7f11bc1525eb87e63eb55ec150df0ff4d283f0 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Wed, 28 Dec 2005 16:38:27 +0000 Subject: [PATCH] (send-mail-function): Autoload the standard-value. --- lisp/mail/sendmail.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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 -- 2.39.5