[Emacs-diffs] /srv/bzr/emacs/trunk r104986: * mail/sendmail.el (send-mail-function): Change the default to `sendmail-query-once'.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104986
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2011-07-06 17:39:32 +0200
message:
  * mail/sendmail.el (send-mail-function): Change the default to 
`sendmail-query-once'.
modified:
  lisp/ChangeLog
  lisp/mail/sendmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-06 15:09:11 +0000
+++ b/lisp/ChangeLog    2011-07-06 15:39:32 +0000
@@ -1,5 +1,8 @@
 2011-07-06  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2011-06-29 20:21:29 +0000
+++ b/lisp/mail/sendmail.el     2011-07-06 15:39:32 +0000
@@ -144,19 +144,11 @@
 ;;;###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 @@
                (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