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

Set default when asking for send-mail-function (Bug#25874).

Browse source 
* lisp/mail/sendmail.el (sendmail-query-user-about-smtp): Pass first
option as default for `completing-read'.
This commit is contained in:
Noam Postavsky 2017-02-26 22:17:28 -05:00
parent 37940b3470
commit 66b7543eab
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/sendmail.el
View file

@ -555,8 +555,9 @@ This also saves the value of `send-mail-function' via Customize."
(goto-char (point-min))
(display-buffer (current-buffer))
(let ((completion-ignore-case t))
(completing-read "Send mail via: "
options nil 'require-match)))))
(completing-read
(format "Send mail via (default %s): " (caar options))
options nil 'require-match nil nil (car options))))))
(customize-save-variable 'send-mail-function
(cdr (assoc-string choice options t)))))