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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317\320\321&\210\310\322\312\313\323DD\324\320\325\326\327\316\330\307\304&\207" [require erc erc-networks custom-declare-group erc-services nil "Configuration for IRC services.\n\nOn some networks, there exists a special type of automated irc bot,\ncalled Services.  Those usually allow you to register your nickname,\npost/read memos to other registered users who are currently offline,\nand do various other things.\n\nThis group allows you to set variables to somewhat automate\ncommunication with those Services." :group custom-declare-variable erc-nickserv-identify-mode funcall function #[0 "\300\207" [both] 1 #1=""] "The mode which is used when identifying to Nickserv.\n\nPossible settings are:.\n\n`autodetect'  - Identify when the real Nickserv sends an identify request.\n`nick-change' - Identify when you log in or change your nickname.\n`both'        - Do the former if the network supports it, otherwise do the\n                latter.\nnil           - Disables automatic Nickserv identification.\n\nYou can also use \\[erc-nickserv-identify-mode] to change modes." :type (choice (const autodetect) (const nick-change) (const both) (const nil)) :set #[514 "

L\210\300\301!\205
\302
!\207" [featurep erc-services erc-nickserv-identify-mode] 4 "\n\n(fn SYM VAL)"] erc-services-mode #[0 "\300\207" [nil] 1 #1#] "Non-nil if Erc-Services mode is enabled.\nSee the `erc-services-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-services-mode'." custom-set-minor-mode :initialize custom-initialize-default boolean] 12)
#@250 Toggle ERC services mode.
With a prefix argument ARG, enable services if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode automates communication with services.

(fn &optional ARG)
(defalias 'erc-services-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-services-mode current-message set-default toggle default-value 1 nil t boundp delq erc-services-enable erc-services-disable run-hooks erc-services-mode-hook erc-services-mode-on-hook erc-services-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Services mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1862) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-services-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-services-mode-map erc-services-mode-hook variable-documentation put "Hook run after entering or leaving `erc-services-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-services-mode boundp] 6)
#@27 Enable ERC services mode.
(defalias 'erc-services-enable #[0 "\302\303\304\"\210\305\301	!\207" [erc-services-mode erc-nickserv-identify-mode add-to-list erc-modules services t] 3 (#$ . 3471) nil])
#@28 Disable ERC services mode.
(defalias 'erc-services-disable #[0 "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\306\314\"\207" [erc-modules erc-services-mode delq services nil remove-hook erc-server-NOTICE-functions erc-nickserv-identify-autodetect erc-after-connect erc-nickserv-identify-on-connect erc-nick-changed-functions erc-nickserv-identify-on-nick-change erc-nickserv-identification-autodetect] 3 (#$ . 3676) nil])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\303\306\304\305#\210\303\307\304\305#\207" [defalias erc-nickserv-mode erc-services-mode put definition-name services erc-services-enable erc-services-disable] 4)
#@70 Set up hooks according to which MODE the user has chosen.

(fn MODE)
(defalias 'erc-nickserv-identify-mode #[257 "\302\303\304\"\210\204\f\305 \210\211\306\267\202E\307\302\303\310\"\210\311\312\313\"\210\311\314\315\"\207\316\302\314\315\"\210\302\312\313\"\210\311\303\310\"\207\317\302\303\310\"\210\302\314\315\"\210\302\312\313\"\207\320\311\303\310\"\210\311\314\315\"\210\311\312\313\"\210\311\303\304\"\207" [erc-networks-mode erc-nickserv-identify-mode add-hook erc-server-NOTICE-functions erc-nickserv-identification-autodetect erc-networks-enable #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (autodetect 18 nick-change 35 both 52)) autodetect erc-nickserv-identify-autodetect remove-hook erc-nick-changed-functions erc-nickserv-identify-on-nick-change erc-after-connect erc-nickserv-identify-on-connect nick-change both nil] 4 (#$ . 4349) (byte-code "\300\301\302\303\304\305$!C\207" [intern completing-read "Choose Nickserv identify mode (RET to disable): " (("autodetect") ("nick-change") ("both")) nil t] 6)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\313\314\306\307&\210\300\315\302\303\316DD\317\306\320%\210\300\321\302\303\322DD\323\306\324%\207" [custom-declare-variable erc-prompt-for-nickserv-password funcall function #[0 "\300\207" [t] 1 #1=""] "Ask for the password when identifying to NickServ." :type boolean erc-use-auth-source-for-nickserv-password #[0 "\300\207" [nil] 1 #1#] "Query auth-source for a password when identifiying to NickServ.\nPasswords from `erc-nickserv-passwords' take precedence.  See\nfunction `erc-nickserv-get-password'." :version "28.1" erc-nickserv-passwords #[0 "\300\207" [nil] 1 #1#] "Passwords used when identifying to NickServ automatically.\n`erc-prompt-for-nickserv-password' must be nil for these\npasswords to be used.\n\nExample of use:\n  (setq erc-nickserv-passwords\n        \\='((Libera.Chat ((\"nick-one\" . \"password\")\n                        (\"nick-two\" . \"password\")))\n          (DALnet ((\"nick\" . \"password\")))))" (repeat (list :tag "Network" (choice :tag "Network name" (const Ars) (const Austnet) (const Azzurra) (const BitlBee) (const BRASnet) (const DALnet) (const freenode) (const GalaxyNet) (const GRnet) (const iip) (const Libera\.Chat) (const OFTC) (const QuakeNet) (const Rizon) (const SlashNET) (symbol :tag "Network name")) (repeat :tag "Nickname and password" (cons :tag "Identity" (string :tag "Nick") (string :tag "Password" :secret 42))))) erc-nickserv-alist #[0 "\300\207" [((Ars nil nil "Census" "IDENTIFY" nil nil nil) (Austnet "NickOP!service@austnet.org" "/msg\\s-NickOP@austnet.org\\s-identify\\s-<password>" "nickop@austnet.org" "identify" nil nil nil) (Azzurra "NickServ!service@azzurra.org" "/ns\\s-IDENTIFY\\s-password" "NickServ" "IDENTIFY" nil nil nil) (BitlBee nil nil "&bitlbee" "identify" nil nil nil) (BRASnet "NickServ!services@brasnet.org" "/NickServ\\s-IDENTIFY\\s-senha" "NickServ" "IDENTIFY" nil #1# nil) (DALnet "NickServ!service@dal.net" "/msg\\s-NickServ@services.dal.net\\s-IDENTIFY\\s-<password>" "NickServ@services.dal.net" "IDENTIFY" nil nil nil) (freenode "NickServ!NickServ@services." "This\\s-nickname\\s-is\\s-registered.\\s-Please\\s-choose" "NickServ" "IDENTIFY" nil nil "You\\s-are\\s-now\\s-identified\\s-for\\s-") (GalaxyNet "NS!nickserv@galaxynet.org" "Please\\s-change\\s-nicks\\s-or\\s-authenticate." "NS@services.galaxynet.org" "AUTH" t nil nil) (GRnet "NickServ!service@irc.gr" "This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected." "NickServ" "IDENTIFY" nil nil "Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.") (iip "Trent@anon.iip" "type\\s-/squery\\s-Trent\\s-identify\\s-<password>" "Trent@anon.iip" "IDENTIFY" nil "SQUERY" nil) (Libera\.Chat "NickServ!NickServ@services.libera.chat" "This\\s-nickname\\s-is\\s-registered.\\s-Please\\s-choose" "NickServ" "IDENTIFY" nil nil "You\\s-are\\s-now\\s-identified\\s-for\\s-") (OFTC "NickServ!services@services.oftc.net" nil "NickServ" "IDENTIFY" nil nil "You\\s-are\\s-successfully\\s-identified\\s-as\\s-") (Rizon "NickServ!service@rizon.net" "This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected." "NickServ" "IDENTIFY" nil nil "Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.") (QuakeNet nil nil "Q@CServe.quakenet.org" "auth" t nil nil) (SlashNET "NickServ!services@services.slashnet.org" "/msg\\s-NickServ\\s-IDENTIFY\\s-password" "NickServ@services.slashnet.org" "IDENTIFY" nil nil nil))] 1 #1#] "Alist of NickServer details, sorted by network.\nEvery element in the list has the form\n  (SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)\n\nSYMBOL is a network identifier, a symbol, as used in `erc-networks-alist'.\nNICKSERV is the description of the nickserv in the form nick!user@host.\nREGEXP is a regular expression matching the message from nickserv.\nNICK is nickserv's nickname.  Use nick@server where necessary/possible.\nKEYWORD is the keyword to use in the reply message to identify yourself.\nUSE-CURRENT indicates whether the current nickname must be used when\n  identifying.\nANSWER is the command to use for the answer.  The default is `privmsg'.\nSUCCESS-REGEXP is a regular expression matching the message nickserv\n  sends when you've successfully identified.\nThe last two elements are optional." (repeat (list :tag "Nickserv data" (symbol :tag "Network name") (choice (string :tag "Nickserv's nick!user@host") (const :tag "No message sent by Nickserv" nil)) (choice (regexp :tag "Identify request sent by Nickserv") (const :tag "No message sent by Nickserv" nil)) (string :tag "Identify to") (string :tag "Identify keyword") (boolean :tag "Use current nick in identify message?") (choice :tag "Command to use (optional)" (string :tag "Command") (const :tag "No special command necessary" nil)) (choice :tag "Detect Success" (regexp :tag "Pattern to match") (const :tag "Do not try to detect success" nil))))] 8)
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-sender #[513 "\211\206\301\"A@\207" [erc-nickserv-alist assoc] 5 (#$ . 10337)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-sender compiler-macro erc-nickserv-alist-sender--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-sender--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 1 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 10621)])
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-regexp #[513 "\301
\206	\302\"8\207" [erc-nickserv-alist 2 assoc] 6 (#$ . 11047)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-regexp compiler-macro erc-nickserv-alist-regexp--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-regexp--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 2 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 11333)])
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-nickserv #[513 "\301
\206	\302\"8\207" [erc-nickserv-alist 3 assoc] 6 (#$ . 11759)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-nickserv compiler-macro erc-nickserv-alist-nickserv--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-nickserv--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 3 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 12051)])
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-keyword #[513 "\301
\206	\302\"8\207" [erc-nickserv-alist 4 assoc] 6 (#$ . 12479)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-ident-keyword compiler-macro erc-nickserv-alist-ident-keyword--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-keyword--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 4 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 12786)])
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-use-nick-p #[513 "\301
\206	\302\"8\207" [erc-nickserv-alist 5 assoc] 6 (#$ . 13219)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-use-nick-p compiler-macro erc-nickserv-alist-use-nick-p--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-use-nick-p--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 5 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 13517)])
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-command #[513 "\301
\206	\302\"8\207" [erc-nickserv-alist 6 assoc] 6 (#$ . 13947)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-ident-command compiler-macro erc-nickserv-alist-ident-command--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-command--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 6 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 14254)])
#@32 

(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-identified-regexp #[513 "\301
\206	\302\"8\207" [erc-nickserv-alist 7 assoc] 6 (#$ . 14687)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-identified-regexp compiler-macro erc-nickserv-alist-identified-regexp--inliner] 4)
#@45 

(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-identified-regexp--inliner #[770 "\3002T\301!\203
\202\302\303!\301!\203
\202\302\304!\305\306\307\310\311EEE
=\2035\211\266\202\202>\312DC\"\266\202
=\203J\211\266\202\202S\312DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 7 or assoc erc-nickserv-alist macroexp-let*] 12 (#$ . 15006)])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable erc-nickserv-identified-hook funcall function #[0 "\300\207" [nil] 1 ""] "Run this hook when NickServ acknowledged successful identification.\nHooks are called with arguments (NETWORK NICK)." :type hook] 6)
#@258 Check for NickServ's successful identification notice.
Make sure it is the real NickServ for this network and that it has
specifically confirmed a successful identification attempt.
If this is the case, run `erc-nickserv-identified-hook'.

(fn PROC PARSED)
(defalias 'erc-nickserv-identification-autodetect #[514 "\303 \304
\"A@\305\304\"8\306!	>\204\307\310\311D\"\210\312H\306!	>\2041\307\310\311D\"\210\313H@\306!	>\204F\307\310\311D\"\210\314H\205n\232\205n\205n\315\"\205n\n\203f\316\317!\210\320\321#\210\322\207" [erc-nickserv-alist cl-struct-erc-response-tags erc-log-p erc-network assoc 7 type-of signal wrong-type-argument erc-response 2 4 5 string-match erc-log-aux "NickServ IDENTIFY success notification detected" run-hook-with-args erc-nickserv-identified-hook nil] 12 (#$ . 15729)])
#@272 Identify to NickServ when an identify request is received.
Make sure it is the real NickServ for this network.
If `erc-prompt-for-nickserv-password' is non-nil, prompt the user for the
password for this nickname, otherwise try to send it automatically.

(fn PROC PARSED)
(defalias 'erc-nickserv-identify-autodetect #[514 "?\205\f	?\205\f\n??\205~\306 \307
\"A@\310\307\"8\311!\f>\204.\312\313\314D\"\210\310H\311!\f>\204A\312\313\314D\"\210\315H@\311!\f>\204V\312\313\314D\"\210\316H\205|\232\205|\205|\317\"\205|
\203v\320\321!\210\322\323\"\210\323\266\206\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password erc-use-auth-source-for-nickserv-password erc-nickserv-alist cl-struct-erc-response-tags erc-log-p erc-network assoc 2 type-of signal wrong-type-argument erc-response 4 5 string-match erc-log-aux "NickServ IDENTIFY request detected" erc-nickserv-identify nil] 11 (#$ . 16568)])
#@91 Identify to Nickserv after the connection to the server is established.

(fn SERVER NICK)
(defalias 'erc-nickserv-identify-on-connect #[514 "\302=\205\303 \304\305	\"8\262
?\205\306\307\"\207" [erc-nickserv-identify-mode erc-nickserv-alist both erc-network 2 assoc erc-nickserv-identify nil] 7 (#$ . 17508)])
#@70 Identify to Nickserv whenever your nick changes.

(fn NICK OLD-NICK)
(defalias 'erc-nickserv-identify-on-nick-change #[514 "\302=\205\303 \304\305	\"8\262
?\205\306\307\"\207" [erc-nickserv-identify-mode erc-nickserv-alist both erc-network 2 assoc erc-nickserv-identify nil] 7 (#$ . 17830)])
#@524 Return the password for NICK from configured sources.
First, a password for NICK is looked up in
`erc-nickserv-passwords'.  Then, it is looked up in auth-source
if `erc-use-auth-source-for-nickserv-password' is not nil.
Finally, interactively prompt the user, if
`erc-prompt-for-nickserv-password' is true.

As soon as some source returns a password, the sequence of
lookups stops and this function returns it (or returns nil if it
is empty).  Otherwise, no corresponding password was found, and
it returns nil.

(fn NICK)
(defalias 'erc-nickserv-get-password #[257 "\306\211\211\307 \310
!\203r\211q\210\262	\262\n\262)\210\203+\311\311\"A@\"A\206k\f\203^\312\313\314\315\316\317\320\321\322\n\"\323
&\n@\211\205Y\324
\325\"\326
!\203V\211 \202W\211\262
\262
\206k
\205k\327\321\330#!\211\205w\211\331\230?\205w\211\207" [erc-network erc-session-server erc-session-port erc-nickserv-passwords erc-use-auth-source-for-nickserv-password erc-prompt-for-nickserv-password nil erc-server-buffer buffer-live-p assoc auth-source-search :max 1 :require (:secret) :host :port format "%s" :user plist-get :secret functionp read-passwd "NickServ password for %s on %s (RET to cancel): " ""] 15 (#$ . 18136)])
#@127 Send an "identify <PASSWORD>" message to NickServ.
Returns t if the message could be sent, nil otherwise.

(fn NICK PASSWORD)
(defalias 'erc-nickserv-send-identify #[514 "\302\303 \304
	\"\305
\206\302	\2368\206\306\307\206\302	\2368\206\"\310\311\206*\302	\2368\2034\312P\2025\313\314\206=\302	\2368\206B\315\316
\312\312
\260\")\207" [erc-auto-discard-away erc-nickserv-alist nil erc-network assoc 3 "NickServ" 4 "IDENTIFY" 5 " " "" 6 "PRIVMSG" erc-message] 16 (#$ . 19370)])
#@60 Call `erc-nickserv-identify' with NICKNAME.

(fn NICKNAME)
(defalias 'erc-nickserv-call-identify-function #[257 "\300\301\"\207" [erc-nickserv-identify nil] 4 (#$ . 19878)])
(make-obsolete 'erc-nickserv-call-identify-function 'erc-nickserv-identify "28.1")
#@459 Identify to NickServ immediately.
Identification will either use NICK or the current nick if not
provided, and some password obtained through
`erc-nickserv-get-password' (which see).  If no password can be
found, an error is reported through `erc-error'.

Interactively, the user will be prompted for NICK, an empty
string meaning to default to the current nick.

Returns t if the identify message could be sent, nil otherwise.

(fn &optional PASSWORD NICK)
(defalias 'erc-nickserv-identify #[512 "\211\203\n\211\300\230\203\301 \262

\204\302
!\262
\203 \303
\"\207\304\305\"\210\306\207" ["" erc-current-nick erc-nickserv-get-password erc-nickserv-send-identify erc-error "Cannot find a password for nickname %s" nil] 5 (#$ . 20143) (byte-code "\300\301\302\300\211\211\303\304 &D\207" [nil read-from-minibuffer "Nickname: " erc-nick-history-list erc-current-nick] 8)])
(provide 'erc-services)