diff lisp/gnus/message.el @ 86256:b53cbc241b6f

(message-send-mail-function): Check for smtpmail too.

--- a/lisp/gnus/message.el	Tue Nov 20 21:06:35 2007 +0000
+++ b/lisp/gnus/message.el	Tue Nov 20 21:49:06 2007 +0000
@@ -624,13 +624,17 @@
 (defun message-send-mail-function ()
   "Return suitable value for the variable `message-send-mail-function'."
   (cond ((and sendmail-program
-	      (executable-find program))
+	      (executable-find sendmail-program))
 	 'message-send-mail-with-sendmail)
-	((and (locate-library "mailclient")
-	      (memq system-type '(darwin windows-nt)))
+	((and (locate-library "smtpmail")
+	      (require 'smtpmail)
+	      smtpmail-default-smtp-server)
+	 'message-smtpmail-send-it)
+	((locate-library "mailclient")
 	 'message-send-mail-with-mailclient)
 	(t
-	 'message-smtpmail-send-it)))
+	 (lambda ()
+	   (error "Don't know how to send mail.  Please customize `message-send-mail-function'.")))))
 
 ;; Useful to set in site-init.el
 (defcustom message-send-mail-function (message-send-mail-function)