[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-register.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\305\306B\"\207" [require jabber-iq jabber-widget add-to-list jabber-jid-service-menu "Register with service" jabber-get-register] 4)
#@98 Send IQ get request in namespace "jabber:iq:register".

JC is the Jabber connection.

(fn JC TO)\1f
(defalias 'jabber-get-register #[514 "\300\ 2\ 2\301\302\303\304\305\306&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:register"))) jabber-process-data jabber-process-register-or-search jabber-report-success "Registration"] 11 (#$ . 264) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "Register with: "] 3)])
#@208 Display results from jabber:iq:{register,search} query as a form.

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)\1f
(defalias 'jabber-process-register-or-search #[514 "\302\ 1!\303\304\ 3!\305\230\203\10\0\306\202\"\0\304\ 3!\307\230\203\1c\0\310\202\"\0\311\312\304\ 5!\"\313\314\ 6\ 6!\315\"\313\314\ 6\a!\316\"\313\314\ 6\b!\317\"\ 3\320\267\202f\0\321\ 6\a\322\ 1:\205J\0\323\ 2\ 2\"\266\202\206P\0\ 1!\210\202f\0\321\ 6\a\322\ 1:\205b\0\323\ 2\ 2\"\266\202!\210\ 6\a\10\324\ 4\306=\203t\0\325\202u\0\326	\327#\210\330\ 6\ 6\331\"\211\203\266\0\211@\211\332\ 1:\205\217\0\323\ 2\ 2\"\266\202\333\230\203\257\0\334\262\a\335\ 1\ 6\ 6\205\255\0\336\ 3!\305\230\205\255\0\337\ 6\ 6BC\"\210\ 1A\266\202\202~\0\210\ 4\204\305\0\340\ 6\ 6\ 4\205\303\0\ 3\"\210\341\342\343\ 6\ 6\306=\203\323\0\344\202\324\0\345\346$\210\ 3\306=\203\350\0\324\347!\210\341\342\343\350\351$\210\324\352!\210\353 \210\354\355!\207" [jabber-buffer-connection jabber-submit-to jabber-iq-query nil jabber-iq-xmlns "jabber:iq:register" register "jabber:iq:search" search error "Namespace %s not handled by jabber-process-register-or-search" plist-get fsm-get-state-data :registerp :username :server #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (register 61 search 85)) jabber-init-widget-buffer from xml-get-attribute-or-nil widget-insert "Register with " "Search " "\n\n" jabber-xml-get-children x xmlns "jabber:x:data" t jabber-render-xdata-form jabber-xdata-formtype "username" jabber-render-register-form widget-create push-button :notify jabber-submit-register jabber-submit-search "Submit" "	" jabber-remove-register "Cancel registration" "\n" widget-setup widget-minor-mode 1] 15 (#$ . 718)])
#@89 Submit registration input.  See `jabber-process-register-or-search'.

(fn &rest IGNORE)\1f
(defalias 'jabber-submit-register #[128 "\303\304\b!\305\"\211\203\ e\0\306\202\ f\0\307\310	P\311\b	\312\n\313\267\202-\0\314\315\316 BB\2021\0\314\317\320 E\2021\0\321\322\n\"\ 6\ 6\ 6\b\203<\0\323\202>\0\ 6\ 6\ 6\b\ 6\n\203I\0\324\202K\0\ 6\b&\b\266\ 4\325\326!\207" [jabber-buffer-connection jabber-submit-to jabber-form-type plist-get fsm-get-state-data :registerp jabber-process-register-secondtime jabber-report-success "Registration with " jabber-send-iq "set" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (register 28 xdata 37)) query ((xmlns . "jabber:iq:register")) jabber-parse-register-form ((xmlns . "jabber:iq:register")) jabber-parse-xdata-form error "Unknown form type: %s" success failure message "Registration sent"] 13 (#$ . 2416)])
#@239 Receive registration success or failure.
CLOSURE-DATA is either 'success or 'error.

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-register-secondtime #[771 "\211\300=\203\r\0\301\302!\210\202\13\0\303\ 3\ 3\304#\210\305\306!\210\307\ 3!\207" [success message "Registration successful.  You may now connect to the server." jabber-report-success "Account registration" sit-for 3 jabber-disconnect-one] 7 (#$ . 3267)])
#@83 Cancel registration.  See `jabber-process-register-or-search'.

(fn &rest IGNORE)\1f
(defalias 'jabber-remove-register #[128 "\b\204\r\0\303\304	\305Q!\205\18\0\306\n	\307\310\311\312\311\312&\b\207" [jabber-silent-mode jabber-submit-to jabber-buffer-connection yes-or-no-p "Are you sure that you want to cancel your registration to " "? " jabber-send-iq "set" (query ((xmlns . "jabber:iq:register")) (remove)) jabber-report-success "Unregistration"] 10 (#$ . 3812)])
(provide 'jabber-register)
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\305\306B\"\207" [require jabber-iq jabber-widget add-to-list jabber-jid-service-menu "Register with service" jabber-get-register] 4)
	9	#@98 Send IQ get request in namespace "jabber:iq:register".
	10
	11	JC is the Jabber connection.
	12
	13	(fn JC TO)\1f
	14	(defalias 'jabber-get-register #[514 "\300\ 2\ 2\301\302\303\304\305\306&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:register"))) jabber-process-data jabber-process-register-or-search jabber-report-success "Registration"] 11 (#$ . 264) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "Register with: "] 3)])
	15	#@208 Display results from jabber:iq:{register,search} query as a form.
	16
	17	JC is the Jabber connection.
	18	XML-DATA is the parsed tree data from the stream (stanzas)
	19	obtained from `xml-parse-region'.
	20
	21	(fn JC XML-DATA)\1f
	22	(defalias 'jabber-process-register-or-search #[514 "\302\ 1!\303\304\ 3!\305\230\203\10\0\306\202\"\0\304\ 3!\307\230\203\1c\0\310\202\"\0\311\312\304\ 5!\"\313\314\ 6\ 6!\315\"\313\314\ 6\a!\316\"\313\314\ 6\b!\317\"\ 3\320\267\202f\0\321\ 6\a\322\ 1:\205J\0\323\ 2\ 2\"\266\202\206P\0\ 1!\210\202f\0\321\ 6\a\322\ 1:\205b\0\323\ 2\ 2\"\266\202!\210\ 6\a\10\324\ 4\306=\203t\0\325\202u\0\326 \327#\210\330\ 6\ 6\331\"\211\203\266\0\211@\211\332\ 1:\205\217\0\323\ 2\ 2\"\266\202\333\230\203\257\0\334\262\a\335\ 1\ 6\ 6\205\255\0\336\ 3!\305\230\205\255\0\337\ 6\ 6BC\"\210\ 1A\266\202\202~\0\210\ 4\204\305\0\340\ 6\ 6\ 4\205\303\0\ 3\"\210\341\342\343\ 6\ 6\306=\203\323\0\344\202\324\0\345\346$\210\ 3\306=\203\350\0\324\347!\210\341\342\343\350\351$\210\324\352!\210\353 \210\354\355!\207" [jabber-buffer-connection jabber-submit-to jabber-iq-query nil jabber-iq-xmlns "jabber:iq:register" register "jabber:iq:search" search error "Namespace %s not handled by jabber-process-register-or-search" plist-get fsm-get-state-data :registerp :username :server #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (register 61 search 85)) jabber-init-widget-buffer from xml-get-attribute-or-nil widget-insert "Register with " "Search " "\n\n" jabber-xml-get-children x xmlns "jabber:x:data" t jabber-render-xdata-form jabber-xdata-formtype "username" jabber-render-register-form widget-create push-button :notify jabber-submit-register jabber-submit-search "Submit" " " jabber-remove-register "Cancel registration" "\n" widget-setup widget-minor-mode 1] 15 (#$ . 718)])
	23	#@89 Submit registration input. See `jabber-process-register-or-search'.
	24
	25	(fn &rest IGNORE)\1f
	26	(defalias 'jabber-submit-register #[128 "\303\304\b!\305\"\211\203\ e\0\306\202\ f\0\307\310 P\311\b \312\n\313\267\202-\0\314\315\316 BB\2021\0\314\317\320 E\2021\0\321\322\n\"\ 6\ 6\ 6\b\203<\0\323\202>\0\ 6\ 6\ 6\b\ 6\n\203I\0\324\202K\0\ 6\b&\b\266\ 4\325\326!\207" [jabber-buffer-connection jabber-submit-to jabber-form-type plist-get fsm-get-state-data :registerp jabber-process-register-secondtime jabber-report-success "Registration with " jabber-send-iq "set" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (register 28 xdata 37)) query ((xmlns . "jabber:iq:register")) jabber-parse-register-form ((xmlns . "jabber:iq:register")) jabber-parse-xdata-form error "Unknown form type: %s" success failure message "Registration sent"] 13 (#$ . 2416)])
	27	#@239 Receive registration success or failure.
	28	CLOSURE-DATA is either 'success or 'error.
	29
	30	JC is the Jabber connection.
	31	XML-DATA is the parsed tree data from the stream (stanzas)
	32	obtained from `xml-parse-region'.
	33
	34	(fn JC XML-DATA CLOSURE-DATA)\1f
	35	(defalias 'jabber-process-register-secondtime #[771 "\211\300=\203\r\0\301\302!\210\202\13\0\303\ 3\ 3\304#\210\305\306!\210\307\ 3!\207" [success message "Registration successful. You may now connect to the server." jabber-report-success "Account registration" sit-for 3 jabber-disconnect-one] 7 (#$ . 3267)])
	36	#@83 Cancel registration. See `jabber-process-register-or-search'.
	37
	38	(fn &rest IGNORE)\1f
	39	(defalias 'jabber-remove-register #[128 "\b\204\r\0\303\304 \305Q!\205\18\0\306\n \307\310\311\312\311\312&\b\207" [jabber-silent-mode jabber-submit-to jabber-buffer-connection yes-or-no-p "Are you sure that you want to cancel your registration to " "? " jabber-send-iq "set" (query ((xmlns . "jabber:iq:register")) (remove)) jabber-report-success "Unregistration"] 10 (#$ . 3812)])
	40	(provide 'jabber-register)