* mail/sendmail.el (send-mail-function): Change the default to `sendmail-query-once'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29c1a1220ab425edc5bd9bfbbe28c107b9cb002e..030f86192f97455240f4e1ffabea6f83c228bf8d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mail/sendmail.el (send-mail-function): Change the default to
+       `sendmail-query-once'.
+
        * net/network-stream.el (network-stream-open-starttls): Try using
        a plain connection even if the server offered STARTTLS, and we
        kinda wanted to use it, if Emacs doesn't have any STARTTLS

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 13da0627fff11e89b8f962e89b903260c05e48e0..47a6d0af0c5b391fc37b9351a89e5d539678107a 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -144,19 +144,11 @@ Otherwise, let mailer send back a message to report errors."
 ;;;###autoload
 (put 'send-mail-function 'standard-value
      ;; MS-Windows can access the clipboard even under -nw.
-     '((if (or (and window-system (eq system-type 'darwin))
-              (eq system-type 'windows-nt))
-          'mailclient-send-it
-        'sendmail-send-it)))
+     '('sendmail-query-once))
 
 ;; Useful to set in site-init.el
 ;;;###autoload
-(defcustom send-mail-function
-  (if (or (and window-system (eq system-type 'darwin))
-         ;; MS-Windows can access the clipboard even under -nw.
-         (eq system-type 'windows-nt))
-      'mailclient-send-it
-    'sendmail-send-it)
+(defcustom send-mail-function 'sendmail-query-once
   "Function to call to send the current buffer as mail.
 The headers should be delimited by a line which is
 not a valid RFC822 header or continuation line,
@@ -170,6 +162,7 @@ This is used by the default mail-sending commands.  See also
                (function-item mailclient-send-it :tag "Use Mailclient package")
                function)
   :initialize 'custom-initialize-delay
+  :version "24.1"
   :group 'sendmail)
 
 (defvar sendmail-query-once-function 'query