[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-alert.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\306\307\310%\210\311\312\313\314\315DD\316\317\320\321\322\307\304&	\207" [require jabber-util cl-lib custom-declare-group jabber-alerts nil "auditory and visual alerts for jabber events" :group jabber custom-declare-variable jabber-alert-message-hooks funcall function #[0 "\300\207" [(jabber-message-echo jabber-message-scroll)] 1 ""] "Hooks run when a new message arrives.\n\nArguments are FROM, BUFFER, TEXT and TITLE.  FROM is the JID of\nthe sender, BUFFER is the the buffer where the message can be\nread, and TEXT is the text of the message.  TITLE is the string\nreturned by `jabber-alert-message-function' for these arguments,\nso that hooks do not have to call it themselves.\n\nThis hook is meant for user customization of message alerts.  For\nother uses, see `jabber-message-hooks'." :type hook :options (jabber-message-beep jabber-message-wave jabber-message-echo jabber-message-switch jabber-message-display jabber-message-scroll)] 10)
#@162 Internal hooks run when a new message arrives.

This hook works just like `jabber-alert-message-hooks', except that
it's not meant to be customized by the user.\1f
(defvar jabber-message-hooks nil (#$ . 1088))
(byte-code "\300\301\302\303\304DD\305\306\303\307\310&\a\210\300\311\302\303\312DD\313\306\314\315\316\307\310&	\207" [custom-declare-variable jabber-alert-message-function funcall function #[0 "\300\207" [jabber-message-default-message] 1 #1=""] "Function for constructing short message alert messages.\n\nArguments are FROM, BUFFER, and TEXT.  This function should return a\nstring containing an appropriate text message, or nil if no message\nshould be displayed.\n\nThe provided hooks displaying a text message get it from this function,\nand show no message if it returns nil.  Other hooks do what they do\nevery time." :type :group jabber-alerts jabber-alert-muc-hooks #[0 "\300\207" [(jabber-muc-echo jabber-muc-scroll)] 1 #1#] "Hooks run when a new MUC message arrives.\n\nArguments are NICK, GROUP, BUFFER, TEXT and TITLE.  NICK is the\nnickname of the sender.  GROUP is the JID of the group.  BUFFER\nis the the buffer where the message can be read, and TEXT is the\ntext of the message.  TITLE is the string returned by\n`jabber-alert-muc-function' for these arguments, so that hooks do\nnot have to call it themselves." hook :options (jabber-muc-beep jabber-muc-wave jabber-muc-echo jabber-muc-switch jabber-muc-display jabber-muc-scroll)] 10)
#@162 Internal hooks run when a new MUC message arrives.

This hook works just like `jabber-alert-muc-hooks', except that
it's not meant to be customized by the user.\1f
(defvar jabber-muc-hooks nil (#$ . 2558))
(byte-code "\300\301\302\303\304DD\305\306\303\307\310&\a\210\300\311\302\303\312DD\313\306\314\315\316\307\310&	\207" [custom-declare-variable jabber-alert-muc-function funcall function #[0 "\300\207" [jabber-muc-default-message] 1 #1=""] "Function for constructing short message alert messages.\n\nArguments are NICK, GROUP, BUFFER, and TEXT.  This function\nshould return a string containing an appropriate text message, or\nnil if no message should be displayed.\n\nThe provided hooks displaying a text message get it from this function,\nand show no message if it returns nil.  Other hooks do what they do\nevery time." :type :group jabber-alerts jabber-alert-presence-hooks #[0 "\300\207" [(jabber-presence-echo)] 1 #1#] "Hooks run when a user's presence changes.\n\nArguments are WHO, OLDSTATUS, NEWSTATUS, STATUSTEXT and\nPROPOSED-ALERT.  WHO is a symbol whose text is the JID of the contact,\nand which has various interesting properties.  OLDSTATUS is the old\npresence or nil if disconnected.  NEWSTATUS is the new presence, or\none of \"subscribe\", \"unsubscribe\", \"subscribed\" and\n\"unsubscribed\".  TITLE is the string returned by\n`jabber-alert-presence-message-function' for these arguments." hook :options (jabber-presence-beep jabber-presence-wave jabber-presence-switch jabber-presence-display jabber-presence-echo)] 10)
#@167 Internal hooks run when a user's presence changes.

This hook works just like `jabber-alert-presence-hooks', except that
it's not meant to be customized by the user.\1f
(defvar jabber-presence-hooks '(jabber-presence-watch) (#$ . 4112))
(byte-code "\300\301\302\303\304DD\305\306\303\307\310&\a\210\300\311\302\303\312DD\313\306\314\315\316\307\310&	\207" [custom-declare-variable jabber-alert-presence-message-function funcall function #[0 "\300\207" [jabber-presence-default-message] 1 #1=""] "Function for constructing title of presence alert messages.\n\nArguments are WHO, OLDSTATUS, NEWSTATUS and STATUSTEXT.  See\n`jabber-alert-presence-hooks' for documentation.  This function\nshould return a string containing an appropriate text message, or nil\nif no message should be displayed.\n\nThe provided hooks displaying a text message get it from this function.\nAll hooks refrain from action if this function returns nil." :type :group jabber-alerts jabber-alert-info-message-hooks #[0 "\300\207" [(jabber-info-display jabber-info-echo)] 1 #1#] "Hooks run when an info request is completed.\n\nFirst argument is WHAT, a symbol telling the kind of info request completed.\nThat might be 'roster, for requested roster updates, and 'browse, for\nbrowse requests.  Second argument in BUFFER, a buffer containing the result.\nThird argument is PROPOSED-ALERT, containing the string returned by\n`jabber-alert-info-message-function' for these arguments." hook :options (jabber-info-beep jabber-info-wave jabber-info-echo jabber-info-switch jabber-info-display)] 10)
#@174 Internal hooks run when an info request is completed.

This hook works just like `jabber-alert-info-message-hooks',
except that it's not meant to be customized by the user.\1f
(defvar jabber-info-message-hooks nil (#$ . 5681))
(byte-code "\300\301\302\303\304DD\305\306\303\307\310&\a\210\300\311\302\303\312DD\313\306\314\307\310&\a\210\300\315\302\303\316DD\317\306\320\307\310&\a\210\300\321\302\303\322DD\323\306\324\307\310&\a\210\300\325\302\303\326DD\327\306\320\307\310&\a\210\300\330\302\303\331DD\332\306\320\307\310&\a\210\300\333\302\303\334DD\335\306\336\307\310&\a\210\300\337\302\303\340DD\341\306\320\307\310&\a\210\300\342\302\303\343DD\344\306\303\307\310&\a\207" [custom-declare-variable jabber-alert-info-message-function funcall function #[0 "\300\207" [jabber-info-default-message] 1 #1=""] "Function for constructing info alert messages.\n\nArguments are WHAT, a symbol telling the kind of info request completed,\nand BUFFER, a buffer containing the result." :type :group jabber-alerts jabber-info-message-alist #[0 "\300\207" [((roster . "Roster display updated") (browse . "Browse request completed"))] 1 #1#] "Alist for info alert messages, used by `jabber-info-default-message'." (alist :key-type symbol :value-type string :options (roster browse)) jabber-alert-message-wave #[0 "\300\207" [#1#] 1 #1#] "A sound file to play when a message arrived.\nSee `jabber-alert-message-wave-alist' if you want other sounds\nfor specific contacts." file jabber-alert-message-wave-alist #[0 "\300\207" [nil] 1 #1#] "Specific sound files for messages from specific contacts.\nThe keys are regexps matching the JID, and the values are sound\nfiles." (alist :key-type regexp :value-type file) jabber-alert-muc-wave #[0 "\300\207" [#1#] 1 #1#] "A sound file to play when a MUC message arrived." jabber-alert-presence-wave #[0 "\300\207" [#1#] 1 #1#] "A sound file to play when a presence arrived." jabber-alert-presence-wave-alist #[0 "\300\207" [nil] 1 #1#] "Specific sound files for presence from specific contacts.\nThe keys are regexps matching the JID, and the values are sound\nfiles." (alist :key-type regexp :value-type file) jabber-alert-info-wave #[0 "\300\207" [#1#] 1 #1#] "A sound file to play when an info query result arrived." jabber-play-sound-file #[0 "\300\207" [play-sound-file] 1 #1#] "A function to call to play alert sound files."] 8)
#@791 Define a new family of external alert hooks.
Use this macro when your hooks do nothing except displaying a string
in some new innovative way.  You write a string display function, and
this macro does all the boring and repetitive work.

NAME is the name of the alert family.  The resulting hooks will be
called jabber-{message,muc,presence,info}-NAME.
DOCSTRING is the docstring to use for those hooks.
FUNCTION is a function that takes one argument, a string,
and displays it in some meaningful way.  It can be either a
lambda form or a quoted function name.
The created functions are inserted as options in Customize.

Examples:
(define-jabber-alert foo "Send foo alert" 'foo-message)
(define-jabber-alert bar "Send bar alert"
  (lambda (msg) (bar msg 42)))

(fn NAME DOCSTRING FUNCTION)\1f
(defalias 'define-jabber-alert '(macro . #[771 "\300\ 3!\301\302\303\ 3\"!\301\302\304\ 4\"!\301\302\305\ 5\"!\301\302\306\ 6\ 6\"!\307\310\ 5\311\ 6\n\312\313\314\ 6\r\315BBE\257\ 5\316\317\ 6\aD\320BB\310\ 6\ 6\321\ 6\f\312\313\314\ 6\ f\322BBE\257\ 5\316\317\ 6\bD\323BB\310\ 6\a\324\ 6\ e\312\313\314\ 6\11\325BBE\257\ 5\316\317\ 6	D\326BB\310\ 6\b\327\ 6\10\312\330\314\ 6\13\331BBE\257\ 5\316\317\ 6\nD\332BB\257	\207" [symbol-name intern format "jabber-message-%s" "jabber-muc-%s" "jabber-presence-%s" "jabber-info-%s" progn defun (from buffer text title) when title funcall (text title) cl-pushnew quote ((get 'jabber-alert-message-hooks 'custom-options)) (nick group buffer text title) (text title) ((get 'jabber-alert-muc-hooks 'custom-options)) (who oldstatus newstatus statustext title) (statustext title) ((get 'jabber-alert-presence-hooks 'custom-options)) (infotype buffer text) text (text) ((get 'jabber-alert-info-message-hooks 'custom-options))] 24 (#$ . 8046)]))
#@62 Show a message in the echo area

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-echo #[1028 "\211\205\f\0\300\301\ 2\206\v\0\ 3\"\207" [message "%s"] 7 (#$ . 9755)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-message-hooks custom-options jabber-message-echo] 6)
#@68 Show a message in the echo area

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-echo #[1285 "\211\205\f\0\300\301\ 2\206\v\0\ 3\"\207" [message "%s"] 8 (#$ . 10071)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-echo] 6)
#@80 Show a message in the echo area

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f
(defalias 'jabber-presence-echo #[1285 "\211\205\f\0\300\301\ 2\206\v\0\ 3\"\207" [message "%s"] 8 (#$ . 10382)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-presence-hooks custom-options jabber-presence-echo] 6)
#@60 Show a message in the echo area

(fn INFOTYPE BUFFER TEXT)\1f
(defalias 'jabber-info-echo #[771 "\211\205\b\0\300\301\ 2\"\207" [message "%s"] 6 (#$ . 10720)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-info-message-hooks custom-options jabber-info-echo] 6)
#@44 Beep on event

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-beep #[1028 "\211\205	\0\300\301 \262\ 1\207" [nil beep] 6 (#$ . 11025)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-message-hooks custom-options jabber-message-beep] 6)
#@50 Beep on event

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-beep #[1285 "\211\205	\0\300\301 \262\ 1\207" [nil beep] 7 (#$ . 11315)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-beep] 6)
#@62 Beep on event

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f
(defalias 'jabber-presence-beep #[1285 "\211\205	\0\300\301 \262\ 1\207" [nil beep] 7 (#$ . 11599)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-presence-hooks custom-options jabber-presence-beep] 6)
#@42 Beep on event

(fn INFOTYPE BUFFER TEXT)\1f
(defalias 'jabber-info-beep #[771 "\211\205	\0\300\301 \262\ 1\207" [nil beep] 5 (#$ . 11910)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-info-message-hooks custom-options jabber-info-beep] 6)
#@25 

(fn FROM BUFFER TEXT)\1f
(defalias 'jabber-message-default-message #[771 "\b\204\ e\0\301 \302\ 3!>?\205'\0\303\ 3!\203!\0\304\305\306\ 5!\307\310\ 6\a!!#\207\304\311\307\ 5!\"\207" [jabber-message-alert-same-buffer selected-window get-buffer-window-list jabber-muc-sender-p format "Private message from %s in %s" jabber-jid-resource jabber-jid-displayname jabber-jid-user "Message from %s"] 9 (#$ . 12196)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\300\312\302\303\313DD\314\306\307\310\311&\a\207" [custom-declare-variable jabber-message-alert-same-buffer funcall function #[0 "\300\207" [t] 1 #1=""] "If nil, don't display message alerts for the current buffer." :type boolean :group jabber-alerts jabber-muc-alert-self #[0 "\300\207" [nil] 1 #1#] "If nil, don't display MUC alerts for your own messages."] 8)
#@91 Play the wave file specified in `jabber-alert-message-wave'.

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-wave #[1028 "\211\205=\0\304\18\305\ 4!\3062,\0	\211\205)\0\211@\307\ 1@\ 4\"\203\"\0\310\306\ 2A\"\210\ 1A\266\202\202\ e\0\262\ 10\2060\0\n\211\311\232?\205:\0\v\ 1!)\266\202\207" [case-fold-search jabber-alert-message-wave-alist jabber-alert-message-wave jabber-play-sound-file t jabber-jid-user --cl-block-nil-- string-match throw ""] 10 (#$ . 13016)])
#@82 Display the buffer where a new message has arrived.

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-display #[1028 "\211\205\a\0\300\ 3!\207" [display-buffer] 6 (#$ . 13469)])
#@84 Switch to the buffer where a new message has arrived.

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-switch #[1028 "\211\205\a\0\300\ 3!\207" [switch-to-buffer] 6 (#$ . 13654)])
#@97 Scroll all nonselected windows where the chat buffer is displayed.

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-scroll #[1028 "\300\ 3\301\302#r\ 3q\210d)\ 1\211\205%\0\211@\211\303 =\204\1e\0\304\ 1\ 4\"\210\ 1A\266\202\202\f\0\207" [get-buffer-window-list nil t selected-window set-window-point] 11 (#$ . 13842)])
#@31 

(fn NICK GROUP BUFFER TEXT)\1f
(defalias 'jabber-muc-default-message #[1028 "\b\204\ e\0\303 \304\ 3!>?\2050\0\ 3\203*\0	\204!\0\ 3\305\ 4\n\"A\230?\2050\0\306\307\ 5\310\ 6\ 6!#\207\306\311\310\ 5!\"\207" [jabber-message-alert-same-buffer jabber-muc-alert-self *jabber-active-groupchats* selected-window get-buffer-window-list assoc format "Message from %s in %s" jabber-jid-displayname "Message in %s"] 9 (#$ . 14157)])
#@93 Play the wave file specified in `jabber-alert-muc-wave'.

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-wave #[1285 "\211\205\a\0\b	!\207" [jabber-play-sound-file jabber-alert-muc-wave] 7 (#$ . 14560)])
#@88 Display the buffer where a new message has arrived.

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-display #[1285 "\211\205\a\0\300\ 3!\207" [display-buffer] 7 (#$ . 14776)])
#@90 Switch to the buffer where a new message has arrived.

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-switch #[1285 "\211\205\a\0\300\ 3!\207" [switch-to-buffer] 7 (#$ . 14963)])
#@89 Scroll buffer even if it is in an unselected window.

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-scroll #[1285 "\300\301\ 4\301\211$\207" [jabber-message-scroll nil] 10 (#$ . 15153)])
#@357 Return a string with the status change if OLDSTATUS and NEWSTATUS differs.

Return nil if OLDSTATUS and NEWSTATUS are equal, and in other
cases a string of the form "'name' (jid) is now NEWSTATUS (STATUSTEXT)".

This function is not called directly, but is the default for
`jabber-alert-presence-message-function'.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT)\1f
(defalias 'jabber-presence-default-message #[1028 "\ 2\ 2\232\203\b\0\301\207\ 3\302NG\303V\203\17\0\ 3\302N\202\1a\0\304\ 4!\305\ 3\306\"A\206-\0\307\305\ 4\b\"A\206,\0\ 3P\ 1\ 1P\207" [jabber-presence-strings nil name 0 symbol-name assoc (("subscribe" . " requests subscription to your presence") ("subscribed" . " has granted presence subscription to you") ("unsubscribe" . " no longer subscribes to your presence") ("unsubscribed" . " cancels your presence subscription")) " is now "] 9 (#$ . 15355)])
#@434 Same as `jabber-presence-default-message' but managing the presence messages.

Return the same as `jabber-presence-default-message' but only
if there is a chat buffer open for WHO, keeping the amount of presence messages
at a more manageable level when there are lots of users.

This function is not called directly, but can be used as the value for
`jabber-alert-presence-message-function'.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT)\1f
(defalias 'jabber-presence-only-chat-open-message #[1028 "\301\302\b\303\ 1:\205\r\0\304\ 2\ 2\"\266\202!!\205\1a\0\305\ 4\ 4\ 4\ 4$\207" [xml-data get-buffer jabber-chat-get-buffer from xml-get-attribute-or-nil jabber-presence-default-message] 11 (#$ . 16193)])
#@119 Play the wave file specified in `jabber-alert-presence-wave'.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT PROPOSED-ALERT)\1f
(defalias 'jabber-presence-wave #[1285 "\211\205=\0\304\18\305\ 5!\3062,\0	\211\205)\0\211@\307\ 1@\ 4\"\203\"\0\310\306\ 2A\"\210\ 1A\266\202\202\ e\0\262\ 10\2060\0\n\211\311\232?\205:\0\v\ 1!)\266\202\207" [case-fold-search jabber-alert-presence-wave-alist jabber-alert-presence-wave jabber-play-sound-file t symbol-name --cl-block-nil-- string-match throw ""] 11 (#$ . 16876)])
#@84 Display the roster buffer.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT PROPOSED-ALERT)\1f
(defalias 'jabber-presence-display #[1285 "\211\205\a\0\301\b!\207" [jabber-roster-buffer display-buffer] 7 (#$ . 17356)])
#@86 Switch to the roster buffer.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT PROPOSED-ALERT)\1f
(defalias 'jabber-presence-switch #[1285 "\211\205\a\0\301\b!\207" [jabber-roster-buffer switch-to-buffer] 7 (#$ . 17565)])
#@216 Function for constructing info alert messages.

The argument is INFOTYPE, a symbol telling the kind of info request completed.
This function uses `jabber-info-message-alist' to find a message.

(fn INFOTYPE BUFFER)\1f
(defalias 'jabber-info-default-message #[514 "\ 1\b\236A\301\302\ 3!\303R\207" [jabber-info-message-alist " (buffer " buffer-name ")"] 6 (#$ . 17778)])
#@96 Play the wave file specified in `jabber-alert-info-wave'.

(fn INFOTYPE BUFFER PROPOSED-ALERT)\1f
(defalias 'jabber-info-wave #[771 "\211\205\a\0\b	!\207" [jabber-play-sound-file jabber-alert-info-wave] 5 (#$ . 18146)])
#@75 Display buffer of completed request.

(fn INFOTYPE BUFFER PROPOSED-ALERT)\1f
(defalias 'jabber-info-display #[771 "\211\205\a\0\300\ 2!\207" [display-buffer] 5 (#$ . 18366)])
#@77 Switch to buffer of completed request.

(fn INFOTYPE BUFFER PROPOSED-ALERT)\1f
(defalias 'jabber-info-switch #[771 "\211\205\a\0\300\ 2!\207" [switch-to-buffer] 5 (#$ . 18540)])
#@126 From ALERT function, make ALERT-personal function.

This makes sense only for MUC.

NAME: the name of the sender.

(fn NAME)\1f
(defalias 'define-personal-jabber-alert '(macro . #[257 "\300\ 1!\301\302\303\ 3\"!\304\305\ 2\306\307\310\ 6\b\311BEF\312\313\ 4D\314BBE\207" [symbol-name intern format "%s-personal" progn defun (nick group buffer text title) if (jabber-muc-looks-like-personal-p text group) (nick group buffer text title) cl-pushnew quote ((get 'jabber-alert-muc-hooks 'custom-options))] 11 (#$ . 18718)]))
#@37 

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-beep-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-beep] 11 (#$ . 19230)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-beep-personal] 6)
#@37 

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-wave-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-wave] 11 (#$ . 19560)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-wave-personal] 6)
#@37 

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-echo-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-echo] 11 (#$ . 19890)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-echo-personal] 6)
#@37 

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-switch-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-switch] 11 (#$ . 20220)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-switch-personal] 6)
#@37 

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-display-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-display] 11 (#$ . 20556)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\210\304\305\306\307\310DD\311\312\313\314\315&\a\207" [put jabber-alert-muc-hooks custom-options jabber-muc-display-personal custom-declare-variable jabber-autoanswer-alist funcall function #[0 "\300\207" [nil] 1 ""] "Specific phrases to autoanswer on specific message.\nThe keys are regexps matching the incoming message text, and the values are\nautoanswer phrase." :type (alist :key-type regexp :value-type string) :group jabber-alerts] 8)
#@203 Answer automaticaly when incoming text is in `jabber-autoanswer-alist'.
Answer automaticaly when incoming text match the first element of
`jabber-autoanswer-alist'

(fn FROM BUFFER TEXT PROPOSED-ALERT)\1f
(defalias 'jabber-autoanswer-answer #[1028 "\ 3\205A\0\ 2\205A\0\ 1\205A\0\211\205A\0\b\205A\0\30227\0\b\211\2054\0\211@\303\ 1@\ 5\"\203-\0\304\302\ 2A\"\210\ 1A\266\202\202\19\0\262\ 10\211\205?\0\305	\ 2\"\262\ 1\207" [jabber-autoanswer-alist jabber-buffer-connection --cl-block-nil-- string-match throw jabber-chat-send] 9 (#$ . 21258)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-message-hooks custom-options jabber-autoanswer-answer] 6)
#@206 Answer automaticaly when incoming text is in `jabber-autoanswer-alist'.
Answer automaticaly when incoming text match first element
of `jabber-autoanswer-alist'.

(fn NICK GROUP BUFFER TEXT PROPOSED-ALERT)\1f
(defalias 'jabber-autoanswer-answer-muc #[1285 "\ 4\205E\0\ 3\205E\0\ 2\205E\0\ 1\205E\0\211\205E\0\b\205E\0\3022;\0\b\211\2058\0\211@\303\ 1@\ 5\"\2031\0\304\302\ 2A\"\210\ 1A\266\202\202\1d\0\262\ 10\211\205C\0\305	\ 2\"\262\ 1\207" [jabber-autoanswer-alist jabber-buffer-connection --cl-block-nil-- string-match throw jabber-chat-send] 10 (#$ . 21924)])
(byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\210\304\305!\207" [put jabber-alert-muc-hooks custom-options jabber-autoanswer-answer-muc provide jabber-alert] 6)