;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316%\210\317\320\321\322\306\323%\210\307\324\311\312\325DD\326\327\330\331\332\315\333\306\334&\207" [require erc custom-declare-group erc-capab nil "Support for dancer-ircd's CAPAB settings." :group custom-declare-variable erc-capab-identify-prefix funcall function #[0 "\300\207" ["*"] 1 #1=""] "The prefix used for unidentified users.\n\nIf you change this from the default \"*\", be sure to use a\ncharacter not found in IRC nicknames to avoid confusion." :type (choice string (const nil)) custom-declare-face erc-capab-identify-unidentified ((t)) "Face to use for `erc-capab-identify-prefix'." erc-faces erc-capab-identify-mode #[0 "\300\207" [nil] 1 #1#] "Non-nil if Erc-Capab-Identify mode is enabled.\nSee the `erc-capab-identify-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-capab-identify-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean erc-capab-identify] 12)
#@272 Toggle ERC capab-identify mode.
With a prefix argument ARG, enable capab-identify if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Handle dancer-ircd's CAPAB IDENTIFY-MSG and IDENTIFY-CTCP.

(fn &optional ARG)
(defalias 'erc-capab-identify-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-capab-identify-mode current-message set-default toggle default-value 1 nil t boundp delq erc-capab-identify-enable erc-capab-identify-disable run-hooks erc-capab-identify-mode-hook erc-capab-identify-mode-on-hook erc-capab-identify-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Capab-Identify mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1226) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-capab-identify-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-capab-identify-mode-map erc-capab-identify-mode-hook variable-documentation put "Hook run after entering or leaving `erc-capab-identify-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-capab-identify-mode boundp] 6)
#@33 Enable ERC capab-identify mode.
(defalias 'erc-capab-identify-enable #[0 "\301\302\303\"\210\304\305\306\307\304#\210\305\310\311\"\210\305\312\313\"\210\305\314\313\"\210\305\315\316\304#\210\317\320\321\322!\"\207" [erc-capab-identify-mode add-to-list erc-modules capab-identify t add-hook erc-server-005-functions erc-capab-identify-setup erc-server-290-functions erc-capab-identify-activate erc-server-PRIVMSG-functions erc-capab-identify-remove/set-identified-flag erc-server-NOTICE-functions erc-insert-modify-hook erc-capab-identify-add-prefix mapc #[257 "\211\205r\211q\210\300 )\207" [erc-capab-identify-setup] 2 "\n\n(fn BUFFER)"] erc-buffer-list erc-open-server-buffer-p] 4 (#$ . 2935) nil])
#@34 Disable ERC capab-identify mode.
(defalias 'erc-capab-identify-disable #[0 "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\207" [erc-modules erc-capab-identify-mode delq capab-identify nil remove-hook erc-server-005-functions erc-capab-identify-setup erc-server-290-functions erc-capab-identify-activate erc-insert-modify-hook erc-capab-identify-add-prefix] 3 (#$ . 3647) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-capab-identify-mode definition-name capab-identify erc-capab-identify-enable erc-capab-identify-disable] 4)
#@40 CAPAB IDENTIFY-MSG has been activated.
(defvar erc-capab-identify-activated nil (#$ . 4246))
(make-variable-buffer-local 'erc-capab-identify-activated)
#@63 CAPAB IDENTIFY-MSG and IDENTIFY-CTCP messages have been sent.
(defvar erc-capab-identify-sent nil (#$ . 4404))
(make-variable-buffer-local 'erc-capab-identify-sent)
#@295 Set up CAPAB IDENTIFY on the current server.

Optional argument PROC is the current server's process.
Optional argument PARSED is the current message, a response struct.

These arguments are sent to this function when called as a hook in
`erc-server-005-functions'.

(fn &optional PROC PARSED)
(defalias 'erc-capab-identify-setup #[512 "?\205\301 \207" [erc-capab-identify-sent erc-capab-identify-send-messages] 3 (#$ . 4576)])
#@57 Send CAPAB IDENTIFY messages if the server supports it.
(defalias 'erc-capab-identify-send-messages #[0 ";\205&\304\305\"\205&\306\307	\"\205&\n\203\310\311!\210\312\313!\210\312\314!\210\315\211\207" [erc-server-version erc-server-parameters erc-log-p erc-capab-identify-sent string-match "^\\(dancer-ircd\\|hyperion\\)" assoc "CAPAB" erc-log-aux "Sending CAPAB IDENTIFY-MSG and IDENTIFY-CTCP" erc-server-send "CAPAB IDENTIFY-MSG" "CAPAB IDENTIFY-CTCP" t] 3 (#$ . 5013)])
#@171 Set `erc-capab-identify-activated' and display an activation message.

PROC is the current server's process.
PARSED is an `erc-parsed' response struct.

(fn PROC PARSED)
(defalias 'erc-capab-identify-activate #[514 "\302
!>\204\303\304\305D\"\210\211\306H\307\235\2056\310\311
\312\313\314\315\302!>\2040\303\304\305	D\"\210\306H\"$\207" [cl-struct-erc-response-tags erc-capab-identify-activated type-of signal wrong-type-argument erc-response 5 ("IDENTIFY-MSG" "IDENTIFY-CTCP") t erc-display-message notice active format "%s activated"] 12 (#$ . 5501)])
#@177 Remove PARSED message's id flag and add the `erc-identified' text property.

PROC is the current server's process.
PARSED is an `erc-parsed' response struct.

(fn PROC PARSED)
(defalias 'erc-capab-identify-remove/set-identified-flag #[514 "\303
!>\204\304\305\306D\"\210\211\307H	\205R\310\311\"\205R\303!>\204,\304\305\306D\"\210
\307\n\203K\312\313\314\"\315\313\316\"\317\230\203F\316\202G\320#\202O\313\314\"I\210\321\207" [cl-struct-erc-response-tags erc-capab-identify-activated erc-capab-identify-mode type-of signal wrong-type-argument erc-response 5 string-match "^\\([-\\+]\\)\\(.+\\)$" propertize match-string 2 erc-identified 1 "+" 0 nil] 11 (#$ . 6076)])
#@70 Add `erc-capab-identify-prefix' to nickname if user is unidentified.
(defalias 'erc-capab-identify-add-prefix #[0 "\205C\302 \303
!\205r\211q\210	)\262
\205C\304 \206eb\210\305\306`!!\211\205Aeb\205A\307\310!\311\312#\205A\313\224b\210\314\315\316#c\262
\207" [erc-capab-identify-prefix erc-capab-identify-activated erc-server-buffer buffer-live-p erc-find-parsed-property erc-capab-identify-get-unidentified-nickname erc-get-parsed-vector re-search-forward regexp-quote nil t 0 propertize font-lock-face erc-capab-identify-unidentified] 5 (#$ . 6769)])
#@106 Return the nickname of the user if unidentified.
PARSED is an `erc-parsed' response struct.

(fn PARSED)
(defalias 'erc-capab-identify-get-unidentified-nickname #[257 "\301
!>\2051\302\303\304\301!>\204\305\306\307D\"\210\310H#\303=\2051\311
!\211\205/\312
!@\262
\207" [cl-struct-erc-response-tags type-of get-text-property 0 erc-identified signal wrong-type-argument erc-response 5 erc-get-parsed-vector-nick erc-parse-user] 8 (#$ . 7342)])
(provide 'erc-capab)