Reorganización de directorios

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

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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require jabber-core jabber-iq jabber-alert jabber-util jabber-menu jabber-muc] 2)
#@203 List of functions returning extra elements for <presence/> stanzas.
Each function takes one argument, the connection, and returns a
possibly empty list of extra child element of the <presence/>
stanza.\1f
(defvar jabber-presence-element-functions nil (#$ . 260))
#@55 Keeps track of previously used presence status types.\1f
(defvar jabber-presence-history nil (#$ . 526))
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-iq-set-xmlns-alist "jabber:iq:roster" #[514 "\300\ 2\ 2\301#\207" [jabber-process-roster nil] 6 "\n\n(fn JC X)"]] 4)
#@270 Process an incoming roster infoquery result.
CLOSURE-DATA should be 'initial if initial roster push, nil otherwise.
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-roster #[771 "\300\301\ 4!\302\"\ 2\303\ 1:\205\11\0\304\ 2\ 2\"\266\202\ 3\305\ 1:\205\1e\0\304\ 2\ 2\"\266\202\ 4\306\ 1:\205+\0\304\ 2\ 2\"\266\202\300\301\ 6\b!\307\"\300\301\ 6	!\310\"\300\301\ 6\n!\311\"\312\211\211\ 6\b\203\203\0\ 6\b\ 5\230\204\203\0\ 6\b\ 6\ 6\313\ 6\aQ\230\204\203\0\ 6\b\ 6\ 6\313\ 6\a\314\ 6\b\260\ 5\230\204\203\0\315\316\ 6\n\ 6\a\ 6	\ 6	\ 6\v\ 6\v\ 6\v&\b\210\202\200\ 1\317\211\ 6\r\320\"@\321\"\211\203\7f\ 1\211@\312\322\ 2\323\ 1:\205\237\0\304\ 2\ 2\"\266\202!\ 2\324\ 1:\205\255\0\304\ 2\ 2\"\266\202\325\230\203\324\0\326\ 1!\203\305\0\315\327\326\ 3!\ 3#\210\202\312\0\315\330\ 2\"\210\211\ 5B\262\ 5\266\ 2\202x\ 1\211\ 6\ e>@\262\ 2\ 1\203\350\0\ 1\ 6\ 6B\262\ 6\202\"\ 1\ 6\ e\331=\204\19\ 1\ 2\332\ 1:\205\372\0\304\ 2\ 2\"\266\202\203\14\ 1\315\333\ 4\332\ 1:\205\f\ 1\304\ 2\ 2\"\266\202\ 3#\210\202\19\ 1\315\334\ 2\"\210\211\262\ 2\ 1\ 6\aB\262\a\ 6\ e\331=\203.\ 1\335\ 2\312\"\210\336\ 2\332\ 5\332\ 1:\205<\ 1\304\ 2\ 2\"\266\202#\210\336\ 2\324\ 5\324\ 1:\205N\ 1\304\ 2\ 2\"\266\202#\210\336\ 2\337\ 5\337\ 1:\205`\ 1\304\ 2\ 2\"\266\202#\210\336\ 2\340\ 5#\210\336\ 2\341\342\343\317\ 6\b\344\"\"#\266\ 3\ 1A\266\202\202\214\0\210\345\ 6\r\ 4\ 4\ 4$\210\ 6\ 6\203\243\ 1\ 6\a\346\230\203\243\ 1\347\ 6\r\312\350\312\211\211\211\211\ 6\ f&	\210\266\n\211\331=\205\257\ 1\351\352\ 4\"\207" [plist-get fsm-get-state-data :roster from xml-get-attribute-or-nil type id :username :server :resource nil "@" "/" message "Roster push with invalid \"from\": \"%s\" (expected \"%s\", \"%s@%s\" or \"%s@%s/%s\")" jabber-xml-get-children query item jabber-jid-symbol jid subscription "remove" jabber-jid-rostername "%s (%s) removed from roster" "%s removed from roster" initial name "%s (%s) added to roster" "%s added to roster" setplist put ask xml groups mapcar #[257 "\300\ 18\207" [2] 3 "\n\n(fn FOO)"] group jabber-roster-update "set" jabber-send-iq "result" run-hook-with-args jabber-post-connect-hooks] 25 (#$ . 805)])
#@190 Report the initial roster 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-initial-roster-failure #[771 "\300\ 3\ 3\301#\210\302\303\ 4\"\207" [jabber-report-success "Initial roster retrieval" run-hook-with-args jabber-post-connect-hooks] 7 (#$ . 2776)])
(add-to-list 'jabber-presence-chain 'jabber-process-presence)
#@174 Process incoming presence tags.

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-presence #[514 "\301\302\ 3!\303\"\ 1\304\ 1:\205\11\0\305\ 2\ 2\"\266\202\ 2\306\ 1:\205\1e\0\305\ 2\ 2\"\266\ 3\307\ 3\310\ 1:\205,\0\305\ 2\ 2\"\266\202\311\ 5\312\"@\211AA\211\313\232?\205>\0\211\266\202@\311\ 6\ 6\314\"@\211AA\211\313\232?\205R\0\211\266\202@\311\ 6\a\315\"@\316\311\ 6	\317\"@\211AA\211\313\232?\205m\0\211\266\202@\206t\0\320!\ 4\321\230\203\210\0\322\323\307\324\ 6\r\ 6\v\ 6\b&\ 6\207\325\ 6	!\203\226\0\326\ 6\n\ 6\n\"\207\327\ 6\a!\211\ 6	>\205\366\ 1\211\312N\330\ 6	!\206\254\0\331\332\ 1\ 4\333N\"A\307\ 2\331\230\203\374\0\ 6	\334\235\203\374\0\307\262\ 2\ 6	\335\230\205\314\0\335\262\ 1\ 6\ 6\203\332\0\336\ 6\a!\202\334\0\ 6\a\337\ 6\ 6\333\307#\210\337\ 6\ 6\340\307#\210\337\ 6\ 6\312\ 4#\210\337\ 6\ 6\314\ 3#\266\ 2\202\222\ 1\ 6	\341\230\203\1c\ 1\342\ 2\340\307#\262\ 2\342\ 2\312\307#\262\ 2\342\ 2\314\ 6\n#\262\ 2\202\222\ 1\ 6	\335\230\203K\ 1\335\262\ 1\342\ 2\340\307#\262\ 2\342\ 2\312\335#\262\ 2\342\ 2\314\ 6	\203C\ 1\336\ 6\n!\202E\ 1\ 6\n#\262\ 2\202\222\ 1\ 6	\343\230\204`\ 1\ 6	\344\230\204`\ 1\ 6	\345\230\203g\ 1\ 6	\262\ 1\202\222\ 1\342\ 2\340\346#\262\ 2\342\ 2\312\ 6\v\206w\ 1\331#\262\ 2\342\ 2\314\ 6\n#\262\ 2\342\ 2\317\ 6\b#\262\ 2\ 6\b\206\220\ 1\331\262\ 1\ 1\203\276\ 1\332\ 3\ 6\ 6\333N\"\203\255\ 1\332\ 3\ 6\ 6\333N\"\ 2\241\210\202\272\ 1\337\ 5\333\ 5\ 5B\ 6\b\333NB#\210\347\ 5!\210\350\ 6\ f\351\ 6\aB\"\210\352\211\205\362\ 1\211@\353\ 1\ 6\b\ 6\b\ 6\ 6\301\ 6	\314\"\b\ 6\r\ 6\r\ 6\v\301\ 6\ e\314\"$&\ 6\210\ 1A\266\202\202\310\ 1\262\ 1\266\204\207" [jabber-alert-presence-message-function plist-get fsm-get-state-data :roster from xml-get-attribute-or-nil to nil type jabber-xml-get-children show ((#1="")) status error string-to-number priority "0" "subscribe" run-with-idle-timer 0.01 jabber-process-subscription-request jabber-muc-presence-p jabber-muc-process-presence jabber-jid-symbol jabber-jid-resource #1# assoc resources ("unavailable" "error") "error" jabber-parse-error put connected "unavailable" plist-put "unsubscribe" "subscribed" "unsubscribed" t jabber-prioritize-resources fsm-send :roster-update (jabber-presence-hooks jabber-alert-presence-hooks) run-hook-with-args] 30 (#$ . 3226)])
#@102 Process an incoming subscription request.
JC is the Jabber connection.

(fn JC FROM PRESENCE-STATUS)\1f
(defalias 'jabber-process-subscription-request #[771 "r\302\ 3\ 3\"q\210\303\b\304\ 3\305\306 F\"\210\307\211\2056\0\211@\310\ 1\311\ 6\ 6!\312\313\ 6\a	\311\ 6\v!\312\313\ 6\f$&\ 6\210\ 1A\266\202\202\12\0\262\ 1)\207" [jabber-chat-ewoc jabber-alert-presence-message-function jabber-chat-create-buffer ewoc-enter-last :subscription-request :time current-time (jabber-presence-hooks jabber-alert-presence-hooks) run-hook-with-args jabber-jid-symbol nil "subscribe"] 16 (#$ . 5305)])
#@22 

(fn &rest IGNORED)\1f
(defalias 'jabber-subscription-accept-mutual #[128 "\300\301!\210\302\303\304\"\207" [message "Subscription accepted; reciprocal subscription request sent" jabber-subscription-reply "subscribed" "subscribe"] 4 (#$ . 5864)])
#@22 

(fn &rest IGNORED)\1f
(defalias 'jabber-subscription-accept-one-way #[128 "\300\301!\210\302\303!\207" [message "Subscription accepted" jabber-subscription-reply "subscribed"] 3 (#$ . 6115)])
#@22 

(fn &rest IGNORED)\1f
(defalias 'jabber-subscription-decline #[128 "\300\301!\210\302\303!\207" [message "Subscription declined" jabber-subscription-reply "unsubscribed"] 3 (#$ . 6312)])
#@20 

(fn &rest TYPES)\1f
(defalias 'jabber-subscription-reply #[128 "\302\b!\ 1\211\205\1f\0\211@\303	\304\305\ 6\ 6B\306\ 5BDD\"\210\ 1A\266\202\202\ 4\0\207" [jabber-chatting-with jabber-buffer-connection jabber-jid-user jabber-send-sexp presence to type] 10 (#$ . 6504)])
#@121 Set connected, show and status properties for BUDDY.
Show status properties from highest-priority resource.

(fn BUDDY)\1f
(defalias 'jabber-prioritize-resources #[257 "\211\300N\301C\302\ 3\303\301#\210\302\ 3\304\301#\210\302\ 3\305\301#\210\306\307\310\ 5\ 4#\ 3\"\207" [resources nil put connected show status mapc make-closure #[257 "\211A\302\ 1\303\"\302\ 2\304\"\203G\0\301\242\203\1d\0\211\205m\0\211\301\242V\205m\0\301\ 1\206#\0\305\240\210\306\300\304\302\ 5\304\"#\210\306\300\307\302\ 5\307\"#\210\306\300\310\302\ 5\310\"#\210\306\300\311\ 5@#\207\300\304N?\205m\0\302\ 2\310\"\203^\0\306\300\310\302\ 5\310\"#\210\302\ 2\307\"\205m\0\306\300\307\302\ 5\307\"#\207" [V0 V1 plist-get priority connected 0 put show status resource] 9 "\n\n(fn RESOURCE)"]] 8 (#$ . 6763)])
#@65 Return the number of connected resources for BUDDY.

(fn BUDDY)\1f
(defalias 'jabber-count-connected-resources #[257 "\211\300N\301\ 1\211\203\1e\0\211@\302\ 1A\303\"\203\17\0\ 2T\262\ 3\ 1A\266\202\202\ 5\0\210\207" [resources 0 plist-get connected] 8 (#$ . 7507)])
#@59 Set presence for all accounts.

(fn SHOW STATUS PRIORITY)\1f
(defalias 'jabber-send-presence #[771 "\ 2\10\ 1\11\211\247\203\r\0\211\202\10\0\305\ 1!\12\306\v\211\2034\0\211@\307\ 1!\ 1\ 1B\ 4B\262\ 4\310\ 2\311\306\ 4BB\"\266\ 2\ 1A\266\202\202\13\0\210\f\211\203n\0\211@\312\313\ 2@!!\211\205J\0\314\315\ 2\"\211\ 5\236A\ 1\203e\0\310\ 2\311\316\ 6\a@\317\ 6	AQBC\ 4BB\"\210\266\ 3\ 1A\266\202\2026\0\266\ 2\320 \207" [*jabber-current-show* *jabber-current-status* *jabber-current-priority* jabber-connections *jabber-active-groupchats* string-to-number nil jabber-presence-children jabber-send-sexp-if-connected presence get-buffer jabber-muc-get-buffer buffer-local-value jabber-buffer-connection to "/" jabber-display-roster] 16 (#$ . 7758) (byte-code "\306\307\310\311\312\311\313&\ 6\314\b\315\311\19\1a\e\1c\316\f\v\n	\312%,\316\317\320\r\203$\0\r\202&\0\ e\11!\"E\207" [*jabber-current-status* default-value history initial-contents prompt *jabber-current-priority* completing-read "show: " ("" "away" "xa" "dnd" "chat") nil t jabber-presence-history "status message: " *jabber-status-history* read-string "priority: " int-to-string jabber-default-priority] 7)])
#@85 Return the children for a <presence/> stanza.
JC is the Jabber connection.

(fn JC)\1f
(defalias 'jabber-presence-children #[257 "\bG\304V\205\v\0\305\306\bE	G\304V\205\16\0\307\306	E\n\205 \0\310\306\311\n!E\312\313\314\315\316\ 6\b\"\v\"\"BBB\207" [*jabber-current-status* *jabber-current-show* *jabber-current-priority* jabber-presence-element-functions 0 status nil show priority number-to-string apply append mapcar make-closure #[257 "\211\300!\207" [V0] 3 "\n\n(fn F)"]] 10 (#$ . 8847)])
#@635 Send a directed presence stanza to JID.
TYPE is one of:
"online", "away", "xa", "dnd", "chatty":
  Appear as present with the given status.
"unavailable":
  Appear as offline.
"probe":
  Ask the contact's server for updated presence.
"subscribe":
  Ask for subscription to contact's presence.
  (see also `jabber-send-subscription-request')
"unsubscribe":
  Cancel your subscription to contact's presence.
"subscribed":
  Accept contact's request for presence subscription.
  (this is usually done within a chat buffer)
"unsubscribed":
  Cancel contact's subscription to your presence.

JC is the Jabber connection.

(fn JC JID TYPE)\1f
(defalias 'jabber-send-directed-presence #[771 "\211\302\235\203\13\0\303\ 3\304\305\ 5B\306\ 5BDD\"\207\211\307\230\203\1d\0\310\202\1e\0\211\311\18\19\303\ 3\304\305\ 5BC\312\ 6\a!BB\"*\207" [*jabber-current-status* *jabber-current-show* ("probe" "unavailable" "subscribe" "unsubscribe" "subscribed" "unsubscribed") jabber-send-sexp presence to type "online" "" nil jabber-presence-children] 9 (#$ . 9334) (byte-code "\300 \301\302!\303\304\305\306\307\306\310\311&\aE\207" [jabber-read-account jabber-read-jid-completing "Send directed presence to: " completing-read "Type (default is online): " (("online") ("away") ("xa") ("dnd") ("chatty") ("probe") ("unavailable") ("subscribe") ("unsubscribe") ("subscribed") ("unsubscribed")) nil t jabber-presence-history "online"] 10)])
#@90 Set status to away.
With prefix argument, ask for status message.

(fn &optional STATUS)\1f
(defalias 'jabber-send-away-presence #[256 "\302\303\ 2\203\n\0\ 2\202\v\0\b	#\207" [*jabber-current-status* *jabber-current-priority* jabber-send-presence "away"] 5 (#$ . 10728) (byte-code "\b\205\14\0\306	\307\310\1a\e\1c\1d\311\r\f\v\n\312%,C\207" [current-prefix-arg *jabber-current-status* default-value history initial-contents prompt "status message: " *jabber-status-history* nil read-string t] 6)])
#@99 Send extended away presence.
With prefix argument, ask for status message.

(fn &optional STATUS)\1f
(defalias 'jabber-send-xa-presence #[256 "\302\303\ 2\203\n\0\ 2\202\v\0\b	#\207" [*jabber-current-status* *jabber-current-priority* jabber-send-presence "xa"] 5 (#$ . 11210) (byte-code "\b\205\14\0\306	\307\310\1a\e\1c\1d\311\r\f\v\n\312%,C\207" [current-prefix-arg *jabber-current-status* default-value history initial-contents prompt "status message: " *jabber-status-history* nil read-string t] 6)])
#@159 Send default presence.
Default presence is specified by `jabber-default-show',
`jabber-default-status', and `jabber-default-priority'.

(fn &optional IGNORE)\1f
(defalias 'jabber-send-default-presence #[256 "\303\b	\n#\207" [jabber-default-show jabber-default-status jabber-default-priority jabber-send-presence] 5 (#$ . 11698) nil])
#@180 (Re-)send current presence.
That is, if presence has already been sent, use current settings,
otherwise send defaults (see `jabber-send-default-presence').

(fn &optional IGNORE)\1f
(defalias 'jabber-send-current-presence #[256 "\b\203\n\0\303\b	\n#\207\304 \207" [*jabber-current-show* *jabber-current-status* *jabber-current-priority* jabber-send-presence jabber-send-default-presence] 5 (#$ . 12035) nil])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-roster-menu "Send subscription request" jabber-send-subscription-request] 4)
#@139 Send a subscription request to jid.
Show him your request text, if specified.

JC is the Jabber connection.

(fn JC TO &optional REQUEST)\1f
(defalias 'jabber-send-subscription-request #[770 "\300\ 3\301\302\ 5B\303B\ 4\205\19\0\ 4G\304V\205\19\0\305\306\ 6\ 6ECBB\"\207" [jabber-send-sexp presence to ((type . "subscribe")) 0 status nil] 10 (#$ . 12583) (byte-code "\304 \305\306!\307\310\211\211\18\19\1a\e\311\v\n	\b\312%,E\207" [default-value history initial-contents prompt jabber-read-account jabber-read-jid-completing "to: " "request: " nil read-string t] 8)])
#@35 History of entered roster groups.\1f
(defvar jabber-roster-group-history nil (#$ . 13128))
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-roster-menu "Add/modify roster entry" jabber-roster-change] 4)
#@84 Add or change a roster item.
JC is the Jabber connection.

(fn JC JID NAME GROUPS)\1f
(defalias 'jabber-roster-change #[1028 "\300\ 4\301\302\303\304\305BC\306\307\306\310\311\ 6\r!BC\ 6\v\205%\0\ 6\vG\312V\205%\0\313\ 6\fBC\"D\314\315\ 6\n\"\"E\316\317\316\317&\b\207" [jabber-send-iq nil "set" query xmlns "jabber:iq:roster" append item jid symbol-name 0 name mapcar #[257 "\300\301\ 2E\207" [group nil] 4 "\n\n(fn X)"] jabber-report-success "Roster item change"] 16 (#$ . 13346) (byte-code "\305\306\307!!\310 \ 1\311N\ 2\312N\313\314\315\316\317\320\ 6\b!\321\"\"\"\b\322\231\203&\0\315\323\ 2\"\262\ 1\ 3\ 5\324\325\ 6\ 6\"\326\211\ 6\a\19\1a\e\1c\327\f\v\n	\330%,\331\332\333\324\334\ 6	\203P\0\335\336\ 6\v\337#\202Q\0\340\"\ 6\a\326\211\211\341\335\336\ 6\ f\337#\330&\b\"F\207" [emacs-version default-value history initial-contents prompt jabber-jid-symbol jabber-read-jid-completing "Add/change JID: " jabber-read-account name groups apply append mapcar #[257 "\211\300N\207" [groups] 3 "\n\n(fn J)"] plist-get fsm-get-state-data :roster "22" list format "Name: (default `%s') " nil read-string t delete "" completing-read-multiple "Groups, comma-separated: (default %s) " mapconcat identity "," "none" jabber-roster-group-history] 21)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-roster-menu "Delete roster entry" jabber-roster-delete] 4)
#@15 

(fn JC JID)\1f
(defalias 'jabber-roster-delete #[514 "\300\ 2\301\302\303\304\305\306\ 6\bB\307BDE\310\311\310\311&\b\207" [jabber-send-iq nil "set" query ((xmlns . "jabber:iq:roster")) item jid ((subscription . "remove")) jabber-report-success "Roster item removal"] 11 (#$ . 14650) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "Delete from roster: "] 3)])
#@79 Delete JID at point from roster.
Signal an error if there is no JID at point.\1f
(defalias 'jabber-roster-delete-jid-at-point #[0 "\301`\302\"\301`\303\"\ 1\203\"\0\211\203\"\0\b\204\1d\0\304\305\306\ 4\"!\203\"\0\307\ 1\ 3\"\207\310\311!\207" [jabber-silent-mode get-text-property jabber-jid jabber-account yes-or-no-p format "Really delete %s from roster? " jabber-roster-delete error "No contact at point"] 6 (#$ . 15043) nil])
#@86 Delete group `group' from all JIDs.
JC is the Jabber connection.

(fn JC JIDS GROUP)\1f
(defalias 'jabber-roster-delete-group-from-jids #[771 "\ 1\211\205!\0\211@\300\ 5\ 2\211\301N\302\303\304\ 6	\"\ 6\ 6\305N\"$\210\ 1A\266\202\202\ 1\0\207" [jabber-roster-change name cl-remove-if-not make-closure #[257 "\211\300\230?\207" [V0] 3 "\n\n(fn G)"] groups] 13 (#$ . 15462) nil])
#@84 Edit group `group' from all JIDs.
JC is the Jabber connection.

(fn JC JIDS GROUP)\1f
(defalias 'jabber-roster-edit-group-from-jids #[771 "\304\305\ 2\"\306\211\ 3\18\19\1a\e\307\v\n	\b\310%,\ 2\211\205;\0\211@\311\ 6\ 6\ 2\211\312N\313\314\315\316\ 6\v\ 6\v#\ 6\a\317N\"\320\321#$\210\ 1A\266\202\202\14\0\207" [default-value history initial-contents prompt format "New group: (default `%s') " nil read-string t jabber-roster-change name cl-remove-duplicates mapcar make-closure #[257 "\211\300\230\203\b\0\301\207\207" [V0 V1] 3 "\n\n(fn G)"] groups :test string=] 16 (#$ . 15825) nil])
(provide 'jabber-presence)