Actualizado el Readme

[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-chat.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\306\307\310\311\312\313%\210\314\315\316\317\320DD\321\322\323\312\307&\a\210\314\324\316\317\325DD\326\322\327\312\307&\a\210\314\330\316\317\331DD\332\322\333\312\307&\a\210\314\334\316\317\335DD\336\322\323\312\307&\a\210\314\337\316\317\340DD\341\322\323\312\307&\a\210\314\342\316\317\343DD\344\322\333\312\307&\a\210\314\345\316\317\346DD\347\322\323\312\307&\a\210\350\351\352\353\312\307%\210\314\354\316\317\355DD\356\322\323\312\307&\a\210\314\357\316\317\360DD\361\322\323\312\307&\a\210\314\362\316\317\363DD\364\322\323\312\307&\a\210\350\365\366\367\312\307%\210\350\370\371\372\312\307%\210\350\373\374\375\312\307%\210\350\376\377\201@\0\312\307%\210\350\201A\0\201B\0\201C\0\312\307%\210\350\201D\0\201E\0\201F\0\312\307%\207" [require jabber-core jabber-chatbuffer jabber-history jabber-menu ewoc custom-declare-group jabber-chat nil "chat display options" :group jabber custom-declare-variable jabber-chat-buffer-format funcall function #[0 "\300\207" ["*-jabber-chat-%n-*"] 1 #1=""] "The format specification for the name of chat buffers.\n\nThese fields are available (all are about the person you are chatting\nwith):\n\n%n   Nickname, or JID if no nickname set\n%j   Bare JID (without resource)\n%r   Resource" :type string jabber-chat-header-line-format #[0 "\300\207" [(#1# (jabber-chat-buffer-show-avatar (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with))) (jabber-propertize " " 'display (get buddy 'avatar))))) (:eval (jabber-jid-displayname jabber-chatting-with)) "	" (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with))) (propertize (or (cdr (assoc (get buddy 'show) jabber-presence-strings)) (get buddy 'show)) 'face (or (cdr (assoc (get buddy 'show) jabber-presence-faces)) 'jabber-roster-user-online)))) "	" (:eval (jabber-fix-status (get (jabber-jid-symbol jabber-chatting-with) 'status))) "	" jabber-events-message "	" jabber-chatstates-message)] 1 #1#] "The specification for the header line of chat buffers.\n\nThe format is that of `mode-line-format' and `header-line-format'." sexp jabber-chat-buffer-show-avatar #[0 "\300\207" [t] 1 #1#] "Show avatars in header line of chat buffer?\nThis variable might not take effect if you have changed\n`jabber-chat-header-line-format'." boolean jabber-chat-time-format #[0 "\300\207" ["%H:%M"] 1 #1#] "The format specification for instant messages in the chat buffer.\nSee also `jabber-chat-delayed-time-format'.\n\nSee `format-time-string' for valid values." jabber-chat-delayed-time-format #[0 "\300\207" ["%Y-%m-%d %H:%M"] 1 #1#] "The format specification for delayed messages in the chat buffer.\nSee also `jabber-chat-time-format'.\n\nSee `format-time-string' for valid values." jabber-print-rare-time #[0 "\300\207" [t] 1 #1#] "Non-nil means to print \"rare time\" indications in chat buffers.\nThe default settings tell every new hour." jabber-rare-time-format #[0 "\300\207" ["%a %e %b %Y %H:00"] 1 #1#] "The format specification for the rare time information.\nRare time information will be printed whenever the current time,\nformatted according to this string, is different to the last\nrare time printed." custom-declare-face jabber-rare-time-face ((t (:foreground "darkgreen" :underline t))) "face for displaying the rare time info" jabber-chat-local-prompt-format #[0 "\300\207" ["[%t] %n> "] 1 #1#] "The format specification for lines you type in the chat buffer.\n\nThese fields are available:\n\n%t   Time, formatted according to `jabber-chat-time-format'\n     or `jabber-chat-delayed-time-format'\n%u   Username\n%n   Nickname (obsolete, same as username)\n%r   Resource\n%j   Bare JID (without resource)" jabber-chat-foreign-prompt-format #[0 "\300\207" ["[%t] %n> "] 1 #1#] "The format specification for lines others type in the chat buffer.\n\nThese fields are available:\n\n%t   Time, formatted according to `jabber-chat-time-format'\n     or `jabber-chat-delayed-time-format'\n%n   Nickname, or JID if no nickname set\n%u   Username\n%r   Resource\n%j   Bare JID (without resource)" jabber-chat-system-prompt-format #[0 "\300\207" ["[%t] *** "] 1 #1#] "The format specification for lines from the system or special chat.\nThe format specification for lines from the system or that are special in the\nchat buffer." jabber-chat-prompt-local ((t (:foreground "blue" :weight bold))) "face for displaying the chat prompt for what you type in" jabber-chat-prompt-foreign ((t (:foreground "red" :weight bold))) "face for displaying the chat prompt for what they send" jabber-chat-prompt-system ((t (:foreground "green" :weight bold))) "face used for system and special messages" jabber-chat-text-local ((t nil)) "Face used for text you write" jabber-chat-text-foreign ((t nil)) "Face used for text others write" jabber-chat-error ((t (:foreground "red" :weight bold))) "Face used for error messages"] 8)
#@42 JID of the person you are chatting with.\1f
(defvar jabber-chatting-with nil (#$ . 4966))
#@352 List of functions that may be able to print part of a message.
Each function receives these arguments:

XML-DATA   The entire message stanza
WHO        :local or :foreign, for sent or received stanza, respectively
MODE       :insert or :printp.  For :insert, insert text at point.
           For :printp, return non-nil if function would insert text.\1f
(defvar jabber-chat-printers '(jabber-chat-print-subject jabber-chat-print-body jabber-chat-print-url jabber-chat-goto-address) (#$ . 5060))
#@503 List of functions that may be able to print a body for a message.
Each function receives these arguments:

XML-DATA   The entire message stanza
WHO        :local, :foreign or :error
MODE       :insert or :printp.  For :insert, insert text at point.
           For :printp, return non-nil if function would insert text.

These functions are called in order, until one of them returns
non-nil.

Add a function to the beginning of this list if the tag it handles
replaces the contents of the <body/> tag.\1f
(defvar jabber-body-printers '(jabber-chat-normal-body) (#$ . 5559))
#@224 List of functions called when a chat message is sent.
The arguments are the text to send, and the id attribute of the
message.

The functions should return a list of XML nodes they want to be
added to the outgoing message.\1f
(defvar jabber-chat-send-hooks nil (#$ . 6137))
#@97 Float-time of earliest backlog entry inserted into buffer.
nil if no backlog has been inserted.\1f
(defvar jabber-chat-earliest-backlog nil (#$ . 6414))
#@173 Return the chat buffer for chatting with CHAT-WITH (bare or full JID).
Either a string or a buffer is returned, so use `get-buffer' or
`get-buffer-create'.

(fn CHAT-WITH)\1f
(defalias 'jabber-chat-get-buffer #[257 "\301\b\302\303\ 4!B\304\305\ 5!B\306\307\ 6\ 6!\206\15\0\310BE\"\207" [jabber-chat-buffer-format format-spec 110 jabber-jid-displayname 106 jabber-jid-user 114 jabber-jid-resource ""] 8 (#$ . 6571)])
#@124 Prepare a buffer for chatting with CHAT-WITH.
This function is idempotent.
JC is the Jabber connection.

(fn JC CHAT-WITH)\1f
(defalias 'jabber-chat-create-buffer #[514 "r\306\307\ 2!!q\210\b\310=\204C\0\310\ 2\311\"\210\312\301!\210\211\11\313\12\v\14\312\305!\210\r\204C\0\314\ 1!\211\2043\0\315 \15\210\202C\0\315\316\ 2@\317H!!\15\320\321\ 2\237\"\266\ 2\ 1\16\12p)\207" [major-mode jabber-chatting-with jabber-send-function jabber-chat-header-line-format header-line-format jabber-chat-earliest-backlog get-buffer-create jabber-chat-get-buffer jabber-chat-mode jabber-chat-pp make-local-variable jabber-chat-send jabber-history-backlog jabber-float-time jabber-parse-time 0 mapc jabber-chat-insert-backlog-entry jabber-buffer-connection] 7 (#$ . 6979)])
#@60 Insert backlog entry MSG at beginning of buffer.

(fn MSG)\1f
(defalias 'jabber-chat-insert-backlog-entry #[257 "\302\ 1\303H!\304\305\ 3\306HBC\307\310\ 5\311HE\312\313\314\315\ 6\a!BDDF\ 2\316H\317\230\203)\0\320\202*\0\321\ 1\322\323F\b\203b\0\324	\303\"\203b\0\324	\303\"\211\306H\262\ 1@\325=\203b\0\326\ 3\324	\303\"\211\306H\262\ 1A@\"\204b\0\327	\324	\303\"\ 3#\207\330	\ 2\"\210\b\205q\0\330	\325\ 5D\"\207" [jabber-print-rare-time jabber-chat-ewoc jabber-parse-time 0 message from 2 body nil 4 x (xmlns . "jabber:x:delay") stamp jabber-encode-legacy-time 1 "in" :foreign :local :delayed t ewoc-nth :rare-time jabber-rare-time-needed ewoc-enter-after ewoc-enter-first] 10 (#$ . 7706)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-chat-menu "Display more context" jabber-chat-display-more-backlog] 4)
#@118 Display more context.
The HOW-MANY argument is number of messages.
Specify 0 to display all messages.

(fn HOW-MANY)\1f
(defalias 'jabber-chat-display-more-backlog #[257 "\306\18\307\19\211\310U\203\ e\0\306\202\ f\0\211\1a\311\v\206\16\0\f\r\"\211\205/\0\312\313\ 2@\310H!!\15\212eb\210\314\315\ 2\237\")+\207" [inhibit-read-only jabber-backlog-days jabber-backlog-number jabber-chatting-with jabber-group jabber-chat-earliest-backlog t nil 0 jabber-history-backlog jabber-float-time jabber-parse-time mapc jabber-chat-insert-backlog-entry] 6 (#$ . 8502) "nHow many more messages (Specify 0 to display all)? "])
(add-to-list 'jabber-message-chain 'jabber-process-chat)
#@17 

(fn XML-DATA)\1f
(defalias 'jabber-get-forwarded-message #[257 "\300\ 1\301\"@\300\ 1\302\"@\300\ 1\303\"@\211\205\14\0\211\207" [jabber-xml-get-children sent forwarded message] 6 (#$ . 9151)])
#@109 If XML-DATA is a one-to-one chat message, handle it as such.
JC is the Jabber connection.

(fn JC XML-DATA)\1f
(defalias 'jabber-process-chat #[514 "\302\ 1!?\205\322\0\303\ 1\304\"@\203*\0\305\ 1!\211\306\ 1:\205\1d\0\307\ 2\ 2\"\266\202\ 1\310\ 5\ 3\"D\266\202\202-\0\211\311D\211G\312U\203=\0\211\ 1A\262\ 2\242\202D\0\313\314\315\ 3GD\"\ 1\242\ 1\316\ 1:\205Q\0\307\ 2\ 2\"\266\202\303\ 3\317\"\303\ 4\320\"@\211AA\211\321\232?\205g\0\211\266\202@\ 1\204x\0\322\323\ 6\ 6\324\325$\205\320\0r\326\ 3!\203\215\0\327\ 6\b\330\ 5!\331\ 6\ 6!#\202\226\0\ 3\206\226\0\310\ 6\b\ 4\"q\210\332\b\ 3\203\242\0\333\202\243\0\324\ 6\a\334\335 F\"\336\ 1!\266\ 2\337\211\205\315\0\211@\340\ 1\ 6\ 6p\ 6\ 6	\ 6\np\ 6\n#%\210\ 1A\266\202\202\260\0\262\ 1)\266\206\207" [jabber-chat-ewoc jabber-alert-message-function jabber-muc-message-p jabber-xml-get-children sent jabber-get-forwarded-message to xml-get-attribute-or-nil jabber-chat-create-buffer nil 2 signal wrong-number-of-arguments (xml-data chat-buffer) from error body (("")) run-hook-with-args-until-success jabber-chat-printers :foreign :printp jabber-muc-sender-p jabber-muc-private-create-buffer jabber-jid-user jabber-jid-resource ewoc-enter-last :error :time current-time jabber-maybe-print-rare-time (jabber-message-hooks jabber-alert-message-hooks) run-hook-with-args] 19 (#$ . 9342)])
#@108 Send BODY through connection JC, and display it in chat buffer.
JC is the Jabber connection.

(fn JC BODY)\1f
(defalias 'jabber-chat-send #[514 "\303\304\305\306 #\307\310\bB\311\312\ 4BE\313\314\ 5EE	\211\203T\0\211@\211\315=\203D\0\316\301!\203M\0\317\301!\211\203@\0\211@\ 4\ 1\ 6\b\ 6\b\"\244\210\ 1A\266\202\202*\0\210\202M\0\ 2\ 1\ 6\ 6\ 6\ 6\"\244\210\ 1A\266\202\202\15\0\210\320\321\ 2\322\323$\203j\0\324\325\n\322\ 4\326\306 F\"!\210\327\ 4\ 2\"\207" [jabber-chatting-with jabber-chat-send-hooks jabber-chat-ewoc apply format "emacs-msg-%d.%d.%d" current-time message to (type . "chat") id body nil t local-variable-p default-value run-hook-with-args-until-success jabber-chat-printers :local :printp jabber-maybe-print-rare-time ewoc-enter-last :time jabber-send-sexp] 12 (#$ . 10579)])
#@190 Pretty-print a <message/> stanza.
(car data) is either :local, :foreign, :error or :notice.
(cadr data) is the <message/> stanza.
This function is used as an ewoc prettyprinter.

(fn DATA)\1f
(defalias 'jabber-chat-pp #[257 "`\ 1A@<\205\r\0\302\ 2A@!\303\ 3AA\304\"\30510\0\306\ 4A@\307\"@\211AA\211\310\232?\205)\0\211\266\202@0\2022\0\210\311\211G\312V\205?\0\211\313\312O\314\230\ 3\206J\0\303\ 6\ 6AA\315\"`\ 6\a@\211\316\267\210\202\321\0\317\ 6\a\206]\0\ 6\ 6\ 4\ 6\ 6#\266\ 2\202\321\0\ 6\bA@<\203\202\0\320\ 6	A@!\203\202\0\321\ 6	A@!\266\ 2\202\321\0\322\ 6	A@<\205\217\0\ 6	A@\ 6\b\206\226\0\ 6\a\ 5\ 6\a$\266\ 2\202\321\0\323\ 6\a\206\247\0\ 6\ 6!\266\ 2\202\321\0\324\ 6	A@\325\ 6\ 6#\266\ 2\202\321\0\324\ 6	A@\311\ 6\ 6#\266\ 2\202\321\0\326 \266\ 2\202\321\0\210\327\ 1`\330\331$\266\ 3\ 5@\211\332\267\210\202\203\ 1\333\334\ 6\bA@\ 6	@\335$\266\ 2\202\203\ 1\336\211\203\f\ 1\211@\333\ 1\ 6\nA@\ 6\v@\335$\210\ 1A\266\202\202\363\0\266\ 2\202\203\ 1\ 6\ 6A@;\203'\ 1\337\ 6\aA@\340\341#c\266\ 2\202\203\ 1\342\ 6\aA@!\266\ 2\202\203\ 1\ 6\ 6A@c\266\ 2\202\203\ 1\337\343\b\ 6	A@\"\340\344#c\266\ 2\202\203\ 1\345c\210\ 6\ 6A@;\203k\ 1\ 6\ 6A@G\313U\204k\ 1\346\ 6\aA@\347\261\ 3\210\350c\210\351\211\352\353\"\210\211\354\355\"\210\211\356\357\"\266\ 3\202\203\ 1\210	\203\220\ 1\214\ 4`}\210\360 \210)\327\ 5`\361\325$\210\327\ 5`\362\325$\210\327\ 5`\363\325$\207" [jabber-rare-time-format jabber-chat-fill-long-lines jabber-message-timestamp plist-get :time (error) jabber-xml-get-children body (("")) nil 4 0 "/me " :delayed #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:local 85 :foreign 102 :error 159 :notice 159 :subscription-request 159 :muc-local 173 :muc-foreign 187 :muc-notice 201 :muc-error 201)) jabber-chat-self-prompt jabber-muc-private-message-p jabber-muc-private-print-prompt jabber-chat-print-prompt jabber-chat-system-prompt jabber-muc-print-prompt t jabber-muc-system-prompt put-text-property field jabber-prompt #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:local 226 :foreign 226 :muc-local 242 :muc-foreign 242 :error 273 :muc-error 273 :notice 306 :muc-notice 306 :rare-time 316 :subscription-request 333)) run-hook-with-args jabber-chat-printers :insert (jabber-muc-printers jabber-chat-printers) jabber-propertize face jabber-chat-error jabber-chat-print-error format-time-string jabber-rare-time-face "This user requests subscription to your presence.\n" "Message: " "\n" "Accept?\n\n" #[514 "\300\301!\203\ f\0\301\ 2\302\ 3#\210\202!\0\303 \304\ 1\305\ 4#\210\306\ 3\307\ 3\310\311%c\266\ 2\312c\207" [fboundp insert-button action make-keymap define-key "\r" jabber-propertize keymap face highlight "	"] 9 "\n\n(fn TEXT ACTION)"] "Mutual" jabber-subscription-accept-mutual "One-way" jabber-subscription-accept-one-way "Decline" jabber-subscription-decline jabber-chat-buffer-fill-long-lines read-only front-sticky rear-nonsticky] 14 (#$ . 11333)])
#@92 Return non-nil if a timestamp should be printed between TIME1 and TIME2.

(fn TIME1 TIME2)\1f
(defalias 'jabber-rare-time-needed #[514 "\301\b\ 3\"\301\b\ 3\"\230?\207" [jabber-rare-time-format format-time-string] 6 (#$ . 14092)])
#@57 Print rare time before NODE, if appropriate.

(fn NODE)\1f
(defalias 'jabber-maybe-print-rare-time #[257 "\302\b\ 2\"\ 1\303H\ 1\205\ e\0\ 1\303H\304	\205-\0\ 3\203\"\0\305\ 1\ 3!\ 2\ 5!\"\205-\0\306\b\ 6\ 6\307\ 4\ 6\a!D#\207" [jabber-chat-ewoc jabber-print-rare-time ewoc-prev 2 #[257 "\211A@<\203\ f\0\300\ 1A@!\206\15\0\301\ 1AA\302\"\207" [jabber-message-timestamp plist-get :time] 4 "\n\n(fn ENTRY)"] jabber-rare-time-needed ewoc-enter-before :rare-time] 11 (#$ . 14320)])
#@362 Print prompt for received message in XML-DATA.
TIMESTAMP is the timestamp to print, or nil to get it
from a jabber:x:delay element.
If DELAYED is non-nil, print long timestamp
(`jabber-chat-delayed-time-format' as opposed to
`jabber-chat-time-format').
If DONT-PRINT-NICK-P is non-nil, don't include nickname.

(fn XML-DATA TIMESTAMP DELAYED DONT-PRINT-NICK-P)\1f
(defalias 'jabber-chat-print-prompt #[1028 "\ 3\303\ 1:\205\v\0\304\ 2\ 2\"\266\202\ 3\206\14\0\305\ 5!\306\307\b\310\311\ 6\b\203\"\0	\202#\0\n\ 6\ 6\"B\312\ 6\a\2031\0\313\2025\0\314\ 6\a!B\315\316\ 6\b!\206@\0\ 6\aB\317\320\ 6	!B\321\322\ 6\n!B\257\ 5\"\323\324\325\311\326\ 6\a\"\327\ 6\bQ%c\207" [jabber-chat-foreign-prompt-format jabber-chat-delayed-time-format jabber-chat-time-format from xml-get-attribute-or-nil jabber-message-timestamp jabber-propertize format-spec 116 format-time-string 110 "" jabber-jid-displayname 117 jabber-jid-username 114 jabber-jid-resource 106 jabber-jid-user face jabber-chat-prompt-foreign help-echo "On %Y-%m-%d %H:%M:%S" " from "] 16 (#$ . 14758)])
#@18 

(fn TIMESTAMP)\1f
(defalias 'jabber-chat-system-prompt #[257 "\302\303\b\304\305	\ 6\ 6\"B\306\307B\310\307B\311\307B\312\307B\257\ 5\"\313\314\315\305\316\ 6\a\"\260\ 1%c\207" [jabber-chat-foreign-prompt-format jabber-chat-time-format jabber-propertize format-spec 116 format-time-string 110 "" 117 114 106 face jabber-chat-prompt-system help-echo "System message on %Y-%m-%d %H:%M:%S"] 10 (#$ . 15762)])
#@305 Print prompt for sent message.
TIMESTAMP is the timestamp to print, or nil for now.
If DELAYED is non-nil, print long timestamp
(`jabber-chat-delayed-time-format' as opposed to
`jabber-chat-time-format').
If DONT-PRINT-NICK-P is non-nil, don't include nickname.

(fn TIMESTAMP DELAYED DONT-PRINT-NICK-P)\1f
(defalias 'jabber-chat-self-prompt #[771 "\304\b!\305\ 1\306\"\305\ 2\307\"\305\ 3\310\"\311\312	\313\314\ 6\n\203\1d\0\n\202\1e\0\v\ 6\f\"B\315\ 6	\203,\0\316\202.\0\ 6\aB\317\ 6\bB\320\ 6\aB\321\ 6\n\322\ 6\vQB\257\ 5\"\323\324\325\314\326\ 6\r\"\327P%c\207" [jabber-buffer-connection jabber-chat-local-prompt-format jabber-chat-delayed-time-format jabber-chat-time-format fsm-get-state-data plist-get :username :server :resource jabber-propertize format-spec 116 format-time-string 110 "" 117 114 106 "@" face jabber-chat-prompt-local help-echo "On %Y-%m-%d %H:%M:%S" " from you"] 18 (#$ . 16162)])
#@161 Print error in given <message/> in a readable way.

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

(fn XML-DATA)\1f
(defalias 'jabber-chat-print-error #[257 "\300\ 1\301\"@\302\303\304\ 3!P\305\306#c\207" [jabber-xml-get-children error jabber-propertize "Error: " jabber-parse-error face jabber-chat-error] 6 (#$ . 17034)])
#@162 Print subject of given <message/>, if any.

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

(fn XML-DATA WHO MODE)\1f
(defalias 'jabber-chat-print-subject #[771 "\300\ 3\301\"@\211AA\211\302\232?\205\10\0\211\266\202@\211G\303U?\2052\0\ 1\304\267\2021\0\305\207\306\307\310\311#\306\ 2\310\312#\313\261\ 3\207\314\207" [jabber-xml-get-children subject (("")) 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:printp 33 :insert 35)) t jabber-propertize "Subject: " face jabber-chat-prompt-system jabber-chat-text-foreign "\n" nil] 9 (#$ . 17405)])
#@26 

(fn XML-DATA WHO MODE)\1f
(defalias 'jabber-chat-print-body #[771 "\300\301\ 4\ 4\ 4$\207" [run-hook-with-args-until-success jabber-body-printers] 8 (#$ . 18027)])
#@70 Print body for received message in XML-DATA.

(fn XML-DATA WHO MODE)\1f
(defalias 'jabber-chat-normal-body #[771 "\301\ 3\302\"@\211AA\211\303\232?\205\10\0\211\266\202@\211\205\221\0\ 1\304=\203\220\0\211G\305V\203{\0\211\306\305O\307\230\203{\0\211\305\310O\ 3\311=\203@\0\312\313\b!\314\"\202m\0\315\ 5!\204L\0\316\ 5!\203^\0\317\ 5\320\ 1:\205X\0\321\ 2\ 2\"\266\202!\202m\0\322\ 5\320\ 1:\205j\0\321\ 2\ 2\"\266\202!\323\ 1\324\ 4Q\325\326#c\266\ 3\202\220\0\323\ 1\325\ 5\327\267\202\214\0\330\202\215\0\331\202\215\0\310#c\210\332\207" [jabber-buffer-connection jabber-xml-get-children body (("")) :insert 4 0 "/me " nil :local plist-get fsm-get-state-data :username jabber-muc-message-p jabber-muc-private-message-p jabber-jid-resource from xml-get-attribute-or-nil jabber-jid-displayname jabber-propertize " " face jabber-chat-prompt-system #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:foreign 132 :muc-foreign 132 :local 136 :muc-local 136)) jabber-chat-text-foreign jabber-chat-text-local t] 11 (#$ . 18190)])
#@166 Print URLs provided in jabber:x:oob namespace.

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

(fn XML-DATA WHO MODE)\1f
(defalias 'jabber-chat-print-url #[771 "\300\ 3\211AA\211\301\232?\205\r\0\211\266\202\211\203\201\0\211@\211<\203z\0\211\211<\205\"\0\211@\262\ 1\302=\203z\0\211\303\ 1:\2054\0\304\ 2\ 2\"\266\202\305\230\203z\0\306\262\ 3\ 3\307=\203z\0\310\ 1\311\"@\211AA\211\301\232?\205T\0\211\266\202@\310\ 2\312\"@\211AA\211\301\232?\205g\0\211\266\202@\313\314\315\316\317#\320\321\ 4\ 6\ 6#\261\ 3\266\ 3\ 1A\266\202\202\ f\0\210\207" [nil (("")) x xmlns xml-get-attribute-or-nil "jabber:x:oob" t :insert jabber-xml-get-children url desc "\n" jabber-propertize "URL: " face jabber-chat-prompt-system format "%s <%s>"] 14 (#$ . 19202)])
#@166 Call `goto-address' on the newly written text.

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

(fn XML-DATA WHO MODE)\1f
(defalias 'jabber-chat-goto-address #[771 "\211\300=\205\1f\0\3011\1d\0``\302ZeT]\303\304\305\211\ 4#\ 3\"\266\2020\207\210\305\207" [:insert (error) 1000 goto-address-fontify field-beginning nil] 10 (#$ . 19959)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-chat-menu "Compose message" jabber-compose] 4)
#@94 Send a message tag to the server.
JC is the Jabber connection.

(fn JC TO SUBJECT BODY TYPE)\1f
(defalias 'jabber-send-message #[1285 "\301\ 5\302\303\ 6\aB\ 4G\304V\205\11\0\305\ 5BD\ 6\ 6G\304V\205\1f\0\306\307\ 6\bE\ 6\ 6G\304V\205,\0\310\307\ 6\bEF\"\210\b\205C\0\211\311\230?\205C\0\312\313\307\ 6\ 6\ 5\314 %\207" [jabber-history-enabled jabber-send-sexp message to 0 type subject nil body "groupchat" jabber-history-log-message "out" current-time] 13 (#$ . 20443) (byte-code "\304 \305\306!\307\310\211\211\18\19\1a\e\311\v\n	\b\312%,\313\310\211\211\18\19\1a\e\311\v\n	\b\312%,\311\314!\257\ 5\207" [default-value history initial-contents prompt jabber-read-account jabber-read-jid-completing "to: " "subject: " nil read-string t "body: " "type: "] 9)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-chat-menu "Start chat" jabber-chat-with] 4)
#@193 Open an empty chat window for chatting with JID.
With a prefix argument, open buffer in other window.
Returns the chat buffer.
JC is the Jabber connection.

(fn JC JID &optional OTHER-WINDOW)\1f
(defalias 'jabber-chat-with #[770 "\300\ 3\ 3\"\ 1\203\f\0\301\ 1!\207\302\ 1!\207" [jabber-chat-create-buffer switch-to-buffer-other-window switch-to-buffer] 6 (#$ . 21255) (byte-code "\301\302!\303\304\ 2\"\211\ 2\bE\207" [current-prefix-arg jabber-read-jid-completing "chat with:" jabber-read-account nil] 5)])
#@158 Start chat with JID at point.
Signal an error if there is no JID at point.
With a prefix argument, open buffer in other window.

(fn &optional OTHER-WINDOW)\1f
(defalias 'jabber-chat-with-jid-at-point #[256 "\300`\301\"\300`\302\"\ 1\203\16\0\211\203\16\0\303\ 1\ 3\ 5#\207\304\305!\207" [get-text-property jabber-jid jabber-account jabber-chat-with error "No contact at point"] 7 (#$ . 21752) "P"])
(provide 'jabber-chat)