HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/erc/erc-services.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\307\304\314\315\316\317&	\210\310\320\305\321\316\322\323\324\307\304\314\325&\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 'both "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 M-x erc-nickserv-identify-mode to change modes." :type (choice (const autodetect) (const nick-change) (const both) (const nil)) :set #[(sym val) "	L\210\302\303!\205
\304	!\207" [sym val featurep erc-services erc-nickserv-identify-mode] 2] erc-services-mode "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)
#@230 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.
(defalias 'erc-services-mode #[(&optional arg) "\304 \305\302	\306=\203\307\302!?\202\310	!\311V\"\210\n\203#\312 \210\202&\313 \210\314\315\307\302!\2032\316\2023\317\"\210\320\321!\203^\322\302!\210\304 \203K\304 \232\203^\323\324\325\307\302!\203Y\326\202Z\327#\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-services-mode local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 2099) (list (or current-prefix-arg 'toggle))])
(defvar erc-services-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\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.)" add-minor-mode erc-services-mode nil boundp] 6)
#@27 Enable ERC services mode.
(defalias 'erc-services-enable #[nil "\302\303\304\"\210\305\301	!\207" [erc-services-mode erc-nickserv-identify-mode add-to-list erc-modules services t] 3 (#$ . 3505) nil])
#@28 Disable ERC services mode.
(defalias 'erc-services-disable #[nil "\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 (#$ . 3712) 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)
#@59 Set up hooks according to which MODE the user has chosen.
(defalias 'erc-nickserv-identify-mode #[(mode) "\303\304\305\"\210\204\f\306 \210	\307\267\202E\310\303\304\311\"\210\312\313\314\"\210\312\315\316\"\207\317\303\315\316\"\210\303\313\314\"\210\312\304\311\"\207\320\303\304\311\"\210\303\315\316\"\210\303\313\314\"\207\321\312\304\311\"\210\312\315\316\"\210\312\313\314\"\210\312\304\305\"\207" [erc-networks-mode 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] 3 (#$ . 4387) (list (intern (completing-read "Choose Nickserv identify mode (RET to disable): " '(("autodetect") ("nick-change") ("both")) nil t)))])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\207" [custom-declare-variable erc-prompt-for-nickserv-password t "Ask for the password when identifying to NickServ." :group erc-services :type boolean erc-nickserv-passwords nil "Passwords used when identifying to NickServ automatically.\n\nExample of use:\n  (setq erc-nickserv-passwords\n        \\='((freenode ((\"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 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 '((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 "" 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) (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)) "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)
(defalias 'erc-nickserv-alist-sender #[(network &optional entry) "\206\303	\n\"A@\207" [entry network erc-nickserv-alist assoc] 3])
(put 'erc-nickserv-alist-sender 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'erc-nickserv-alist-regexp #[(network &optional entry) "\303\206	\304	\n\"8\207" [entry network erc-nickserv-alist 2 assoc] 4])
(put 'erc-nickserv-alist-regexp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'erc-nickserv-alist-nickserv #[(network &optional entry) "\303\206	\304	\n\"8\207" [entry network erc-nickserv-alist 3 assoc] 4])
(put 'erc-nickserv-alist-nickserv 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'erc-nickserv-alist-ident-keyword #[(network &optional entry) "\303\206	\304	\n\"8\207" [entry network erc-nickserv-alist 4 assoc] 4])
(put 'erc-nickserv-alist-ident-keyword 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'erc-nickserv-alist-use-nick-p #[(network &optional entry) "\303\206	\304	\n\"8\207" [entry network erc-nickserv-alist 5 assoc] 4])
(put 'erc-nickserv-alist-use-nick-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'erc-nickserv-alist-ident-command #[(network &optional entry) "\303\206	\304	\n\"8\207" [entry network erc-nickserv-alist 6 assoc] 4])
(put 'erc-nickserv-alist-ident-command 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'erc-nickserv-alist-identified-regexp #[(network &optional entry) "\303\206	\304	\n\"8\207" [entry network erc-nickserv-alist 7 assoc] 4])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\207" [put erc-nickserv-alist-identified-regexp byte-optimizer byte-compile-inline-expand custom-declare-variable erc-nickserv-identified-hook nil "Run this hook when NickServ acknowledged successful identification.\nHooks are called with arguments (NETWORK NICK)." :group erc-services :type hook] 8)
#@240 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'.
(defalias 'erc-nickserv-identification-autodetect #[(proc parsed) "\306 \211\307	\206\310\n\"A@*\307\311	\206 \310\n\"8*\312
!>\2043\313\314\315
D\"\210
\316H\312
!>\204H\313\314\315
D\"\210
\317H@\312
!>\204^\313\314\315
D\"\210
\320H\205\215\232\205\215\f\205\215\321\f\"\205\215\322\205\203\323!\266\324\325#\210\307.\207" [network entry erc-nickserv-alist sender success-regex parsed erc-network nil assoc 7 type-of signal wrong-type-argument erc-response 2 4 5 string-match "NickServ IDENTIFY success notification detected" erc-log-aux run-hook-with-args erc-nickserv-identified-hook cl-struct-erc-response-tags sspec nick msg erc-log-p] 5 (#$ . 11512)])
#@254 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.
(defalias 'erc-nickserv-identify-autodetect #[(proc parsed) "?\205	??\205\244\306 \211\307\206\310\n\f\"A@*\n\307\311\206+\310\n\f\"8*\312!>\204A\313\314\315D\"\210\311H\312!>\204Y\313\314\315D\"\210\316H@\312!>\204r\313\314\315D\"\210\317H
\205\242
\232\205\242\205\242\320\"\205\242\321\205\232\322!\266\323!\210\307.\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password network entry erc-nickserv-alist sender erc-network nil assoc 2 type-of signal wrong-type-argument erc-response 4 5 string-match "NickServ IDENTIFY request detected" erc-log-aux erc-nickserv-call-identify-function identify-regex parsed cl-struct-erc-response-tags sspec nick msg erc-log-p] 5 (#$ . 12465)])
#@73 Identify to Nickserv after the connection to the server is established.
(defalias 'erc-nickserv-identify-on-connect #[(server nick) "\204		?\206\n\306=\205\307 \310\311\206\312\f
\"8*?\205'\313\f!\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password erc-nickserv-identify-mode entry network erc-nickserv-alist both erc-network nil 2 assoc erc-nickserv-call-identify-function nick] 4 (#$ . 13483)])
#@50 Identify to Nickserv whenever your nick changes.
(defalias 'erc-nickserv-identify-on-nick-change #[(nick old-nick) "\204		?\206\n\306=\205\307 \310\311\206\312\f
\"8*?\205'\313\f!\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password erc-nickserv-identify-mode entry network erc-nickserv-alist both erc-network nil 2 assoc erc-nickserv-call-identify-function nick] 4 (#$ . 13909)])
#@157 Call `erc-nickserv-identify' interactively or run it with NICKNAME's
password.
The action is determined by the value of `erc-prompt-for-nickserv-password'.
(defalias 'erc-nickserv-call-identify-function #[(nickname) "\203\303\304!\207	\205\304\305\n\305\306 	\"A@\"A!\207" [erc-prompt-for-nickserv-password erc-nickserv-passwords nickname call-interactively erc-nickserv-identify assoc erc-network] 6 (#$ . 14319)])
#@118 Send an "identify <PASSWORD>" message to NickServ.
When called interactively, read the password using `read-passwd'.
(defalias 'erc-nickserv-identify #[(password) "\205\201\306\230?\205\201\307\310 \311\n\"\307\f\312
\206\"\311\n\"8*\206(\313\307\f\314
\2067\311\n\"8*\206=\315\307\f\316
\206L\311\n\"8*\203X\317 \320P\202Y\306\307\f\321
\206h\311\n\"8*\206n\322\323\320\320\260\".\207" [password erc-auto-discard-away network erc-nickserv-alist nickserv-info entry "" nil erc-network assoc 3 "NickServ" 4 "IDENTIFY" 5 erc-current-nick " " 6 "PRIVMSG" erc-message nickserv identify-word nick msgtype] 8 (#$ . 14747) (list (read-passwd (format "NickServ password for %s on %s (RET to cancel): " (erc-current-nick) (or (and (erc-network) (symbol-name (erc-network))) "Unknown network"))))])
(provide 'erc-services)