[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-logon.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\303\304!\204\12\0\300\304!\210\300\207" [require jabber-xml jabber-util fboundp sha1] 2)
#@104 Send IQ get request in namespace "jabber:iq:auth".
JC is the Jabber connection.

(fn JC TO SESSION-ID)\1f
(defalias 'jabber-get-auth #[771 "\300\ 3\ 3\301\302\303\304\305\306\307\ 6\f!\310\"EE\311\ 6\ 6\312\313&\b\207" [jabber-send-iq "get" query ((xmlns . "jabber:iq:auth")) username nil plist-get fsm-get-state-data :username jabber-do-logon jabber-report-success "Impossible error - auth field request"] 14 (#$ . 210)])
#@198 Send username and password in logon attempt.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA SESSION-ID)\1f
(defalias 'jabber-do-logon #[771 "\300\301\ 3!\302\"\211\204\19\0\303\304\ 5!\305\"\204\19\0\306\307!\205'\0\303\304\ 5!\310\"\206'\0\311\312\ 5!!\313\ 1\2042\0\314\ 6\ 6\315\"\207\ 2\203D\0\302\313\316\ 6\ 6\ 5P!E\262\ 1\202J\0\317\313\ 3E\262\ 1\303\304\ 6\a!\320\"\204]\0\321\304\ 6\a!\320\322#\210\323\ 6\ 6\303\304\ 6	!\324\"\325\326\327\330\313\303\304\ 6\ f!\331\"E\ 6\a\332\313\303\304\ 6\11!\320\"E\257\ 5\333\ 6\a\333\313&\b\207" [jabber-xml-get-children jabber-iq-query digest plist-get fsm-get-state-data :encrypted yes-or-no-p "Jabber server only allows cleartext password transmission!  Continue? " :password jabber-read-password jabber-connection-bare-jid nil fsm-send :authentication-failure sha1 password :resource plist-put "emacs-jabber" jabber-send-iq :server "set" query ((xmlns . "jabber:iq:auth")) username :username resource jabber-process-logon] 19 (#$ . 626)])
#@276 Receive login success or failure, and request roster.
CLOSURE-DATA should be the password on success and nil on failure.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA CLOSURE-DATA)\1f
(defalias 'jabber-process-logon #[771 "\211\203\v\0\300\ 3\301\ 3B\"\207\302\ 3\ 3\303#\210\300\ 3\304\"\207" [fsm-send :authentication-success jabber-report-success "Logon" :authentication-failure] 7 (#$ . 1648)])
(provide 'jabber-logon)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\300\302!\210\303\304!\204\12\0\300\304!\210\300\207" [require jabber-xml jabber-util fboundp sha1] 2)
	9	#@104 Send IQ get request in namespace "jabber:iq:auth".
	10	JC is the Jabber connection.
	11
	12	(fn JC TO SESSION-ID)\1f
	13	(defalias 'jabber-get-auth #[771 "\300\ 3\ 3\301\302\303\304\305\306\307\ 6\f!\310\"EE\311\ 6\ 6\312\313&\b\207" [jabber-send-iq "get" query ((xmlns . "jabber:iq:auth")) username nil plist-get fsm-get-state-data :username jabber-do-logon jabber-report-success "Impossible error - auth field request"] 14 (#$ . 210)])
	14	#@198 Send username and password in logon attempt.
	15
	16	JC is the Jabber connection.
	17	XML-DATA is the parsed tree data from the stream (stanzas)
	18	obtained from `xml-parse-region'.
	19
	20	(fn JC XML-DATA SESSION-ID)\1f
	21	(defalias 'jabber-do-logon #[771 "\300\301\ 3!\302\"\211\204\19\0\303\304\ 5!\305\"\204\19\0\306\307!\205'\0\303\304\ 5!\310\"\206'\0\311\312\ 5!!\313\ 1\2042\0\314\ 6\ 6\315\"\207\ 2\203D\0\302\313\316\ 6\ 6\ 5P!E\262\ 1\202J\0\317\313\ 3E\262\ 1\303\304\ 6\a!\320\"\204]\0\321\304\ 6\a!\320\322#\210\323\ 6\ 6\303\304\ 6 !\324\"\325\326\327\330\313\303\304\ 6\ f!\331\"E\ 6\a\332\313\303\304\ 6\11!\320\"E\257\ 5\333\ 6\a\333\313&\b\207" [jabber-xml-get-children jabber-iq-query digest plist-get fsm-get-state-data :encrypted yes-or-no-p "Jabber server only allows cleartext password transmission! Continue? " :password jabber-read-password jabber-connection-bare-jid nil fsm-send :authentication-failure sha1 password :resource plist-put "emacs-jabber" jabber-send-iq :server "set" query ((xmlns . "jabber:iq:auth")) username :username resource jabber-process-logon] 19 (#$ . 626)])
	22	#@276 Receive login success or failure, and request roster.
	23	CLOSURE-DATA should be the password on success and nil on failure.
	24
	25	JC is the Jabber connection.
	26	XML-DATA is the parsed tree data from the stream (stanzas)
	27	obtained from `xml-parse-region'.
	28
	29	(fn JC XML-DATA CLOSURE-DATA)\1f
	30	(defalias 'jabber-process-logon #[771 "\211\203\v\0\300\ 3\301\ 3B\"\207\302\ 3\ 3\303#\210\300\ 3\304\"\207" [fsm-send :authentication-success jabber-report-success "Logon" :authentication-failure] 7 (#$ . 1648)])
	31	(provide 'jabber-logon)