procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(sendmail-query-once): Restore the current buffer after querying

Browse source 
Fixes: debbugs:9074
This commit is contained in:
Lars Magne Ingebrigtsen 2011-08-02 21:43:09 +02:00
parent 55439c615b
commit e07dd7c340
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2011-08-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/sendmail.el (sendmail-query-once): Restore the current
buffer after querying (bug#9074).
* dired.el (dired-flagged): Use different faces for marked and
flagged files (bug#6117).

6
lisp/mail/sendmail.el
View file

@ -165,7 +165,8 @@ This is used by the default mail-sending commands. See also
If `sendmail-query-once-function' is `query', ask the user what
function to use, and then save that choice."
(when (equal sendmail-query-once-function 'query)
(let* ((default
(let* ((mail-buffer (current-buffer))
(default
(cond
((or (and window-system (eq system-type 'darwin))
(eq system-type 'windows-nt))
@ -195,7 +196,8 @@ function to use, and then save that choice."
(if (y-or-n-p "Configure outgoing SMTP in Emacs? ")
'smtpmail-send-it
default))
(kill-buffer (current-buffer))))))
(kill-buffer (current-buffer))
(set-buffer mail-buffer)))))
(customize-save-variable 'sendmail-query-once-function function)))
(funcall sendmail-query-once-function))