diff options
| author | Luc Teirlinck | 2005-12-28 16:38:27 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-12-28 16:38:27 +0000 |
| commit | 5e7f11bc1525eb87e63eb55ec150df0ff4d283f0 (patch) | |
| tree | 9547020c4f4a7047d0c16b8d48230a7454a09050 /lisp/mail/sendmail.el | |
| parent | 3cf212510bc80050e0c244dfc15a2f2b278ef2da (diff) | |
| download | emacs-5e7f11bc1525eb87e63eb55ec150df0ff4d283f0.tar.gz emacs-5e7f11bc1525eb87e63eb55ec150df0ff4d283f0.zip | |
(send-mail-function): Autoload the standard-value.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 9 |
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." | |||
| 123 | :type 'regexp | 123 | :type 'regexp |
| 124 | :group 'sendmail) | 124 | :group 'sendmail) |
| 125 | 125 | ||
| 126 | ;; Revent problems with `window-system' not having the correct value | ||
| 127 | ;; when loaddefs.el is loaded. `custom-reevaluate-setting' needs the | ||
| 128 | ;; standard value. | ||
| 129 | ;;;###autoload | ||
| 130 | (put 'send-mail-function 'standard-value | ||
| 131 | '((if (and window-system (memq system-type '(darwin windows-nt))) | ||
| 132 | 'mailclient-send-it | ||
| 133 | 'sendmail-send-it))) | ||
| 134 | |||
| 126 | ;; Useful to set in site-init.el | 135 | ;; Useful to set in site-init.el |
| 127 | ;;;###autoload | 136 | ;;;###autoload |
| 128 | (defcustom send-mail-function | 137 | (defcustom send-mail-function |