mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Further `sendmail-query-once' cleanups for sending bug reports

Browse Source 
* mail/emacsbug.el (report-emacs-bug-hook): Look at the value of
`message-default-send-mail-function' and not `send-mail-function'
when doing the prompting for `sendmail-query-once' before sending
in Message buffers.

Fixes: debbugs:10897
This commit is contained in:
Lars Magne Ingebrigtsen 2012-03-03 15:43:03 +01:00
parent 01a6dcc883
commit fbae463706
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2012-03-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/emacsbug.el (report-emacs-bug-hook): Look at the value of
`message-default-send-mail-function' and not `send-mail-function'
when doing the prompting for `sendmail-query-once' before sending
in Message buffers (bug#10897).
2012-03-02 Alan Mackenzie <acm@muc.de>
Depessimize the handling of very large macros.

6
lisp/mail/emacsbug.el
View File

@ -394,7 +394,11 @@ and send the mail again%s."
;; Query the user for the SMTP method, so that we can skip
;; questions about From header validity if the user is going to
;; use mailclient, anyway.
(when (eq send-mail-function 'sendmail-query-once)
(when (or (and (derived-mode-p 'message-mode)
(eq (message-default-send-mail-function)
'sendmail-query-once))
(and (not (derived-mode-p 'message-mode))
(eq send-mail-function 'sendmail-query-once)))
(sendmail-query-user-about-smtp)
(when (derived-mode-p 'message-mode)
(setq message-send-mail-function (message-default-send-mail-function))))