Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/obsolete/starttls.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

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


(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\314\315\316\306\301&	\210\310\317\320\321\315\316\306\301&\210\310\322\323\324\304\314\315\325\306\301&	\210\310\326\302\327\315\330\306\301&\210\310\331\302\332\304\314\315\333\306\301&	\210\310\334\302\335\304\314\315\325\306\301&	\210\310\336\337\340\304\314\315\341\306\301&	\210\310\342\343\344\304\314\315\341\306\301&	\210\310\345\346\347\304\314\315\341\306\301&	\207" [custom-declare-group starttls nil "Support for `Transport Layer Security' protocol." :version "21.1" :group mail custom-declare-variable starttls-gnutls-program "gnutls-cli" "Name of GnuTLS command line tool.\nThis program is used when GnuTLS is used, i.e. when\n`starttls-use-gnutls' is non-nil." "22.1" :type string starttls-program "starttls" "The program to run in a subprocess to open an TLSv1 connection.\nThis program is used when the `starttls' command is used,\ni.e. when `starttls-use-gnutls' is nil." starttls-use-gnutls (not (executable-find starttls-program)) "Whether to use GnuTLS instead of the `starttls' command." boolean starttls-extra-args "Extra arguments to `starttls-program'.\nThese apply when the `starttls' command is used, i.e. when\n`starttls-use-gnutls' is nil." (repeat string) starttls-extra-arguments "Extra arguments to `starttls-gnutls-program'.\nThese apply when GnuTLS is used, i.e. when `starttls-use-gnutls' is non-nil.\n\nFor example, non-TLS compliant servers may require\n(\"--protocols\" \"ssl3\").  Invoke \"gnutls-cli --help\" to\nfind out which parameters are available." (repeat string) starttls-process-connection-type "Value for `process-connection-type' to use when starting STARTTLS process." starttls-connect "- Simple Client Mode:\n\n" "Regular expression indicating successful connection.\nThe default is what GnuTLS's \"gnutls-cli\" outputs." regexp starttls-failure "\\*\\*\\* Handshake has failed" "Regular expression indicating failed TLS handshake.\nThe default is what GnuTLS's \"gnutls-cli\" outputs." starttls-success "- Compression: " "Regular expression indicating completed TLS handshakes.\nThe default is what GnuTLS's \"gnutls-cli\" outputs."] 10)
#@215 Negotiate TLS on PROCESS opened by `open-starttls-stream'.
This should typically only be done once.  It typically returns a
multi-line informational message with information about the
handshake, or nil on failure.
(defalias 'starttls-negotiate-gnutls #[(process) "\306\211\211\211\211\307
!\211\204\310\311
!\312\"\202\211r\fq\210\212db\310\311
!\312\"\210\313
!\203_\314
!\315=\203_\212\nb\210\316\306\317#\211\206O\316\306\317#\211)\204_\320
\321\"\210\322\323!\210\202*\324\nd\"\nd|\210	\203p\203~	\203\202\203\202	W\203\202\202\210\325\326\"\210\306*-\207" [done-bad done-ok old-max info buffer process nil process-buffer signal-process process-id SIGALRM processp process-status run re-search-forward t accept-process-output 1.1 sit-for 0.1 buffer-substring-no-properties message "STARTTLS negotiation failed: %s" starttls-success starttls-failure] 5 (#$ . 2574)])
(defalias 'starttls-negotiate #[(process) "\203\302	!\207\303\304	!\305\"\207" [starttls-use-gnutls process starttls-negotiate-gnutls signal-process process-id SIGALRM] 3])
(defalias 'starttls-open-stream-gnutls #[(name buffer host port) "\306\307	#\210\310rq\210d)
\311\312\313\314	\250\203'\315	!\202(	&	 \316 \310\"\210\317 !\203d\320 !\321=\203drq\210\fb\210\322!\310\323#\211)\204d\324 \325\"\210\326\327!\210\2024\n\203trq\210\f\n|\210)\202|\330 !\210\310 \306\331	\n\203\210\332\202\211\333$\210 ,\207" [host port done buffer old-max starttls-process-connection-type message "Opening STARTTLS connection to `%s:%s'..." nil apply start-process "-s" "-p" int-to-string set-process-query-on-exit-flag processp process-status run re-search-forward t accept-process-output 0.1 sit-for 0.1 delete-process "Opening STARTTLS connection to `%s:%s'...%s" "done" "failed" process-connection-type name starttls-gnutls-program starttls-extra-arguments process starttls-connect] 10])
#@768 Open a TLS connection for a port 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 PORT.
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
 a 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 PORT is an integer specifying a port to connect to.
If `starttls-use-gnutls' is nil, this may also be a service name, but
GnuTLS requires a port number.
(defalias 'starttls-open-stream #[(name buffer host port) "\203\306	\n\f$\207\307\310\311\312\f\"#\210
\313\314	\n\311\312\f\"&\315\316\"\210*\207" [starttls-use-gnutls name buffer host port starttls-process-connection-type starttls-open-stream-gnutls message "Opening STARTTLS connection to `%s:%s'" format "%s" apply start-process set-process-query-on-exit-flag nil process-connection-type starttls-program starttls-extra-args process] 9 (#$ . 4501)])
#@50 Say whether the STARTTLS programs are available.
(defalias 'starttls-available-p #[nil "\304>?\205\305	\203\n\202!\207" [system-type starttls-use-gnutls starttls-gnutls-program starttls-program (windows-nt ms-dos) executable-find] 2 (#$ . 5747)])
(byte-code "\300\301\302\"\210\303\301\302\304#\210\305\306!\207" [defalias starttls-any-program-available starttls-available-p make-obsolete "2011-08-02" provide starttls] 4)