;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:15 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/starttls.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`starttls.el' was compiled for Emacs 19.29 or later"))

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


(custom-declare-group 'starttls nil "Support for `Transport Layer Security' protocol." :version "21.1" :group 'mail)
#@65 The program to run in a subprocess to open an TLSv1 connection.
(custom-declare-variable 'starttls-program '"starttls" '(#$ . 740) :type 'string :group 'starttls)
#@40 Extra arguments to `starttls-program'.
(custom-declare-variable 'starttls-extra-args 'nil '(#$ . 909) :type '(repeat string) :group 'starttls)
(defalias 'starttls-negotiate #[(process) "\301\302!\303\"\207" [process signal-process process-id SIGALRM] 3])
#@733 Open a 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.
(defalias 'starttls-open-stream #[(name buffer host service) "\306\307\310	\n\f\311\312\"\f&\313!\210*\207" [process-connection-type name buffer starttls-program host service nil apply start-process format "%s" process-kill-without-query starttls-extra-args process] 9 (#$ . 1172)])
(provide 'starttls)