diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-29 14:48:29 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-29 14:48:29 +0200 |
| commit | df7fcafff05c4002f35e507c65518f4b20ba5382 (patch) | |
| tree | dff32dbafc674846a125fd1d28a6ea79db90c522 /lisp/net/gnutls.el | |
| parent | af7ef32d8e12d07c4a37df1685d997ac76641dd7 (diff) | |
| download | emacs-df7fcafff05c4002f35e507c65518f4b20ba5382.tar.gz | |
Make sure all reads/writes to gnutls streams go via the gnutls functions.
Diffstat (limited to 'lisp/net/gnutls.el')
| -rw-r--r-- | lisp/net/gnutls.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index 6a2d5aff68f..e1d093ebf79 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el @@ -37,7 +37,7 @@ :prefix "gnutls-" :group 'net-utils) -(defcustom gnutls-log-level 2 +(defcustom gnutls-log-level 0 "Logging level to be used by `starttls-negotiate' and GnuTLS." :type 'integer :group 'gnutls) @@ -91,20 +91,14 @@ CREDENTIALS-FILE is a filename with meaning dependent on CREDENTIALS." (error "Could not boot GnuTLS for this process")); (let ((ret 'gnutls-e-again) - (n 25000)) + (n 250000)) (while (and (not (eq ret t)) (not (gnutls-error-fatalp ret)) (> n 0)) (setq n (1- n)) - (setq ret (gnutls-handshake proc)) - ) - (if (gnutls-errorp ret) - (progn - (message "Ouch, error return %s (%s)" - ret (gnutls-error-string ret)) - (setq proc nil)) - (message "Handshake complete %s." ret))) - proc)) + (setq ret (gnutls-handshake proc))) + (message "Handshake complete %s." ret)) + proc)) (defun starttls-open-stream (name buffer host service) "Open a TLS connection for a service to a host. |