[gnus git] branch master updated: m0-1-115-g258b3f8 =1= message.el (message-default-send-mail-function): Made into own function for reuse by emacsbug.el.

       via  258b3f878a173a243201bb290401956d9cc35276 (commit)
      from  2a889f169bb297c9acdf483390ee17f266483aff (commit)


- Log -----------------------------------------------------------------
commit 258b3f878a173a243201bb290401956d9cc35276
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sat Feb 11 00:22:52 2012 +0000

    message.el (message-default-send-mail-function): Made into own function for reuse by emacsbug.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9c3eea..eee510e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-10  Lars Ingebrigtsen  <[email protected]>
+
+	* message.el (message-default-send-mail-function): Made into own
+	function for reuse by emacsbug.el.
+
 2012-02-09  Juanma Barranquero  <[email protected]>
 
 	* gnus.el (gnus-method-ephemeral-p): Move after declaration of defsubst
diff --git a/lisp/message.el b/lisp/message.el
index 96027a1..abc1f3a 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -682,14 +682,16 @@ Done before generating the new subject of a forward."
 	(t
 	 (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
+(defun message-default-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 'sendmail-query-once) 'sendmail-query-once)
 	((eq send-mail-function 'mailclient-send-it)
 	 'message-send-mail-with-mailclient)
-	(t (message-send-mail-function)))
+	(t (message-send-mail-function))))
+
+;; Useful to set in site-init.el
+(defcustom message-send-mail-function (message-default-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'.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |    8 +++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project