[Emacs-diffs] Changes to emacs/lisp/gnus/message.el,v

[Reiner Steib]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Reiner Steib <rsteib>   07/11/20 21:49:07

Index: message.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- message.el  20 Nov 2007 20:12:52 -0000      1.129
+++ message.el  20 Nov 2007 21:49:06 -0000      1.130
@@ -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)