[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-muc.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-chat jabber-widget jabber-disco jabber-muc-nick-coloring jabber-bookmarks cl-lib] 2)
#@100 Alist of groupchats and nicknames.
Keys are strings, the bare JID of the room.
Values are strings.\1f
(defvar *jabber-active-groupchats* nil (#$ . 278))
#@190 Hash table of groupchats and nicknames.
Keys are JID symbols; values are strings.
This table records the last nickname used to join the particular
chat room.  Items are thus never removed.\1f
(defvar jabber-pending-groupchats (make-hash-table) (#$ . 435))
#@121 Alist of groupchats and participants.
Keys are strings, the bare JID of the room.
Values are lists of nickname strings.\1f
(defvar jabber-muc-participants nil (#$ . 695))
#@41 The groupchat you are participating in.\1f
(defvar jabber-group nil (#$ . 869))
#@36 The topic of the current MUC room.\1f
(defvar jabber-muc-topic "" (#$ . 952))
#@39 Keeps track of previously used roles.\1f
(defvar jabber-role-history nil (#$ . 1033))
#@46 Keeps track of previously used affiliations.\1f
(defvar jabber-affiliation-history nil (#$ . 1122))
#@50 Keeps track of previously referred-to nicknames.\1f
(defvar jabber-muc-nickname-history nil (#$ . 1225))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\300\312\302\303\313DD\314\306\307\310\315&\a\210\300\316\302\303\317DD\320\306\307\310\321&\a\210\300\322\302\303\323DD\324\310\325\306\307&\a\210\300\326\302\303\327DD\330\310\325\306\307&\a\210\300\331\302\303\332DD\333\310\334\306\307&\a\210\300\335\302\303\336DD\337\310\325\306\307&\a\210\300\340\302\303\341DD\342\310\325\306\307&\a\210\300\343\302\303\344DD\345\310\325\306\307&\a\210\300\346\302\303\347DD\350\310\334\306\307&\a\207" [custom-declare-variable jabber-muc-default-nicknames funcall function #[0 "\300\207" [nil] 1 #1=""] "Default nickname for specific MUC rooms." :group jabber-chat :type (repeat (cons :format "%v" (string :tag "JID of room") (string :tag "Nickname"))) jabber-muc-autojoin #[0 "\300\207" [nil] 1 #1#] "List of MUC rooms to automatically join on connection.\nThis list is saved in your Emacs customizations.  You can also store\nsuch a list on the Jabber server, where it is available to every\nclient; see `jabber-edit-bookmarks'." (repeat (string :tag "JID of room")) jabber-muc-disable-disco-check #[0 "\300\207" [nil] 1 #1#] "If non-nil, disable checking disco#info of rooms before joining them.\nDisco information can tell whether the room exists and whether it is\npassword protected, but some servers do not support it.  If you want\nto join chat rooms on such servers, set this variable to t." boolean jabber-groupchat-buffer-format #[0 "\300\207" ["*-jabber-groupchat-%n-*"] 1 #1#] "The format specification for the name of groupchat buffers.\n\nThese fields are available (all are about the group you are chatting\nin):\n\n%n   Roster name of group, or JID if no nickname set\n%b   Name of group from bookmarks or roster name or JID if none set\n%j   Bare JID (without resource)" string jabber-groupchat-prompt-format #[0 "\300\207" ["[%t] %n> "] 1 #1#] "The format specification for lines in groupchat.\n\nThese fields are available:\n\n%t   Time, formatted according to `jabber-chat-time-format'\n%n, %u, %r\n     Nickname in groupchat\n%j   Full JID (room@server/nick)" jabber-muc-header-line-format #[0 "\300\207" [(" " (:eval (jabber-jid-displayname jabber-group)) "	" jabber-muc-topic)] 1 #1#] "The specification for the header line of MUC buffers.\n\nThe format is that of `mode-line-format' and `header-line-format'." sexp jabber-muc-private-buffer-format #[0 "\300\207" ["*-jabber-muc-priv-%g-%n-*"] 1 #1#] "The format specification for the buffer name for private MUC messages.\n\nThese fields are available:\n\n%g   Roster name of group, or JID if no nickname set\n%n   Nickname of the group member you're chatting with" jabber-muc-private-foreign-prompt-format #[0 "\300\207" ["[%t] %g/%n> "] 1 #1#] "The format specification for lines others type in a private MUC buffer.\n\nThese fields are available:\n\n%t  Time, formatted according to `jabber-chat-time-format'\n%n  Nickname in room\n%g  Short room name (either roster name or username part of JID)" jabber-muc-print-names-format #[0 "\300\207" ["	%n	%a	%j\n"] 1 #1#] "The format specification for MUC list lines.\n\nFields available:\n\n%n  Nickname in room\n%a  Affiliation status\n%j  Full JID (room@server/nick)" jabber-muc-private-header-line-format #[0 "\300\207" [(" " (:eval (jabber-jid-resource jabber-chatting-with)) " in " (:eval (jabber-jid-displayname (jabber-jid-user jabber-chatting-with))) "	" jabber-events-message "	" jabber-chatstates-message)] 1 #1#] "The specification for the header line of private MUC chat buffers.\n\nThe format is that of `mode-line-format' and `header-line-format'."] 8)
#@126 List of functions that may be able to print part of a MUC message.
This gets prepended to `jabber-chat-printers', which see.\1f
(defvar jabber-muc-printers nil (#$ . 4916))
#@141 Return the chat buffer for chatroom GROUP.
Either a string or a buffer is returned, so use `get-buffer' or
`get-buffer-create'.

(fn GROUP)\1f
(defalias 'jabber-muc-get-buffer #[257 "\301\b\302\303\ 4!B\304\305\ 5!B\306\307\ 6\ 6!BE\"\207" [jabber-groupchat-buffer-format format-spec 110 jabber-jid-displayname 98 jabber-jid-bookmarkname 106 jabber-jid-user] 8 (#$ . 5093)])
#@112 Prepare a buffer for chatroom GROUP.
This function is idempotent.

JC is the Jabber connection.

(fn JC GROUP)\1f
(defalias 'jabber-muc-create-buffer #[514 "r\306\307\ 2!!q\210\b\310=\204\13\0\310\ 2\311\"\210\ 1\11\312\302!\210\211\12\312\313!\210\314\13\f\15p)\207" [major-mode jabber-buffer-connection jabber-group jabber-send-function jabber-muc-header-line-format header-line-format get-buffer-create jabber-muc-get-buffer jabber-chat-mode jabber-chat-pp make-local-variable jabber-muc-topic jabber-muc-send] 5 (#$ . 5463)])
#@171 Return the chat buffer for private chat with NICKNAME in GROUP.
Either a string or a buffer is returned, so use `get-buffer' or
`get-buffer-create'.

(fn GROUP NICKNAME)\1f
(defalias 'jabber-muc-private-get-buffer #[514 "\301\b\302\303\ 5!B\304\ 4BD\"\207" [jabber-muc-private-buffer-format format-spec 103 jabber-jid-displayname 110] 7 (#$ . 5979)])
#@138 Prepare a buffer for chatting with NICKNAME in GROUP.
This function is idempotent.

JC is the Jabber connection.

(fn JC GROUP NICKNAME)\1f
(defalias 'jabber-muc-private-create-buffer #[771 "r\305\306\ 3\ 3\"!q\210\b\307=\204\14\0\307\ 3\310\"\210\311\301!\210\ 1\312\ 2Q\11\313\12\v\14p)\207" [major-mode jabber-chatting-with jabber-send-function jabber-muc-private-header-line-format header-line-format get-buffer-create jabber-muc-private-get-buffer jabber-chat-mode jabber-chat-pp make-local-variable "/" jabber-chat-send] 7 (#$ . 6329)])
#@86 Send BODY to MUC room in current buffer.

JC is the Jabber connection.

(fn JC BODY)\1f
(defalias 'jabber-muc-send #[514 "\301\ 2\302\303\bB\304B\305\306\ 6\ 6EE\"\207" [jabber-group jabber-send-sexp message to ((type . "groupchat")) body nil] 9 (#$ . 6854)])
#@70 Remember participating in GROUP under NICKNAME.

(fn GROUP NICKNAME)\1f
(defalias 'jabber-muc-add-groupchat #[514 "\301\ 2\b\"\211\203\f\0\211\ 2\241\207\302\300\ 4\ 4B\"\207" [*jabber-active-groupchats* assoc add-to-list] 7 (#$ . 7110)])
#@53 Remove GROUP from internal bookkeeping.

(fn GROUP)\1f
(defalias 'jabber-muc-remove-groupchat #[257 "\302\ 1\b\"\302\ 2	\"\303\ 2\b\"\10\303\ 1	\"\211\11\207" [*jabber-active-groupchats* jabber-muc-participants assoc delq] 6 (#$ . 7342)])
#@167 Remove MUC data for BARE-JID.
Forget all information about rooms that had been entered with
this JID.  Suitable to call when the connection is closed.

(fn BARE-JID)\1f
(defalias 'jabber-muc-connection-closed #[257 "\b\211\2059\0\211@\211@\303\304\ 2!!\305\ 1!\2030\0r\211q\210\ 4\306	!\230\203/\0\307\ 2\n\310\311\312\313&\ 6\12\314\ 3\b\"\10)\266\ 2\ 1A\266\202\202\ 1\0\207" [jabber-muc-participants jabber-buffer-connection *jabber-active-groupchats* get-buffer jabber-muc-get-buffer bufferp jabber-connection-bare-jid cl-delete :key car :test string= delq] 12 (#$ . 7571)])
#@122 Return plist associated with NICKNAME in GROUP.
Return nil if nothing known about that combination.

(fn GROUP NICKNAME)\1f
(defalias 'jabber-muc-participant-plist #[514 "\301\ 2\b\"\211\205\r\0\301\ 2\ 2\"A\207" [jabber-muc-participants assoc] 6 (#$ . 8126)])
#@85 Assign properties in NEW-PLIST to NICKNAME in GROUP.

(fn GROUP NICKNAME NEW-PLIST)\1f
(defalias 'jabber-muc-modify-participant #[771 "\301\ 3\b\"\211\203\1e\0\301\ 3\ 2\"\211\203\14\0\211\ 3\241\207\ 3\ 3B\ 2\ 1\ 4AB\241\207\ 3\ 3\ 3BCB\bB\211\10\207" [jabber-muc-participants assoc] 9 (#$ . 8381)])
#@395 Compare OLD-PLIST and NEW-PLIST, and return a string explaining the change.
Return nil if nothing noteworthy has happened.
NICKNAME is the user experiencing the change.  REASON and ACTOR, if non-nil,
are the corresponding presence fields.

This function is only concerned with presence stanzas resulting
in the user entering/staying in the room.

(fn NICKNAME OLD-PLIST NEW-PLIST REASON ACTOR)\1f
(defalias 'jabber-muc-report-delta #[1285 "\300\ 3\301\"\203\14\0\ 4\302\303\300\ 6\ 6\301\"!\304R\262\ 5\ 3\2044\0\ 4\305\300\ 5\306\"\300\ 6\ 6\307\"\310\230?\2050\0\311\300\ 6\a\307\"P\312\260\ 5\207\300\ 4\307\"\300\ 4\307\"\230\204\255\0\211\205G\0\313\ 1P\ 2\205N\0\314\ 3PP\300\ 5\307\"\300\ 5\307\"\ 1\315\235\203c\0\211\316\235\204o\0\ 1\317\230\203v\0\211\320\230\203v\0\ 6\a\321\ 2\ 5R\207\ 1\322\235\203\202\0\211\323\230\204\216\0\ 1\320\230\203\225\0\211\317\230\203\225\0\ 6\a\324\ 2\ 5R\207\211\323\230\203\241\0\ 6\a\325\ 4Q\207\211\310\230\205\254\0\ 6\a\326\ 4Q\207\300\ 4\306\"\300\ 4\306\"\230?\205\b\ 1\211\205\301\0\313\ 1P\ 2\205\310\0\314\ 3PP\300\ 5\306\"\300\ 5\306\"\211\327\230\203\335\0\ 6\a\330\ 4Q\207\ 1\327\230\203\357\0\211\331\230\203\357\0\ 6\a\332\ 4Q\207\211\331\230\203\373\0\ 6\a\333\ 4Q\207\211\334\230\205\ 6\ 1\ 6\a\335\ 4Q\266\203\207" [plist-get jid " <" jabber-jid-user ">" " enters the room (" role affiliation "none" ", " ")" " by " ": " ("outcast" "none" "member") ("admin" "owner") "admin" "owner" " has been promoted to " ("owner" "admin") "member" " has been demoted to " " has been granted membership" " has been deprived of membership" "moderator" " has been granted moderator privileges" "participant" " had moderator privileges revoked" " has been granted voice" "visitor" " has been denied voice"] 12 (#$ . 8652)])
#@65 Forget everything about NICKNAME in GROUP.

(fn GROUP NICKNAME)\1f
(defalias 'jabber-muc-remove-participant #[514 "\301\ 2\b\"\211\205\16\0\301\ 2\ 2A\"\ 1\302\ 2\ 4A\"\241\262\ 1\207" [jabber-muc-participants assoc delq] 8 (#$ . 10287)])
#@187 Prepend connection and group name to ARGS.
If the current buffer is not an MUC buffer, signal an error.
This macro is meant for use as an argument to `interactive'.

(fn &optional ARGS)\1f
(defalias 'jabber-muc-argument-list '(macro . #[256 "\300\301\302\303\304\ 5EF\207" [if (null jabber-group) (error "Not in MUC buffer") nconc (list jabber-buffer-connection jabber-group)] 7 (#$ . 10512)]))
#@225 Read the name of a joined chatroom, or use chatroom of current buffer if any.
If ALLOW-NOT-JOINED is provided and non-nil, permit choosing any
JID; only provide completion as a guide.

(fn PROMPT &optional ALLOW-NOT-JOINED)\1f
(defalias 'jabber-muc-read-completing #[513 "\b\206\18\0\302\ 2	\204\10\0\303\304!\202\14\0\305\306	\"\ 3?\b$\207" [jabber-group *jabber-active-groupchats* jabber-read-jid-completing error "You haven't joined any group" mapcar #[257 "\300\ 1@!\207" [jabber-jid-symbol] 3 "\n\n(fn X)"]] 7 (#$ . 10909)])
#@65 Read the nickname of a participant in GROUP.

(fn GROUP PROMPT)\1f
(defalias 'jabber-muc-read-nickname #[514 "\301\ 2\b\"A\211\204\ e\0\302\303\ 4\"\210\304\ 2\ 2\305\306\305\307&\ 6\207" [jabber-muc-participants assoc error "Unknown group: %s" completing-read nil t jabber-muc-nickname-history] 10 (#$ . 11425)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Request vcard" jabber-muc-vcard-get] 4)
#@103 Request vcard from chat with NICKNAME in GROUP.

JC is the Jabber connection.

(fn JC GROUP NICKNAME)\1f
(defalias 'jabber-muc-vcard-get #[771 "\300\301\ 3\ 3#\302\ 4\ 2\"\207" [format "%s/%s" jabber-vcard-get] 7 (#$ . 11840) (byte-code "\b\204\b\0\302\303!\207	\bD\304\b\305\"C\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" jabber-muc-read-nickname "Nickname: "] 4)])
#@288 Accept default configuration for GROUP.
This can be used for a newly created room, as an alternative to
filling out the configuration form with `jabber-muc-get-config'.
Both of these methods unlock the room, so that other users can
enter it.

JC is the Jabber connection.

(fn JC GROUP)\1f
(defalias 'jabber-muc-instant-config #[514 "\300\ 2\ 2\301\302\303\304\303\304&\b\207" [jabber-send-iq "set" (query ((xmlns . "http://jabber.org/protocol/muc#owner")) (x ((xmlns . "jabber:x:data") (type . "submit")))) jabber-report-success "MUC instant configuration"] 11 (#$ . 12228) (byte-code "\b\204\b\0\302\303!\207	\bD\304\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" nil] 2)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Configure groupchat" jabber-muc-get-config] 4)
#@78 Ask for MUC configuration form.

JC is the Jabber connection.

(fn JC GROUP)\1f
(defalias 'jabber-muc-get-config #[514 "\300\ 2\ 2\301\302\303\304\303\305&\b\207" [jabber-send-iq "get" (query ((xmlns . "http://jabber.org/protocol/muc#owner"))) jabber-process-data jabber-muc-render-config "MUC configuration request failed"] 11 (#$ . 13043) (byte-code "\b\204\b\0\302\303!\207	\bD\304\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" nil] 2)])
(defalias 'jabber-groupchat-get-config 'jabber-muc-get-config "Deprecated.  See `jabber-muc-get-config' instead.")
#@173 Render MUC configuration 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-muc-render-config #[514 "\301\ 1!\302\303\ 2\304\"\211\203*\0\211@\211\305\ 1:\205\19\0\306\ 2\ 2\"\266\202\307\230\203#\0\211\262\ 3\ 1A\266\202\202\b\0\210\211\2042\0\310c\207\311\ 3\312\ 1:\205>\0\306\ 2\ 2\"\266\202!\210\ 3\10\313\ 1!\210\314\315\316\317\320$\210\321\322!\210\314\315\316\323\324$\210\321\325!\210\326 \210\327\330!\207" [jabber-buffer-connection jabber-iq-query nil jabber-xml-get-children x xmlns xml-get-attribute-or-nil "jabber:x:data" "No configuration possible.\n" jabber-init-widget-buffer from jabber-render-xdata-form widget-create push-button :notify jabber-muc-submit-config "Submit" widget-insert "	" jabber-muc-cancel-config "Cancel" "\n" widget-setup widget-minor-mode 1] 11 (#$ . 13622)])
(defalias 'jabber-groupchat-render-config 'jabber-muc-render-config "Deprecated.  See `jabber-muc-render-config' instead.")
#@51 Submit MUC configuration form.

(fn &rest IGNORE)\1f
(defalias 'jabber-muc-submit-config #[128 "\302\b	\303\304\305\306 E\307\310\307\310&\b\207" [jabber-buffer-connection jabber-submit-to jabber-send-iq "set" query ((xmlns . "http://jabber.org/protocol/muc#owner")) jabber-parse-xdata-form jabber-report-success "MUC configuration"] 10 (#$ . 14630)])
(defalias 'jabber-groupchat-submit-config 'jabber-muc-submit-config "Deprecated.  See `jabber-muc-submit-config' instead.")
#@51 Cancel MUC configuration form.

(fn &rest IGNORE)\1f
(defalias 'jabber-muc-cancel-config #[128 "\302\b	\303\304\305\211\211\211&\b\207" [jabber-buffer-connection jabber-submit-to jabber-send-iq "set" (query ((xmlns . "http://jabber.org/protocol/muc#owner")) (x ((xmlns . "jabber:x:data") (type . "cancel")))) nil] 10 (#$ . 15107)])
(byte-code "\300\301\302\303#\210\304\305\306\307B\"\207" [defalias jabber-groupchat-cancel-config jabber-muc-cancel-config "Deprecated.  See `jabber-muc-cancel-config' instead." add-to-list jabber-jid-muc-menu "Join groupchat" jabber-muc-join] 4)
#@183 Join a groupchat, or change nick.
In interactive calls, or if POPUP is non-nil, switch to the
groupchat buffer.

JC is the Jabber connection.

(fn JC GROUP NICKNAME &optional POPUP)\1f
(defalias 'jabber-muc-join #[1027 "\302\ 3\b\"\204\v\0	\203\13\0\303\ 4\ 4\ 4\304\ 5%\207\305\ 4\ 4\304\306\ 6\a\ 6\a\ 6\aE%\207" [*jabber-active-groupchats* jabber-muc-disable-disco-check assoc jabber-muc-join-3 nil jabber-disco-get-info jabber-muc-join-2] 12 (#$ . 15689) (byte-code "\300 \301\302!\ 1\ 1\303\ 4\ 4\"\304F\207" [jabber-read-account jabber-read-jid-completing "group: " jabber-muc-read-my-nickname t] 7)])
(defalias 'jabber-groupchat-join 'jabber-muc-join "Deprecated.  Use `jabber-muc-join' instead.")
#@26 

(fn JC CLOSURE RESULT)\1f
(defalias 'jabber-muc-join-2 #[771 "\ 1\211G\301U\203\11\0\ 2\211A\262\ 2\242\202\18\0\302\303\304\ 3GD\"\ 1\211A\262\ 3\242\ 2\242\ 4@\ 5A@\ 1\305=\205/\0\306\ 6\a!\211\307\267\202O\0\b\204l\0\310\311\312\313\ 6	!\"!\204l\0\305\314!\210\202l\0\202l\0\211\203^\0\315\316\317\ 6\n!\"\210\202l\0\ 2\305=\203l\0\211\204l\0\315\320!\210\211\204\202\0\321\322\323\ 5!\205y\0\ 4\324\325\326\327&\ 6\205\251\0\330\ 2\235\205\234\0\331\ 6\n\ 6\a\332\333$\206\234\0\334\311\335\313\ 6	!\"!\336\ 6\v\ 6\b\ 6\b\ 4\ 6	%\262\ 1\207" [jabber-silent-mode 3 signal wrong-number-of-arguments (group nickname popup) error jabber-error-condition #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item-not-found 53 feature-not-implemented 76)) y-or-n-p format "%s doesn't exist.  Create it? " jabber-jid-displayname "Non-existent groupchat" message "Couldn't query groupchat: %s" jabber-parse-error "Bad error stanza received" cl-find "conference" sequencep :key #[257 "\211\300H\207" [1] 3 "\n\n(fn I)"] :test string= "muc_passwordprotected" jabber-get-conference-data nil :password read-passwd "Password for %s: " jabber-muc-join-3] 17 (#$ . 16360)])
(defalias 'jabber-groupchat-join-2 'jabber-muc-join-2 "Deprecated.  See `jabber-muc-join-2' instead.")
#@41 

(fn JC GROUP NICKNAME PASSWORD POPUP)\1f
(defalias 'jabber-muc-join-3 #[1285 "\301\302\ 5!\ 4\b#\210\303\ 5\304\305\306\307\ 6	\ 6	#BC\310\311\ 6\a\205\"\0\312\313\ 6	ECBB\314\ 6\n!BBB\"\210\211\205:\0\315\ 5\ 5\"\316\ 1!\262\ 1\207" [jabber-pending-groupchats puthash jabber-jid-symbol jabber-send-sexp presence to format "%s/%s" x ((xmlns . "http://jabber.org/protocol/muc")) password nil jabber-presence-children jabber-muc-create-buffer switch-to-buffer] 14 (#$ . 17582)])
(defalias 'jabber-groupchat-join-3 'jabber-muc-join-3 "Deprecated.  See `jabber-muc-join-3' instead.")
#@159 Read nickname for joining GROUP.
If DEFAULT is non-nil, return default nick without prompting.

JC is the Jabber connection.

(fn JC GROUP &optional DEFAULT)\1f
(defalias 'jabber-muc-read-my-nickname #[770 "\305\ 3\ 3\306\307$\206\17\0\310\ 2\b\"A\206\17\0\311\312\ 4!\313\"\ 1\203\1c\0\207\314\315\ 2\"\306\211\ 3\19\1a\e\1c\316\f\v\n	\317%,\207" [jabber-muc-default-nicknames default-value history initial-contents prompt jabber-get-conference-data nil :nick assoc plist-get fsm-get-state-data :username format "Nickname: (default %s) " read-string t] 10 (#$ . 18140)])
(byte-code "\300\301\302\303B\"\210\304\303\305\"\210\300\301\306\307B\"\207" [add-to-list jabber-jid-muc-menu "Change nickname" jabber-muc-nick defalias jabber-muc-join "Leave groupchat" jabber-muc-leave] 4)
#@65 Leave a groupchat.

JC is the Jabber connection.

(fn JC GROUP)\1f
(defalias 'jabber-muc-leave #[514 "\301\ 1\b\"\302\ 3\303\304\305\306\ 6\a\ 6\aA#B\307BD\"\207" [*jabber-active-groupchats* assoc jabber-send-sexp presence to format "%s/%s" ((type . "unavailable"))] 11 (#$ . 18892) (byte-code "\b\204\b\0\302\303!\207	\bD\304\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" nil] 2)])
(byte-code "\300\301\302\303#\210\304\305\306\307B\"\207" [defalias jabber-groupchat-leave jabber-muc-leave "Deprecated.  Use `jabber-muc-leave' instead." add-to-list jabber-jid-muc-menu "List participants" jabber-muc-names] 4)
#@73 Print names, affiliations, and roles of participants in current buffer.\1f
(defalias 'jabber-muc-names #[0 "\303\b\304\305\306	\n\"A!\307\310 F\"\207" [jabber-chat-ewoc jabber-group jabber-muc-participants ewoc-enter-last :notice jabber-muc-print-names assoc :time current-time] 7 (#$ . 19519) nil])
#@48 Format one participant name.

(fn PARTICIPANT)\1f
(defalias 'jabber-muc-format-names #[257 "\301\b\302\ 3@B\303\304\ 5A\305\"B\306\304\ 6\ 6A\307\"\206\18\0\310BE\"\207" [jabber-muc-print-names-format format-spec 110 97 plist-get affiliation 106 jid ""] 9 (#$ . 19821)])
#@60 Format and return data in PARTICIPANTS.

(fn PARTICIPANTS)\1f
(defalias 'jabber-muc-print-names #[257 "\300C\300C\300C\300C\301\302\303\ 6\ 6\ 6\ 6\ 6\ 6\ 6\ 6%\ 6\ 6\"\210\304\305\306\301\307\ 6\b\242\"#\304\305\310\301\307\ 6\b\242\"#\304\305\311\301\307\ 6\b\242\"#\304\305\312\301\307\ 6\b\242\"#R\207" [nil mapcar make-closure #[257 "\304\ 1A\305\"\211\306\230\203\1c\0\ 1\300\242\235\203\15\0\300\242\207\300\ 2\300\242B\240\207\211\307\230\2033\0\ 1\301\242\235\203,\0\301\242\207\301\ 2\301\242B\240\207\211\310\230\203J\0\ 1\302\242\235\203C\0\302\242\207\302\ 2\302\242B\240\207\211\311\230\205`\0\ 1\303\242\235\203Z\0\303\242\207\303\ 2\303\242B\240\207" [V0 V1 V2 V3 plist-get role "moderator" "participant" "visitor" "none"] 5 "\n\n(fn X)"] apply concat "\nModerators:\n" jabber-muc-format-names "\nParticipants:\n" "\nVisitors:\n" "\nNones:\n"] 14 (#$ . 20083)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Set topic" jabber-muc-set-topic] 4)
#@81 Set topic of GROUP to TOPIC.

JC is the Jabber connection.

(fn JC GROUP TOPIC)\1f
(defalias 'jabber-muc-set-topic #[771 "\300\ 3\ 3\ 3\301\302%\207" [jabber-send-message nil "groupchat"] 9 (#$ . 21009) (byte-code "\b\204\b\0\306\307!\207	\bD\310\n\311\211\e\1c\1d\1e\f\312\ e\f\r\f\v\313%,C\244\207" [jabber-group jabber-buffer-connection jabber-muc-topic default-value history initial-contents error "Not in MUC buffer" "New topic: " nil read-string t prompt] 7)])
#@166 Record subject (topic) of the given <message/>, if any.

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

(fn XML-DATA)\1f
(defalias 'jabber-muc-snarf-topic #[257 "\301\ 1\302\"\211\205\v\0\211\211\10\207" [jabber-muc-topic jabber-xml-path (subject "")] 4 (#$ . 21459)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Set role (kick, voice, op)" jabber-muc-set-role] 4)
#@125 Set role of NICKNAME in GROUP to ROLE, specifying REASON.

JC is the Jabber connection.

(fn JC GROUP NICKNAME ROLE REASON)\1f
(defalias 'jabber-muc-set-role #[1285 "\ 2G\300U\206\v\0\ 1G\300U?\2055\0\301\ 5\ 5\302\303\304\305\306\ 6\nB\307\ 6\nBD\ 6\bG\300U?\205-\0\310\311\ 6\nEEE\312\313\312\313&\b\207" [0 jabber-send-iq "set" query ((xmlns . "http://jabber.org/protocol/muc#admin")) item nick role reason nil jabber-report-success "Role change"] 16 (#$ . 21896) (byte-code "\b\204\b\0\302\303!\207	\bD\304\b\305\"\211\306\307\310\311\312\311\313&\ 6\314\315!E\262\ 1\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" jabber-muc-read-nickname "Nickname: " completing-read "New role: " (("none") ("visitor") ("participant") ("moderator")) nil t jabber-role-history read-string "Reason: "] 10)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Set affiliation (ban, member, admin)" jabber-muc-set-affiliation] 4)
#@240 Set affiliation of NICKNAME-OR-JID in GROUP to AFFILIATION.
If NICKNAME-P is non-nil, NICKNAME-OR-JID is a nickname in the
group, else it is a JID.

JC is the Jabber connection.

(fn JC GROUP NICKNAME-OR-JID NICKNAME-P AFFILIATION REASON)\1f
(defalias 'jabber-muc-set-affiliation #[1542 "\ 2\2039\0\301\ 5\b\"A\211\204\13\0\302\303\ 6\a\"\210\301\ 5\ 2\"A\211\204$\0\302\304\ 6\a\ 6	#\210\305\ 1\306\"\2062\0\302\307\ 6\a\ 6	#\262\ 1\262\ 1\202:\0\ 3\310\ 6\a\ 6\a\311\312\313\314\306\ 6\bB\315\ 6\vBD\ 6	G\316U?\205Z\0\317\320\ 6\vEEE\321\322\321\322&\b\207" [jabber-muc-participants assoc error "Couldn't find group %s" "Couldn't find %s in group %s" plist-get jid "JID of %s in group %s is unknown" jabber-send-iq "set" query ((xmlns . "http://jabber.org/protocol/muc#admin")) item affiliation 0 reason nil jabber-report-success "Affiliation change"] 18 (#$ . 22831) (byte-code "\b\204\b\0\302\303!\207	\bD\304\305!\211\203\19\0\306\b\307\"\202\1c\0\310\311!\ 1\312\313\314\315\316\315\317&\ 6\320\321!F\262\ 1\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" y-or-n-p "Specify user by room nickname? " jabber-muc-read-nickname "Nickname: " jabber-read-jid-completing "User: " completing-read "New affiliation: " (("none") ("outcast") ("member") ("admin") ("owner")) nil t jabber-affiliation-history read-string "Reason: "] 11)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Invite someone to chatroom" jabber-muc-invite] 4)
#@94 Invite JID to GROUP, stating REASON.

JC is the Jabber connection.

(fn JC JID GROUP REASON)\1f
(defalias 'jabber-muc-invite #[1028 "\300\ 4\301\302\ 5BC\303\304\305\302\ 6\nBC\ 6\bG\306U?\205\1d\0\307\310\ 6\nEEEE\"\207" [jabber-send-sexp message to x ((xmlns . "http://jabber.org/protocol/muc#user")) invite 0 reason nil] 15 (#$ . 24240) (byte-code "\305 \306\307\310\311\b!\312 \"\"\313\314!\315\316\211\211\19\1a\e\1c\317\f\v\n	\320%,F\207" [jabber-group default-value history initial-contents prompt jabber-read-account jabber-read-jid-completing "Invite whom: " remq jabber-jid-symbol jabber-concat-rosters jabber-muc-read-completing "To group: " "Reason: " nil read-string t] 9)])
(add-to-list 'jabber-body-printers 'jabber-muc-print-invite)
#@141 Print MUC invitation.

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

(fn XML-DATA WHO MODE)\1f
(defalias 'jabber-muc-print-invite #[771 "\3002\ 6\ 1\301\ 3\302\"\211\205\ 3\ 1\211@\211\303\ 1:\205\19\0\304\ 2\ 2\"\266\202\305\230\203\374\0\301\ 1\306\"@\211\203\373\0\ 3\307=\203\366\0\ 5\310\ 1:\205:\0\304\ 2\ 2\"\266\202\ 1\310\ 1:\205G\0\304\ 2\ 2\"\266\202\301\ 3\311\"@\211AA\211\312\232?\205Y\0\211\266\202@\313\314\ 4!\261\ 2\210\ 1\203n\0\315\314\ 3!\261\ 2\210\316c\210\211\203z\0\317\ 1\261\ 2\210\320c\210\321\322\323\324\325\ 6\a\326\325\ 6\nEFF\327\330!\203\232\0\330\331\332\ 3#\210\202\254\0\333 \334\ 1\335\ 4#\210\336\331\337\ 3\340\341%c\266\ 2\342c\210\321\343\344\345\346\347\325\350\351\350\352\353\ 6\ fED\350\354\355\350\356\350\352\357\ 6\14ED\360BBBFFEEF\327\330!\203\344\0\330\361\332\ 3#\266\ 6\202\366\0\333 \334\ 1\335\ 4#\210\336\361\337\ 3\340\341%c\266\a\362\300\363\"\210\210\ 1A\266\202\202\b\0\262\ 10\207" [--cl-block-nil-- jabber-xml-get-children x xmlns xml-get-attribute-or-nil "http://jabber.org/protocol/muc#user" invite :insert from reason (("")) "You have been invited to MUC room " jabber-jid-displayname " by " "." "  Reason: " "\n\n" lambda (&rest ignore) (interactive) jabber-muc-join jabber-buffer-connection jabber-muc-read-my-nickname fboundp insert-button "Accept" action make-keymap define-key "\r" jabber-propertize keymap face highlight "	" (&rest ignore) (interactive) let ((reason (jabber-read-with-input-method "Reason: "))) jabber-send-sexp list 'message cons 'to 'x (list (cons 'xmlns "http://jabber.org/protocol/muc#user")) 'decline 'to ((unless (zerop (length reason)) (list 'reason nil reason))) "Decline" throw t] 29 (#$ . 24970)])
#@116 Join rooms specified in account bookmarks and global `jabber-muc-autojoin'.

JC is the Jabber connection.

(fn JC)\1f
(defalias 'jabber-muc-autojoin #[257 "\302\303\ 2!\304\"\210\305\306\300!\2035\0\b\2035\0\b\211\2034\0\211@\307\ 4\ 2\310\ 4	\"A\206+\0\302\303\ 6\b!\304\"#\210\ 1A\266\202\202\13\0\210\311\ 2\312\"\207" [jabber-muc-autojoin jabber-muc-default-nicknames plist-get fsm-get-state-data :username nil boundp jabber-muc-join assoc jabber-get-bookmarks #[514 "\211\211\2054\0\211@\300\ 1!\262\ 1\211\203-\0\301\ 1\302\"\203-\0\303\ 4\301\ 3\304\"\301\ 4\305\"\206+\0\301\306\ 6\b!\307\"#\210\ 1A\266\202\202\ 1\0\207" [jabber-parse-conference-bookmark plist-get :autojoin jabber-muc-join :jid :nick fsm-get-state-data :username] 10 "\n\n(fn JC BOOKMARKS)"]] 10 (#$ . 26610) (byte-code "\300 C\207" [jabber-read-account] 1)])
#@156 Return non-nil if MESSAGE is a groupchat message.
That does not include private messages in a groupchat, but does
include groupchat invites.

(fn MESSAGE)\1f
(defalias 'jabber-muc-message-p #[257 "\211\301\ 1:\205\v\0\302\ 2\ 2\"\266\202\ 1\303\ 1:\205\18\0\302\ 2\ 2\"\266\202\211\304\230\2063\0\211\305\230\203/\0\306\307\ 3!\b\"\2063\0\310\ 3\311\"\207" [jabber-pending-groupchats from xml-get-attribute-or-nil type "groupchat" "error" gethash jabber-jid-symbol jabber-xml-path (("http://jabber.org/protocol/muc#user" . "x") invite)] 7 (#$ . 27403)])
#@70 Return non-nil if JID is a full JID of an MUC participant.

(fn JID)\1f
(defalias 'jabber-muc-sender-p #[257 "\301\302\ 2!\b\"\205\f\0\303\ 1!\207" [*jabber-active-groupchats* assoc jabber-jid-user jabber-jid-resource] 4 (#$ . 27933)])
#@78 Return non-nil if MESSAGE is a private message in a groupchat.

(fn MESSAGE)\1f
(defalias 'jabber-muc-private-message-p #[257 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\ 1\302\ 1:\205\18\0\301\ 2\ 2\"\266\202\211\303\230?\205$\0\304\ 2!\207" [from xml-get-attribute-or-nil type "groupchat" jabber-muc-sender-p] 7 (#$ . 28166)])
(byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-muc-menu "Open private chat" jabber-muc-private] 4)
#@97 Open private chat with NICKNAME in GROUP.

JC is the Jabber connection.

(fn JC GROUP NICKNAME)\1f
(defalias 'jabber-muc-private #[771 "\301\302\b\ 4\ 4#!\207" [jabber-buffer-connection switch-to-buffer jabber-muc-private-create-buffer] 8 (#$ . 28587) (byte-code "\b\204\b\0\302\303!\207	\bD\304\b\305\"C\244\207" [jabber-group jabber-buffer-connection error "Not in MUC buffer" jabber-muc-read-nickname "Nickname: "] 4)])
#@71 Return non-nil if PRESENCE is presence from groupchat.

(fn PRESENCE)\1f
(defalias 'jabber-muc-presence-p #[257 "\211\301\ 1:\205\v\0\302\ 2\ 2\"\266\202\ 1\303\ 1:\205\18\0\302\ 2\ 2\"\266\202\304\305\306\ 5\307\"\"\211\2061\0\ 1\310\230\2051\0\311\312\ 4!\b\"\207" [jabber-pending-groupchats from xml-get-attribute-or-nil type cl-find-if #[257 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\302\232\207" [xmlns xml-get-attribute-or-nil "http://jabber.org/protocol/muc#user"] 6 "\n\n(fn X)"] jabber-xml-get-children x "error" gethash jabber-jid-symbol] 8 (#$ . 29003)])
#@99 Parse X-MUC in the muc#user namespace and return a plist.
Return nil if X-MUC is nil.

(fn X-MUC)\1f
(defalias 'jabber-muc-parse-affiliation #[257 "\300\301\302\303\304\ 5\305\"@\211<\205\11\0\211A@\262\ 1\"\"\207" [apply nconc mapcar #[257 "\211@\ 1AD\207" [] 3 "\n\n(fn PROP)"] jabber-xml-get-children item] 8 (#$ . 29536)])
#@92 Print MUC prompt for message in XML-DATA.

(fn XML-DATA &optional LOCAL DONT-PRINT-NICK-P)\1f
(defalias 'jabber-muc-print-prompt #[769 "\306\ 3\307\ 1:\205\f\0\310\ 2\ 2\"\266\202!\311\ 4!\ 1;\203}\0\312\313\b\314\315\ 5\203$\0	\202%\0\n\ 6\ 6\"B\316\ 6\a\2033\0\317\2025\0\ 6\ 6B\320\ 6\aB\321\ 6\bB\322\v\323\ 6\vQB\257\ 5\"\324\ 6\ 6\203_\0\f\203[\0\325\326\ 6\ 6!D\202m\0\327\202m\0\r\203l\0\325\326\ 6\ 6!D\202m\0\330\331\315\332\ 6\a\"\333\ 6\b\334\v\260\ 5%c\207\335 \207" [jabber-groupchat-prompt-format jabber-chat-delayed-time-format jabber-chat-time-format jabber-group jabber-muc-colorize-local jabber-muc-colorize-foreign jabber-jid-resource from xml-get-attribute-or-nil jabber-message-timestamp jabber-propertize format-spec 116 format-time-string 110 "" 117 114 106 "/" face :foreground jabber-muc-nick-get-color jabber-chat-prompt-local jabber-chat-prompt-foreign help-echo "On %Y-%m-%d %H:%M:%S" " from " " in " jabber-muc-system-prompt] 16 (#$ . 29857)])
#@66 Print prompt for private MUC message in XML-DATA.

(fn XML-DATA)\1f
(defalias 'jabber-muc-private-print-prompt #[257 "\304\ 1\305\ 1:\205\f\0\306\ 2\ 2\"\266\202!\307\ 2\305\ 1:\205\e\0\306\ 2\ 2\"\266\202!\310\ 3!\311\312\b\313\314\ 5\203.\0	\202/\0\n\ 6\ 6\"B\315\ 6\aB\316\317\ 6\b!\206C\0\320\ 6\b!BE\"\321\322\323\314\324\ 6\a\"\325\ 6	\326\v\260\ 5%c\207" [jabber-muc-private-foreign-prompt-format jabber-chat-delayed-time-format jabber-chat-time-format jabber-group jabber-jid-resource from xml-get-attribute-or-nil jabber-jid-user jabber-message-timestamp jabber-propertize format-spec 116 format-time-string 110 103 jabber-jid-rostername jabber-jid-username face jabber-chat-prompt-foreign help-echo "On %Y-%m-%d %H:%M:%S" " from " " in "] 14 (#$ . 30762)])
#@49 Print system prompt for MUC.

(fn &rest IGNORE)\1f
(defalias 'jabber-muc-system-prompt #[128 "\303\304\b\305\306	!B\307\310B\311\310B\312\310B\313\nB\257\ 5\"\314\315\316\306\317!%c\207" [jabber-groupchat-prompt-format jabber-chat-time-format jabber-group 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 (#$ . 31484)])
(add-to-list 'jabber-message-chain 'jabber-muc-process-message)
#@104 If XML-DATA is a groupchat message, handle it as such.

JC is the Jabber connection.

(fn JC XML-DATA)\1f
(defalias 'jabber-muc-process-message #[514 "\306\ 1!\205\303\0\307\310!\210\211\311\ 1:\205\15\0\312\ 2\ 2\"\266\202\313\ 1!\314\ 2!\315\ 4\316\"\211\203)\0\317\2028\0\ 1\320\ 4\b\"A\230\2037\0\321\2028\0\322\315\ 6\ 6\323\"@\211AA\211\324\232?\205I\0\211\266\202@\325	\n\"\er\326\ 6\b\ 6\ 6\"q\210\327\ 6\a!\210\ 2\204m\0\330\303\ 6\b\ 4\331$\205\300\0\332\333\f\ 4\ 6\n\334\335 F\"!\210\336\337\ 6\b\211AA\211\324\232?\205\211\0\211\266\202\"\340\ 1\235\206\225\0\341\ 1\235?\205\276\0\342\211\205\274\0\211@\343\ 1\ 6\b\ 6\np\ 6\b\r\ 6\r\ 6\ fp\ 6\r$&\ 6\210\ 1A\266\202\202\232\0\262\ 1\262\ 1*\266\206\207" [*jabber-active-groupchats* jabber-muc-printers jabber-chat-printers printers jabber-chat-ewoc jabber-alert-muc-function jabber-muc-message-p (lambda (#1=#:def-tmp-var) (defvar printers #1#)) nil from xml-get-attribute-or-nil jabber-jid-user jabber-jid-resource jabber-xml-get-children error :muc-error assoc :muc-local :muc-foreign body (("")) append jabber-muc-create-buffer jabber-muc-snarf-topic run-hook-with-args-until-success :printp jabber-maybe-print-rare-time ewoc-enter-last :time current-time mapcar #[257 "\211<\205\12\0\211\300\ 1:\205\10\0\301\ 2\ 2\"\266\202\207" [xmlns xml-get-attribute-or-nil] 6 "\n\n(fn X)"] "urn:xmpp:delay" "jabber:x:delay" (jabber-muc-hooks jabber-alert-muc-hooks) run-hook-with-args] 22 (#$ . 31975)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\a\207" [custom-declare-face jabber-muc-presence-dim ((t (:foreground "dark grey" :weight light :slant italic))) "face for diminished presence notifications." custom-declare-variable jabber-muc-decorate-presence-patterns funcall function #[0 "\300\207" [nil] 1 ""] "List of regular expressions and face pairs.\nWhen a presence notification matches a pattern, display it with\nassociated face.  Ignore notification if face is ‘nil’." :type (repeat :tag "Patterns" (cons :format "%v" (regexp :tag "Regexp") (choice (const :tag "Ignore" nil) (face :tag "Face" :value jabber-muc-presence-dim)))) :group jabber-alerts] 8)
#@43 Filter presence notifications.

(fn NODE)\1f
(defalias 'jabber-muc-maybe-decorate-presence #[257 "\211\ 1A\203\ f\0\ 1\211A\262\ 2\242\202\16\0\302\303\304\ 3GD\"\ 1\211A\262\ 3\242\305\ 3\306\"A@\ 3\211\203M\0\211@\307>\2036\0\211AA\262\ 1\202#\0\310\ 5>A@\203D\0\311\262\ 1\202#\0\312\313\ 2@\"\210\202#\0\210\314\315\316\ 4\"\b\"\211\243\ 1\203r\0\211\205y\0\317\320	\ 6\a\321\ 6\b\322\ 6\a#\306\ 6\bF\"!\207\317\320	\ 6	\"!\207" [jabber-muc-decorate-presence-patterns jabber-chat-ewoc signal wrong-number-of-arguments (key msg &key time) plist-member :time (:time :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:time)" cl-find-if make-closure #[257 "\301\ 1@\300\"\207" [V0 string-match] 4 "\n\n(fn PAIR)"] jabber-maybe-print-rare-time ewoc-enter-last propertize face] 15 (#$ . 34027)])
#@20 

(fn JC PRESENCE)\1f
(defalias 'jabber-muc-process-presence #[514 "\211\303\ 1:\205\v\0\304\ 2\ 2\"\266\202\ 1\305\ 1:\205\18\0\304\ 2\ 2\"\266\202\306\307\310\ 5\311\"\"\312\ 3!\313\ 4!\314\ 5!\315\ 1\b\"\310\ 5\316\"@\310\ 1\317\"@\320\ 1:\205B\0\304\ 2\ 2\"\266\202\310\ 2\321\"@\211AA\211\322\232?\205T\0\211\266\202@\310\ 6\v\323\"@\211\203r\0\211\324\ 1:\205l\0\304\ 2\ 2\"\266\202C\202z\0\325\326\310\ 6\v\327\"\"\ 6\n\330\230\204\210\0\ 6\n\331\230\203\316\ 1\ 6\a\203\233\0\332\ 1\235\204\233\0\ 6\a\ 6\ 6\230\203<\ 1\333\ 6\v\331\230\203\316\0\334\ 2\235\204\257\0\335\ 2\235\203\300\0\336\262\ 1\337\ 3\205\274\0\340\341\ 5!PP\202\a\ 1\342\ 3\205\312\0\340\341\ 5!PP\202\a\ 1\343\ 2\235\203\352\0\344\ 5\205\335\0\345\ 6\ 6P\ 5\205\346\0\346\ 6\ 6\347QQ\202\a\ 1\350\ 2\235\203\ 6\ 1\351\ 5\205\371\0\345\ 6\ 6P\ 5\205\ 2\ 1\346\ 6\ 6\347QQ\202\a\ 1\352\ 1\203\10\ 1\353\ 6\v!\210\354\355\ 6\f!!\211\2033\ 1r\211q\210\356\ 6\ e\331\230\203*\ 1\357\202+\ 1\360\ 3\361\362 F!)\207\363\364\365\ 6\ e!\ 4#\207\366\ 6	\ 6	\"\367\ 1\320\"\ 6	\ 1\205R\ 1\370\312\ 3!\371QP\372\ 6\f\ 6\f\"\210r\373\ 6\11\ 6\r\"q\210\356\360\343\ 6\ 6\235\203\205\ 1\ 2\374\ 6\n\205w\ 1\345\ 6\vP\ 6\n\205\201\ 1\346\ 6\v\347QR\202\307\ 1\350\ 6\ 6\235\203\245\ 1\ 2\375\ 6\n\205\227\ 1\345\ 6\vP\ 6\n\205\241\ 1\346\ 6\v\347QR\202\307\ 1\376\ 6\ 6\235\203\302\ 1\ 2\377\ 6\v\201@\0\ 1:\205\274\ 1\304\ 2\ 2\"\266\202Q\202\307\ 1\ 2\201A\0P\361\362 F!)\207\332\ 1\235\204\334\ 1\ 6\a\ 6\ 6\230\203\ 6\ 2\201B\0\ 6		\"\211\203\360\ 1\211\ 6	\241\266\ 2\202\374\ 1\201C\0\301\ 6\v\ 6\vB\"\266\ 2\201D\0\ 6\a\ 6	\b#\210\366\ 6	\ 6	\"\201E\0\ 6\v!\201F\0\ 6\v\ 6\v\ 3#\210\201G\0\ 6\n\ 3\ 3\ 6\b\ 6\n%\211\205\306\ 2r\373\ 6\11\ 6\r\"q\210\356\360\ 2\361\362 F!\210\201H\0\ 4\235\203Z\ 2\201I\0\n\360\201J\0\ 6\ e\201K\0Q\361\362 F\"\210\201L\0\ 4\235\205\305\ 2\201I\0\n\360\201M\0\201N\0\333\"r\211q\210\201O\0\201P\0\ 2\"\216\201Q\0\201R\0\261\ 2\210\201S\0\201T\0\201U\0\201V\0\201W\0\201X\0\"#\210\201Y\0c\210\201S\0\201Z\0\201U\0\201V\0\201W\0\201[\0\"#\210\201\\\0c\210\201]\0 *\262\ 1\361\362 F\")\207" [jabber-pending-groupchats *jabber-active-groupchats* jabber-chat-ewoc from xml-get-attribute-or-nil type cl-find-if #[257 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\302\232\207" [xmlns xml-get-attribute-or-nil "http://jabber.org/protocol/muc#user"] 6 "\n\n(fn X)"] jabber-xml-get-children x jabber-jid-user jabber-jid-resource jabber-jid-symbol gethash item actor jid reason (("")) error code mapcar #[257 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\207" [code xml-get-attribute-or-nil] 6 "\n\n(fn STATUS-ELEMENT)"] status "unavailable" "error" "110" t "406" "409" nil "Nickname change not allowed" ": " jabber-parse-error "Error entering room" "301" "You have been banned" " by " " - '" "'" "307" "You have been kicked" "You have left the chatroom" jabber-muc-remove-groupchat get-buffer jabber-muc-get-buffer jabber-muc-maybe-decorate-presence :muc-error :muc-notice :time current-time message "%s: %s" jabber-jid-displayname jabber-muc-participant-plist plist-get " <" ">" jabber-muc-remove-participant jabber-muc-create-buffer " has been banned" " has been kicked" "303" " changes nickname to " nick " has left the chatroom" assoc add-to-list puthash jabber-muc-parse-affiliation jabber-muc-modify-participant jabber-muc-report-delta "210" ewoc-enter-last "Your nick was changed to " " by the server" "201" generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\0\302\300!\207" [V0 buffer-name kill-buffer] 2] "This room was just created, and is locked to other participants.\n" "To unlock it, " insert-text-button "configure the room" action apply-partially call-interactively jabber-muc-get-config " or " "accept the default configuration" jabber-muc-instant-config "." buffer-string] 27 (#$ . 34795)])
(provide 'jabber-muc)