Mercurial > emacs

comparison lisp/mail/sendmail.el @ 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 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)))