mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
Download patch file Download diff file Expand all files Collapse all files

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))))