Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

2010-02-26  Glenn Morris  <[email protected]>

	* message.el (message-send-mail-function): Change the default, so that
	it inherits from a customized send-mail-function.  (Bug#5643)


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2059 gnus/lisp/ChangeLog:7.2060
--- ChangeLog:7.2059	Wed Feb 24 23:33:25 2010
+++ ChangeLog	Fri Feb 26 07:12:47 2010
@@ -1,3 +1,8 @@
+2010-02-26  Glenn Morris  <[email protected]>
+
+	* message.el (message-send-mail-function): Change the default, so that
+	it inherits from a customized send-mail-function.  (Bug#5643)
+
 2010-02-24  Stefan Monnier  <[email protected]>
 
 	* gnus-art.el (gnus-treat-display-x-face): Don't burp if
Index: message.el
diff -u gnus/lisp/message.el:7.291 gnus/lisp/message.el:7.292
--- message.el:7.291	Wed Feb 24 11:50:30 2010
+++ message.el	Fri Feb 26 07:12:47 2010
@@ -663,7 +663,12 @@
 	   (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)
+(defcustom message-send-mail-function
+  (cond ((eq send-mail-function 'smtpmail-send-it) 'message-smtpmail-send-it)
+	((eq send-mail-function 'feedmail-send-it) 'feedmail-send-it)
+	((eq send-mail-function 'mailclient-send-it)
+	 'message-send-mail-with-mailclient)
+	(t (message-send-mail-function)))
   "Function to call to send the current buffer as mail.
 The headers should be delimited by a line whose contents match the
 variable `mail-header-separator'.
@@ -686,7 +691,7 @@
 			       :tag "Use Mailclient package")
  		(function :tag "Other"))
   :group 'message-sending
-  :version "23.1" ;; No Gnus
+  :version "23.2"
   :initialize 'custom-initialize-default
   :link '(custom-manual "(message)Mail Variables")
   :group 'message-mail)