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

Allow making TLS negotiation blocking

Browse source 
* lisp/net/gnutls.el (gnutls-negotiate): Make negotiation blocking.

* src/gnutls.c (Fgnutls_boot): Provide a new keyword,
:complete-negotiation, to specify that we want complete
negotiation even if the socket is non-blocking.
(gnutls_try_handshake): Complete negotiation if given that keyword.

* src/process.h (L): Added gnutls_complete_negotiation_p.
This commit is contained in:
Lars Magne Ingebrigtsen 2016-03-05 17:04:23 +01:00
parent 76b97fb0f9
commit 21b509d444
4 changed files with 22 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/gnutls.el
View file

@ -175,7 +175,9 @@ For the meaning of the rest of the parameters, see `gnutls-boot-parameters'."
:verify-hostname-error verify-hostname-error))
ret)
(gnutls-message-maybe
(setq ret (gnutls-boot process type params))
(setq ret (gnutls-boot process type
(append (list :complete-negotiation t)
params)))
"boot: %s" params)
(when (gnutls-errorp ret)