mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Luc Teirlinck 2005-12-28 16:38:27 +00:00
parent 3cf212510b
commit 5e7f11bc15
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/sendmail.el
View file

@ -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