mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(message-send-mail-function): Check for smtpmail too.

Browse Source
This commit is contained in:
Reiner Steib 2007-11-20 21:49:06 +00:00
parent f21470efb6
commit 9e0a857645
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View File

@ -1,5 +1,7 @@
2007-11-20 Reiner Steib <Reiner.Steib@gmx.de>
* message.el (message-send-mail-function): Check for smtpmail too.
* utf7.el (utf7-encode, utf7-decode): Use coding system
`utf-7'/`utf-7-imap' from utf-7.el' if available.

12
lisp/gnus/message.el
View File

@ -624,13 +624,17 @@ Done before generating the new subject of a forward."
(defun message-send-mail-function ()
"Return suitable value for the variable `message-send-mail-function'."
(cond ((and sendmail-program
(executable-find program))
(executable-find sendmail-program))
'message-send-mail-with-sendmail)
((and (locate-library "mailclient")
(memq system-type '(darwin windows-nt)))
((and (locate-library "smtpmail")
(require 'smtpmail)
smtpmail-default-smtp-server)
'message-smtpmail-send-it)
((locate-library "mailclient")
'message-send-mail-with-mailclient)
(t
'message-smtpmail-send-it)))
(lambda ()
(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)