;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\304\316\317\320&\210\310\321\312\313\322DD\323\317\320%\210\310\324\312\313\325DD\326\304\316\317\327&\210\310\330\312\313\331DD\332\317\333%\210\310\334\312\313\335DD\336\304\316\317\337&\210\310\340\312\313\341DD\342\304\316\317\327&\210\310\343\312\313\344DD\345\304\316\317\346&\210\310\347\312\313\350DD\351\304\316\317\346&\210\310\352\312\313\353DD\354\304\316\317\346&\207" [custom-declare-group starttls nil "Support for `Transport Layer Security' protocol." :version "21.1" :group mail custom-declare-variable starttls-gnutls-program funcall function #[0 "\300\207" ["gnutls-cli"] 1 #1=""] "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 #[0 "\300\207" ["starttls"] 1 #1#] "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 #[0 "\301!?\207" [starttls-program executable-find] 2 #1#] "Whether to use GnuTLS instead of the `starttls' command." boolean starttls-extra-args #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Value for `process-connection-type' to use when starting STARTTLS process." starttls-connect #[0 "\300\207" ["- Simple Client Mode:\n\n"] 1 #1#] "Regular expression indicating successful connection.\nThe default is what GnuTLS's \"gnutls-cli\" outputs." regexp starttls-failure #[0 "\300\207" ["\\*\\*\\* Handshake has failed"] 1 #1#] "Regular expression indicating failed TLS handshake.\nThe default is what GnuTLS's \"gnutls-cli\" outputs." starttls-success #[0 "\300\207" ["- Compression: "] 1 #1#] "Regular expression indicating completed TLS handshakes.\nThe default is what GnuTLS's \"gnutls-cli\" outputs."] 8)
#@229 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.

(fn PROCESS)
(defalias 'starttls-negotiate-gnutls #[257 "\302\211\211\211\211\303!\211\262\204\304\305!\306\"\207rq\210\212db\262\304\305!\306\"\210\307!\203`\310!\311=\203`\212b\210\312\302\313#\211\262\206O\312	\302\313#\211\262)\204`\314\315\"\210\316\317!\210\202(\320d\"\262d|\210
\203r\211\203\200
\203\204\211\203\204

W\203\204\202\212\321\322\"\210\302*\207" [starttls-success starttls-failure 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"] 10 (#$ . 2507)])
#@16 

(fn PROCESS)
(defalias 'starttls-negotiate #[257 "\203\301
!\207\302\303!\304\"\207" [starttls-use-gnutls starttls-negotiate-gnutls signal-process process-id SIGALRM] 4 (#$ . 3398)])
#@30 

(fn NAME BUFFER HOST PORT)
(defalias 'starttls-open-stream-gnutls #[1028 "\305\306#\210\307rq\210d)\310\311\n\312	\313\n\250\203'\314!\202)\n&	\315
\307\"\210\316
!\203^\317
!\320=\203^rq\210
b\210\321\f\307\322#\211\262)\204^\323
\324\"\210\325\324!\210\2021\203nrq\210
|\210)\202u\326
!\210\307\262
\305\327\203\204\330\202\205\331$\210)\207" [starttls-process-connection-type process-connection-type starttls-gnutls-program starttls-extra-arguments starttls-connect 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 delete-process "Opening STARTTLS connection to `%s:%s'...%s" "done" "failed"] 16 (#$ . 3593)])
#@796 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.

(fn NAME BUFFER HOST PORT)
(defalias 'starttls-open-stream #[1028 "\203\305$\207\306\307\310\311\"#\210	\312\313\310\311\"\f&\314
\315\"\210)\207" [starttls-use-gnutls starttls-process-connection-type process-connection-type starttls-program starttls-extra-args starttls-open-stream-gnutls message "Opening STARTTLS connection to `%s:%s'" format "%s" apply start-process set-process-query-on-exit-flag nil] 13 (#$ . 4415)])
#@50 Say whether the STARTTLS programs are available.
(defalias 'starttls-available-p #[0 "\304>?\205\305	\203\n\202!\207" [system-type starttls-use-gnutls starttls-gnutls-program starttls-program (windows-nt ms-dos) executable-find] 2 (#$ . 5631)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias starttls-any-program-available starttls-available-p nil make-obsolete "24.1" provide starttls] 4)