;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:16 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/net/gnutls.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'gnutls nil "Emacs interface to the GnuTLS library." :prefix "gnutls-" :group 'net-utils)
#@62 Logging level to be used by `starttls-negotiate' and GnuTLS.
(custom-declare-variable 'gnutls-log-level '0 '(#$ . 656) :type 'integer :group 'gnutls)
#@971 Open a SSL/TLS connection for a service to a host.
Returns a subprocess-object to represent the connection.
Input and output work as for subprocesses; `delete-process' closes it.
Args are NAME BUFFER HOST SERVICE.
NAME is name for process.  It is modified if necessary to make it unique.
BUFFER is the buffer (or `buffer-name') to associate with the process.
 Process output goes at end of that buffer, unless you specify
 an output stream or filter function to handle the output.
 BUFFER may be also nil, meaning that this process is not associated
 with any buffer
Third arg is name of the host to connect to, or its IP address.
Fourth arg SERVICE is name of the service desired, or an integer
specifying a port number to connect to.

This is a very simple wrapper around `gnutls-negotiate'.  See its
documentation for the specific parameters you can use to open a
GnuTLS connection, including specifying the credential type,
trust and key files, and priority string.
(defalias 'open-gnutls-stream #[(name buffer host service) "\305	\n$\306\f\307\")\207" [name buffer host service proc open-network-stream gnutls-negotiate gnutls-x509pki] 5 (#$ . 813)])
#@300 Negotiate a SSL/TLS connection.
TYPE is `gnutls-x509pki' (default) or `gnutls-anon'.  Use nil for the default.
PROC is a process returned by `open-network-stream'.
PRIORITY-STRING is as per the GnuTLS docs, default is "NORMAL".
TRUSTFILES is a list of CA bundles.
KEYFILES is a list of client keys.
(defalias 'gnutls-negotiate #[(proc type &optional priority-string trustfiles keyfiles) "\206\306	\206\307\n\206!\310=\203\311\202!\306=\205!\312\313\n\314\315	\316\f\317BBBBBBBB\320\321\322
#\211\323\"\210-\207" [type trustfiles priority-string gnutls-log-level keyfiles params gnutls-x509pki ("/etc/ssl/certs/ca-certificates.crt") gnutls-anon "NORMAL:+ANON-DH:!ARCFOUR-128" "NORMAL" :priority :loglevel :trustfiles :keyfiles (:callbacks nil) nil gnutls-message-maybe gnutls-boot "boot: %s" ret proc] 9 (#$ . 1979)])
#@71 When DOIT, message with the caller name followed by FORMAT on PARAMS.
(defalias 'gnutls-message-maybe #[(doit format &rest params) "\303!\205\304\305\306\307!\310\301	\n\206\311#%\207" [doit format params gnutls-errorp message "%s: (err=[%s] %s) %s" "gnutls.el" gnutls-error-string apply (nil)] 9 (#$ . 2828)])
(provide 'gnutls)
