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-ezbounce.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:01 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-ezbounce.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-ezbounce.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require erc custom-declare-group erc-ezbounce nil "Interface to the EZBounce IRC bouncer (a virtual IRC server)" :group] 6)
#@62 Regexp used by the EZBouncer to identify itself to the user.
(custom-declare-variable 'erc-ezb-regexp '"^ezbounce!srv$" '(#$ . 800) :group 'erc-ezbounce :type 'string)
#@193 Alist of logins suitable for the server we're connecting to.

The alist's format is as follows:

(((server . port) . (username . password))
  ((server . port) . (username . password))
  ...)
(custom-declare-variable 'erc-ezb-login-alist ''nil '(#$ . 975) :group 'erc-ezbounce :type '(repeat (cons (cons :tag "Server" string string) (cons :tag "Login" string string))))
#@52 Alist of actions to take on NOTICEs from EZBounce.
(defvar erc-ezb-action-alist '(("^\\[awaiting login/pass command\\]$" . erc-ezb-identify) ("^\\[use /quote CONN <server> to connect\\]$" . erc-ezb-select) ("^ID +IRC NICK +TO +TIME$" . erc-ezb-init-session-list) ("^$" . erc-ezb-end-of-session-list) (".*" . erc-ezb-add-session)) (#$ . 1351))
#@37 List of detached EZBounce sessions.
(defvar erc-ezb-session-list nil (#$ . 1700))
(make-variable-buffer-local 'erc-ezb-session-list)
#@75 Indicate whether current notices are expected to be EZB session listings.
(defvar erc-ezb-inside-session-listing nil (#$ . 1839))
#@46 Send EZB commands to the EZBouncer verbatim.
(defalias 'erc-cmd-ezb #[(line &optional force) "\301\302P!\207" [line erc-server-send "EZB "] 3 (#$ . 1975)])
(put 'erc-cmd-EZB 'do-not-parse-args t)
#@187 Return an appropriate EZBounce login for SERVER and PORT.
Look up entries in `erc-ezb-login-alist'. If the username or password
in the alist is `nil', prompt for the appropriate values.
(defalias 'erc-ezb-get-login #[(server port) "\306	B\n\"A\211\205.�@A\211\204�\307\310\311	#!\f\204*�\312\310\313	#!
\f*B)\207" [server port erc-ezb-login-alist login password username assoc read-from-minibuffer format "EZBounce user name for %s:%s: " read-passwd "EZBounce password for %s:%s: "] 6 (#$ . 2179)])
(defalias 'erc-ezb-lookup-action #[(message) "\306	\204+�\n\203+�\n\211@@)\n\211@A)\307
\"\203$�\f\nA*\202�	*\207" [erc-ezb-action-alist found function-alist x function regexp nil string-match message] 4])
#@38 React on an EZBounce NOTICE request.
(defalias 'erc-ezb-notice-autodetect #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H\306H	>\204�\307\312!\210\313H\314!\315
\n\"\2033�\f\2033�\f!\210+\316\207" [parsed cl-struct-erc-response-tags sender message function erc-ezb-regexp 0 error "erc-response.sender accessing a non-erc-response" 2 "erc-response.contents accessing a non-erc-response" 5 erc-ezb-lookup-action string-match nil] 3 (#$ . 2913)])
#@35 Identify to the EZBouncer server.
(defalias 'erc-ezb-identify #[(message) "\305\306	!\"\211\205�\n@\nA\307\310\f\311R!*)\207" [erc-session-server erc-session-port login pass username erc-ezb-get-login erc-port-to-string erc-server-send "LOGIN " " "] 6 (#$ . 3375)])
#@41 Reset the EZBounce session list to nil.
(defalias 'erc-ezb-init-session-list #[(message) "\302\303\211\207" [erc-ezb-session-list erc-ezb-inside-session-listing nil t] 2 (#$ . 3653)])
#@51 Indicate the end of the EZBounce session listing.
(defalias 'erc-ezb-end-of-session-list #[(message) "\301\211\207" [erc-ezb-inside-session-listing nil] 2 (#$ . 3845)])
#@46 Add an EZBounce session to the session list.
(defalias 'erc-ezb-add-session #[(message) "\205\"�\305\306	\"\205\"�\307\310	\"\307\311	\"\307\312	\"\313\314\f\nE\"+\207" [erc-ezb-inside-session-listing message to nick id string-match "^\$[^ \n]+\$ +\$[^ \n]+\$ +\$[^ \n]+\$ +\$[^ \n]+\$$" match-string 1 2 3 add-to-list erc-ezb-session-list] 5 (#$ . 4021)])
#@56 Select an IRC server to use by EZBounce, in ERC style.
(defalias 'erc-ezb-select #[(message) "\205�\303 ?\205#�\304\305\306\307\211\310%\311\304\312\313\314!\"!\315\316\317	\n#!*\207" [erc-ezb-session-list server port erc-ezb-select-session read-from-minibuffer "IRC server: " "" nil erc-server-history-list erc-string-to-port "IRC port: " erc-port-to-string "6667" erc-server-send format "CONN %s %s"] 6 (#$ . 4397)])
#@37 Select a detached EZBounce session.
(defalias 'erc-ezb-select-session #[nil "\302\303\"\211\304\230?\205�\305\306\307	\"!)\207" [erc-ezb-session-list session completing-read "Existing Session (RET to enter a new one): " "" erc-server-send format "REATTACH %s"] 5 (#$ . 4826)])
#@45 Add EZBouncer convenience functions to ERC.
(defalias 'erc-ezb-initialize #[nil "\300\301\302\"\207" [add-hook erc-server-NOTICE-functions erc-ezb-notice-autodetect] 3 (#$ . 5112)])
(provide 'erc-ezbounce)

${this.title}

Code Editor : erc-ezbounce.elc