* bug#5643: message-send-mail-function does not inherit from send-mail-function
@ 2010-02-24 18:44 Glenn Morris
2010-02-26 4:46 ` Glenn Morris
0 siblings, 1 reply; 2+ messages in thread
From: Glenn Morris @ 2010-02-24 18:44 UTC (permalink / raw)
To: 5643
Current trunk on GNU/Linux:
emacs -Q --eval "(progn (setq send-mail-function 'smtpmail-send-it) (require 'message))"
C-h v message-send-mail-function RET
Its value is
message-send-mail-with-sendmail
The fact that message-send-mail-function does not respect the value of
send-mail-function at all is unhelpful. It will be especially
confusing for people upgrading from Emacs 23.1 who have customized
send-mail-function.
I suggest a patch like the following:
*** lisp/gnus/message.el 2010-02-24 03:12:54 +0000
--- lisp/gnus/message.el 2010-02-24 18:41:04 +0000
***************
*** 675,681 ****
(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)
"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'.
--- 675,686 ----
(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
! (case send-mail-function
! (smtpmail-send-it 'message-smtpmail-send-it)
! (feedmail-send-it 'feedmail-send-it)
! (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,704 ****
:tag "Use Mailclient package")
(function :tag "Other"))
:group 'message-sending
! :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:link '(custom-manual "(message)Mail Variables")
:group 'message-mail)
--- 703,709 ----
:tag "Use Mailclient package")
(function :tag "Other"))
:group 'message-sending
! :version "23.2"
:initialize 'custom-initialize-default
:link '(custom-manual "(message)Mail Variables")
:group 'message-mail)
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2010-02-26 4:46 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-02-24 18:44 bug#5643: message-send-mail-function does not inherit from send-mail-function Glenn Morris
2010-02-26 4:46 ` Glenn Morris
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.