+(defun message-send-mail-function ()
+ "Return suitable value for the variable `message-send-mail-
function'."
+ (cond ((and sendmail-program
+ (executable-find program))
+ 'message-send-mail-with-sendmail)
+ ((and (locate-library "mailclient")
+ window-system
+ (memq system-type '(darwin windows-nt)))
+ 'message-send-mail-with-mailclient)
+ (t
+ 'message-smtpmail-send-it)))
Why would you need to test that window-system is non-nil? Perhaps I'm
missing something, but I don't see anything in mailclient.el that
would require an Emacs windowed display. Can you explain?
For that matter, why the test for system-type? Won't it work on other
systems as well?