Mercurial > emacs
changeset 107235:a3c102291ce1
Close bug#5643.
* message.el (message-send-mail-function): Change the default, so that
it inherits from a customized send-mail-function. (Bug#5643)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 25 Feb 2010 20:45:41 -0800 |
| parents | 78f7c3c01214 |
| children | ca680936225c |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Feb 25 20:42:07 2010 -0800 +++ b/lisp/gnus/ChangeLog Thu Feb 25 20:45:41 2010 -0800 @@ -1,3 +1,8 @@ +2010-02-26 Glenn Morris <rgm@gnu.org> + + * 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 <monnier@iro.umontreal.ca> * gnus-art.el (gnus-treat-display-x-face): Don't burp if
--- a/lisp/gnus/message.el Thu Feb 25 20:42:07 2010 -0800 +++ b/lisp/gnus/message.el Thu Feb 25 20:45:41 2010 -0800 @@ -675,7 +675,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'. @@ -698,7 +703,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)