GNU bug report logs - #5643
message-send-mail-function does not inherit from send-mail-function

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 5643 in the body.
You can then email your comments to 5643 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #3 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: submit <at> debbugs.gnu.org
Subject: message-send-mail-function does not inherit from send-mail-function
Date: Wed, 24 Feb 2010 13:44:36 -0500

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)

Message #8 received at 5643-done <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 5643-done <at> debbugs.gnu.org
Subject: Re: bug#5643: message-send-mail-function does not inherit from
	send-mail-function
Date: Thu, 25 Feb 2010 23:46:08 -0500

Glenn Morris wrote:

> I suggest a patch like the following:

I installed that because I think something like this is important for
tomorrow's (?) pretest. Comments welcome.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.