Gecko [ 122.154.134.11 ]

Name	Size	Permission
erc-autoaway.elc	11.58 KB	-rw-r--r--
erc-backend.elc	154.28 KB	-rw-r--r--
erc-button.elc	16.69 KB	-rw-r--r--
erc-capab.elc	7.67 KB	-rw-r--r--
erc-compat.elc	4.38 KB	-rw-r--r--
erc-dcc.elc	39.39 KB	-rw-r--r--
erc-ezbounce.elc	5.19 KB	-rw-r--r--
erc-fill.elc	6.71 KB	-rw-r--r--
erc-goodies.elc	32.55 KB	-rw-r--r--
erc-hecomplete.elc	7.96 KB	-rw-r--r--
erc-ibuffer.elc	6.77 KB	-rw-r--r--
erc-identd.elc	4.86 KB	-rw-r--r--
erc-imenu.elc	2.61 KB	-rw-r--r--
erc-join.elc	6.03 KB	-rw-r--r--
erc-lang.elc	4.68 KB	-rw-r--r--
erc-list.elc	9.25 KB	-rw-r--r--
erc-log.elc	14.83 KB	-rw-r--r--
erc-match.elc	19.02 KB	-rw-r--r--
erc-menu.elc	6.15 KB	-rw-r--r--
erc-netsplit.elc	7.94 KB	-rw-r--r--
erc-networks.elc	39.94 KB	-rw-r--r--
erc-notify.elc	9.37 KB	-rw-r--r--
erc-page.elc	4.88 KB	-rw-r--r--
erc-pcomplete.elc	10.62 KB	-rw-r--r--
erc-replace.elc	3.85 KB	-rw-r--r--
erc-ring.elc	5.21 KB	-rw-r--r--
erc-services.elc	15.01 KB	-rw-r--r--
erc-sound.elc	5.59 KB	-rw-r--r--
erc-speedbar.elc	10 KB	-rw-r--r--
erc-spelling.elc	4.66 KB	-rw-r--r--
erc-stamp.elc	14.9 KB	-rw-r--r--
erc-track.elc	34.83 KB	-rw-r--r--
erc-truncate.elc	4.18 KB	-rw-r--r--
erc-xdcc.elc	5.74 KB	-rw-r--r--
erc.elc	219.16 KB	-rw-r--r--

Code Editor : erc-services.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:04 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-services.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`erc-services.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\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] 6)
#@441 The mode which is used when identifying to Nickserv.

Possible settings are:.

'autodetect  - Identify when the real Nickserv sends an identify request.
'nick-change - Identify when you log in or change your nickname.
'both        - Do the former if the network supports it, otherwise do the
               latter.
nil          - Disables automatic Nickserv identification.

You can also use M-x erc-nickserv-identify-mode to change modes.
(custom-declare-variable 'erc-nickserv-identify-mode ''both '(#$ . 1138) :group 'erc-services :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])
#@272 Non-nil if Erc-Services mode is enabled.
See the command `erc-services-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-services-mode'.
(custom-declare-variable 'erc-services-mode 'nil '(#$ . 1874) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-services :type 'boolean)
#@144 Toggle ERC services mode.
With arg, turn ERC services mode on if and only if arg is positive.
This mode automates communication with services.
(defalias 'erc-services-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\211\2033�\313 \210\2026�\314 \210\315\316\n\203@�\317\202A�\320\"\210\321 \203e�\322\302!\210\303 \203X�\303 \232\203e�\310\323\n\203b�\324\202c�\325\"\210)\326 \210\n\207" [#1=#:last-message arg erc-services-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Erc-Services mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2318) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-services-mode nil boundp erc-services-mode-map] 5)
#@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 (#$ . 3349) 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 (#$ . 3556) 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=\203#�\307\303\304\310\"\210\311\312\313\"\210\311\314\315\"\207	\316=\203:�\316\303\314\315\"\210\303\312\313\"\210\311\304\310\"\207	\317=\203Q�\317\303\304\310\"\210\303\314\315\"\210\303\312\313\"\207\320\311\304\310\"\210\311\314\315\"\210\311\312\313\"\210\311\304\305\"\207" [erc-networks-mode mode erc-nickserv-identify-mode add-hook erc-server-NOTICE-functions erc-nickserv-identification-autodetect erc-networks-enable 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 (#$ . 4231) (list (intern (completing-read "Choose Nickserv identify mode (RET to disable): " '(("autodetect") ("nick-change") ("both")) nil t)))])
#@52 Ask for the password when identifying to NickServ.
(custom-declare-variable 'erc-prompt-for-nickserv-password 't '(#$ . 5160) :group 'erc-services :type 'boolean)
#@249 Passwords used when identifying to NickServ automatically.

Example of use:
  (setq erc-nickserv-passwords
        '((freenode (("nick-one" . "password")
                     ("nick-two" . "password")))
          (DALnet (("nick" . "password")))))
(custom-declare-variable 'erc-nickserv-passwords 'nil '(#$ . 5330) :group 'erc-services :type '(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"))))))
#@827 Alist of NickServer details, sorted by network.
Every element in the list has the form
  (SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)

SYMBOL is a network identifier, a symbol, as used in `erc-networks-alist'.
NICKSERV is the description of the nickserv in the form nick!user@host.
REGEXP is a regular expression matching the message from nickserv.
NICK is nickserv's nickname.  Use nick@server where necessary/possible.
KEYWORD is the keyword to use in the reply message to identify yourself.
USE-CURRENT indicates whether the current nickname must be used when
  identifying.
ANSWER is the command to use for the answer.  The default is 'privmsg.
SUCCESS-REGEXP is a regular expression matching the message nickserv
  sends when you've successfully identified.
The last two elements are optional.
(custom-declare-variable '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)) '(#$ . 6090) :group 'erc-services :type '(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)))))
(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])
(put 'erc-nickserv-alist-identified-regexp 'byte-optimizer 'byte-compile-inline-expand)
#@117 Run this hook when NickServ acknowledged successful identification.
Hooks are called with arguments (NETWORK NICK).
(custom-declare-variable 'erc-nickserv-identified-hook 'nil '(#$ . 10852) :group 'erc-services :type 'hook)
#@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*
\312H>\2040�\313\314!\210
\315H
\312H>\204B�\313\316!\210
\317H@
\312H>\204U�\313\320!\210
\321H\205\202�\232\205\202�\f\205\202�\322\f\"\205\202�\203z�\323\324!\210\325\326#\210\307.\207" [network entry erc-nickserv-alist sender success-regex parsed erc-network nil assoc 7 0 error "erc-response.sender accessing a non-erc-response" 2 "erc-response.command-args accessing a non-erc-response" 4 "erc-response.contents accessing a non-erc-response" 5 string-match erc-log-aux "NickServ IDENTIFY success notification detected" run-hook-with-args erc-nickserv-identified-hook cl-struct-erc-response-tags sspec nick msg erc-log-p] 5 (#$ . 11083)])
#@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\226�\306 \211\307\206�\310\n\f\"A@*\n\307\311\206+�\310\n\f\"8*\312H>\204=�\313\314!\210\311H\312H>\204Q�\313\315!\210\316H@\312H>\204f�\313\317!\210\320H
\205\224�
\232\205\224�\205\224�\321\"\205\224�\203\216�\322\323!\210\324!\210\307.\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password network entry erc-nickserv-alist sender erc-network nil assoc 2 0 error "erc-response.sender accessing a non-erc-response" "erc-response.command-args accessing a non-erc-response" 4 "erc-response.contents accessing a non-erc-response" 5 string-match erc-log-aux "NickServ IDENTIFY request detected" erc-nickserv-call-identify-function identify-regex parsed cl-struct-erc-response-tags sspec nick msg erc-log-p] 5 (#$ . 12131)])
#@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 (#$ . 13244)])
#@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 (#$ . 13670)])
#@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 (#$ . 14080)])
#@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 (#$ . 14508) (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)

${this.title}

Code Editor : erc-services.elc