Mercurial > emacs
comparison lisp/mail/sendmail.el @ 67877:2ea40935bde1
(send-mail-function): Autoload the standard-value.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Wed, 28 Dec 2005 16:38:27 +0000 |
parents | f245bb6e08da |
children | e05d92c19248 |
comparison
equal
deleted
inserted
replaced
67876:d3f449ec33bd | 67877:2ea40935bde1 |
---|---|
120 "mail-followup-to") "\\(?:") | 120 "mail-followup-to") "\\(?:") |
121 ":") | 121 ":") |
122 "Delete these headers from old message when it's inserted in a reply." | 122 "Delete these headers from old message when it's inserted in a reply." |
123 :type 'regexp | 123 :type 'regexp |
124 :group 'sendmail) | 124 :group 'sendmail) |
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))) | |
125 | 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 |
129 (if (and window-system (memq system-type '(darwin windows-nt))) | 138 (if (and window-system (memq system-type '(darwin windows-nt))) |