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-dcc.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-dcc.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-dcc.el' was compiled for Emacs 19.29 or later"))

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

(require 'erc)
#@257 Non-nil if Erc-Dcc mode is enabled.
See the command `erc-dcc-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-dcc-mode'.
(custom-declare-variable 'erc-dcc-mode 'nil '(#$ . 625) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-dcc :type 'boolean)
#@134 Toggle ERC dcc mode.
With arg, turn ERC dcc mode on if and only if arg is positive.
Provide Direct Client-to-Client support for ERC.
(defalias 'erc-dcc-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-dcc-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-dcc-enable erc-dcc-disable run-hooks erc-dcc-mode-hook erc-dcc-mode-on-hook erc-dcc-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Dcc mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1043) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-dcc-mode nil boundp erc-dcc-mode-map] 5)
#@22 Enable ERC dcc mode.
(defalias 'erc-dcc-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-dcc-mode add-to-list erc-modules dcc t add-hook erc-server-401-functions erc-dcc-no-such-nick] 3 (#$ . 2014) nil])
#@23 Disable ERC dcc mode.
(defalias 'erc-dcc-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-dcc-mode delq dcc nil remove-hook erc-server-401-functions erc-dcc-no-such-nick] 3 (#$ . 2237) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312\313%\207" [put erc-dcc-mode definition-name dcc erc-dcc-enable erc-dcc-disable custom-declare-group erc-dcc nil "DCC stands for Direct Client Communication, where you and your\nfriend's client programs connect directly to each other,\nbypassing IRC servers and their occasional \"lag\" or \"split\"\nproblems.  Like /MSG, the DCC chat is completely private.\n\nUsing DCC get and send, you can transfer files directly from and to other\nIRC users." :group erc] 6)
#@55 *If non-nil, be verbose about DCC activity reporting.
(custom-declare-variable 'erc-dcc-verbose 'nil '(#$ . -3013) :group 'erc-dcc :type 'boolean)
#@87 List of valid DCC connection types.
All values of the list must be uppercase strings.
(defconst erc-dcc-connection-types '("CHAT" "GET" "SEND") (#$ . 3166))
#@1166 List of DCC connections. Looks like:
  ((:nick "nick!user@host" :type GET :peer proc :parent proc :size size :file file)
   (:nick "nick!user@host" :type CHAT :peer proc :parent proc)
   (:nick "nick" :type SEND :peer server-proc :parent parent-proc :file
   file :sent <marker> :confirmed <marker>))

:nick - a user or userhost for the peer. combine with :parent to reach them

:type - the type of DCC connection - SEND for outgoing files, GET for
         incoming, and CHAT for both directions. To tell which end started
         the DCC chat, look at :peer

:peer - the other end of the DCC connection. In the case of outgoing DCCs,
         this represents a server process until a connection is established

:parent - the server process where the dcc connection was established.
           Note that this can be nil or an invalid process since a DCC
           connection is in general independent from a particular server
           connection after it was established.

:file - for outgoing sends, the full path to the file. for incoming sends,
         the suggested filename or vetted filename

:size - size of the file, may be nil on incoming DCCs
(defvar erc-dcc-list nil (#$ . 3331))
#@63 Add a new entry of type TYPE to `erc-dcc-list' and return it.
(defalias 'erc-dcc-list-add #[(type nick peer parent &rest args) "\306\307\310	\311\n\312\257\f\"
B\211@\207" [nick type peer parent args erc-dcc-list append :nick :type :peer :parent] 9 (#$ . 4540)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-dcc-connect-function default-boundp set-default erc-dcc-open-network-stream] 3)
(defalias 'erc-dcc-open-network-stream #[(procname buffer addr port entry) "\304	\n$\207" [procname buffer addr port open-network-stream] 5])
(erc-define-catalog 'english '((dcc-chat-discarded . "DCC: previous chat request from %n (%u@%h) discarded") (dcc-chat-ended . "DCC: chat with %n ended %t: %e") (dcc-chat-no-request . "DCC: chat request from %n not found") (dcc-chat-offered . "DCC: chat offered by %n (%u@%h:%p)") (dcc-chat-offer . "DCC: offering chat to %n") (dcc-chat-accept . "DCC: accepting chat from %n") (dcc-chat-privmsg . "=%n= %m") (dcc-closed . "DCC: Closed %T from %n") (dcc-command-undefined . "DCC: %c undefined subcommand. GET, CHAT and LIST are defined.") (dcc-ctcp-errmsg . "DCC: `%s' is not a DCC subcommand known to this client") (dcc-ctcp-unknown . "DCC: unknown dcc command `%q' from %n (%u@%h)") (dcc-get-bytes-received . "DCC: %f: %b bytes received") (dcc-get-complete . "DCC: file %f transfer complete (%s bytes in %t seconds)") (dcc-get-cmd-aborted . "DCC: Aborted getting %f from %n") (dcc-get-file-too-long . "DCC: %f: File longer than sender claimed; aborting transfer") (dcc-get-notfound . "DCC: %n hasn't offered %f for DCC transfer") (dcc-list-head . "DCC: From      Type  Active  Size            Filename") (dcc-list-line . "DCC: --------  ----  ------  --------------  --------") (dcc-list-item . "DCC: %-8n  %-4t  %-6a  %-14s  %f") (dcc-list-end . "DCC: End of list.") (dcc-malformed . "DCC: error: %n (%u@%h) sent malformed request: %q") (dcc-privileged-port . "DCC: possibly bogus request: %p is a privileged port.") (dcc-request-bogus . "DCC: bogus dcc `%r' from %n (%u@%h)") (dcc-send-finished . "DCC: SEND of %f to %n finished (size %s)") (dcc-send-offered . "DCC: file %f offered by %n (%u@%h) (size %s)") (dcc-send-offer . "DCC: offering %f to %n")))
#@420 Return the first matching entry in `erc-dcc-list' which satisfies the
constraints given as a plist in ARGS. Returns nil on no match.

The property :nick is treated specially, if it contains a '!' character,
it is treated as a nick!user@host string, and compared with the :nick property
value of the individual elements using string-equal. Otherwise it is
compared with `erc-nick-equal-p' which is IRC case-insensitive.
(defalias 'erc-dcc-member #[(&rest args) "\306\211\203\235�\n\204\235�@\f\307\203\214�
\203\214�@\211A@)\211AA)\310\"\205H�\311\"\312=\203c�\313\314\"\203c�	\203c�	\230\204\210�\312=\203�	\203�\203�\315\316	!\316!\"\204\210�	=\204\210�\306*\202�
\203\226�\202\231�A+\202�\n+\207" [erc-dcc-list test result list args cont nil t plist-member plist-get :nick string-match "!" erc-nick-equal-p erc-extract-nick prem elt x val prop] 5 (#$ . 6781)])
#@85 Convert an integer into a packed string in network byte order,
which is big-endian.
(defalias 'erc-pack-int #[(value) "\304W\203\n�\305\306!\210\304U\203�\304\202!�\307\211\310!\310\311!\245!\312\245!\211\313V\203,�\305\314!\210)\315\313\304\"\316\n\304Y\203R�\304V\203R�\n\317\246I\210\317\245\nS\211\2025�*\207" [value len i str 0 error "ERC-DCC (erc-pack-int): packet size is negative" ceiling log 2 8.0 4 "ERC-DCC (erc-pack-int): packet too large" make-string 3 256] 6 (#$ . 7713)])
#@39 Maximum number of bytes for a fixnum.
(defconst erc-most-positive-int-bytes (byte-code "\301\211\302!\302\303!\245!\304\245!\207" [most-positive-fixnum ceiling log 2 8.0] 5) (#$ . 8220))
#@63 Content of the most significant byte of most-positive-fixnum.
(defconst erc-most-positive-int-msb (byte-code "\302	S\303_[\"\207" [most-positive-fixnum erc-most-positive-int-bytes lsh 8] 4) (#$ . 8414))
#@41 Unpack a packed string into an integer.
(defalias 'erc-unpack-int #[(str) "G\306	\nV\203�\nH\306=\203�\nT\202�\n\306V\203(�\n\307O	\nZ)	\310^V\204?�	=\203C�\306H\fV\203C�\311\312!\210\306\211
	W\203f�\313\314	
\315#H
\316_\"\\
T\211\202I�+\207" [str len start erc-most-positive-int-bytes erc-most-positive-int-msb count 0 nil 4 error "ERC-DCC (erc-unpack-int): packet to send is too large" lsh - 1 8 num] 8 (#$ . 8624)])
(byte-code "\301B\302\303\304\305\306\307\310\"\311#\312Q!\207" [current-load-list erc-dcc-ipv4-regexp (lambda (#1=#:defconst-tmp-var) (defconst erc-dcc-ipv4-regexp #1#)) "^" mapconcat identity make-list 4 "\$[0-9]\\{1,3\\}\$" "\\." "$"] 7)
#@121 Convert IP address to its decimal representation.
Argument IP is the address as a string.  The result is also a string.
(defalias 'erc-ip-to-decimal #[(ip) "\304	\"\204�\305\306!\207\307\310\311	\312\"\"\313\n@\314_\nA@\315_\316\n8\317_\320\n8$t\2033�\321\322	#\2027�\323\324\"*\207" [erc-dcc-ipv4-regexp ip ips res string-match error "Not an IP address" mapcar #[(str) "\302!\211\303Y\203�	\304W\203�	\202�\305\306	\")\207" [str n string-to-number 0 256 error "%d out of range"] 4] split-string "\\." + 16777216.0 65536.0 2 256.0 3 message "%s is %.0f" format "%.0f"] 6 (#$ . 9322) "sIP Address: "])
#@85 Convert a decimal representation DEC to an IP address.
The result is also a string.
(defalias 'erc-decimal-to-ip #[(dec) ";\203�\306\307P!\310\311\245!	\312_Z\310\n\313\245!\n\314_Z\310\f\315\245!\f
\316_Z\310!\317\320	
%.\207" [dec first first-rest second second-rest third string-to-number ".0" floor 16777216.0 16777216.0 65536.0 65536.0 256.0 256.0 format "%s.%s.%s.%s" third-rest fourth] 6 (#$ . 9940)])
#@157 IP address to listen on when offering files.
Should be set to a string or nil.  If nil, automatic detection of
the host interface to use will be attempted.
(custom-declare-variable 'erc-dcc-listen-host 'nil '(#$ . 10378) :group 'erc-dcc :type (byte-code "\301\302\303\304\305F\306\303\307\310\257E\207" [erc-dcc-ipv4-regexp choice const :tag "Auto-detect" nil string "IP-address" :valid-regexp] 7))
#@127 IP address to use for outgoing DCC offers.
Should be set to a string or nil.  If nil, use the value of
`erc-dcc-listen-host'.
(custom-declare-variable 'erc-dcc-public-host 'nil '(#$ . 10786) :group 'erc-dcc :type (byte-code "\301\302\303\304\305F\306\303\307\310\257E\207" [erc-dcc-ipv4-regexp choice const :tag "Same as erc-dcc-listen-host" nil string "IP-address" :valid-regexp] 7))
#@307 *How to treat incoming DCC Send requests.
'ask - Report the Send request, and wait for the user to manually accept it
       You might want to set `erc-dcc-auto-masks' for this.
'auto - Automatically accept the request and begin downloading the file
'ignore - Ignore incoming DCC Send requests completely.
(custom-declare-variable 'erc-dcc-send-request ''ask '(#$ . -11180) :group 'erc-dcc :type '(choice (const ask) (const auto) (const ignore)))
#@56 Returns the local IP address used for an open PROCess.
(defalias 'erc-dcc-get-host #[(proc) "\301\302\303\"\304\"\207" [proc format-network-address process-contact :local t] 4 (#$ . 11633)])
#@149 Determine the IP address we are using.
If variable `erc-dcc-host' is non-nil, use it.  Otherwise call
`erc-dcc-get-host' on the erc-server-process.
(defalias 'erc-dcc-host #[nil "\206
�\302	!\206
�\303\304!\207" [erc-dcc-listen-host erc-server-process erc-dcc-get-host error "Unable to determine local address"] 2 (#$ . 11832)])
#@150 If nil, any available user port is used for outgoing DCC connections.
If set to a cons, it specifies a range of ports to use in the form (min . max)
(custom-declare-variable 'erc-dcc-port-range 'nil '(#$ . 12169) :group 'erc-dcc :type '(choice (const :tag "Any port" nil) (cons :tag "Port range" (integer :tag "Lower port") (integer :tag "Upper port"))))
#@258 List of regexps matching user identifiers whose DCC send offers should be
accepted automatically.  A user identifier has the form "nick!login@host".
For instance, to accept all incoming DCC send offers automatically, add the
string ".*!.*@.*" to this list.
(custom-declare-variable 'erc-dcc-auto-masks 'nil '(#$ . 12531) :group 'erc-dcc :type '(repeat regexp))
#@105 Start listening on a port for an incoming DCC connection. Returns the newly
created subprocess, or nil.
(defalias 'erc-dcc-server #[(name filter sentinel) "\203	�@\206\n�\304\205�A\305	\204 �\306\307\310\217\210\202�	+\207" [erc-dcc-port-range process upper port t nil err (byte-code "\305\306\307\310\311\312 \313	\314\315\316\310\317\n\320\321\322\323\315&\324\f!\2036�\325\326!\203+�\326\f\327\211#\210\325\330!\2036�\330\f\310\"\210\310\207" [name port filter sentinel process make-network-process :name :buffer nil :host erc-dcc-host :service :nowait t :noquery :filter :sentinel :log erc-dcc-server-accept :server processp fboundp set-process-coding-system binary set-process-filter-multibyte] 21) ((file-error (byte-code "\211A@)\304\230\203�\211AA)@\305\230\204�\306@A\"\210\nT\211W\204+�\307\310!\210\306\207" [err x port upper "Cannot bind server socket" "address already in use" signal error "No available ports in erc-dcc-port-range"] 4)))] 3 (#$ . 12899)])
#@101 Log an accepted DCC offer, then terminate the listening process and set up
the accepted connection.
(defalias 'erc-dcc-server-accept #[(server client message) "\203
�\305\306\307	\n$!\210\310\311\"\205/�\312	!\205/�\312\n!\205/�\313\314	\"\315\f\314\n#\316	!)\207" [erc-log-p server client message elt erc-log-aux format "(erc-dcc-server-accept): server %s client %s message %s" string-match "^accept from " processp erc-dcc-member :peer plist-put delete-process] 6 (#$ . 13899)])
#@124 *Default directory for incoming DCC file transfers.
If this is nil, then the current value of `default-directory' is used.
(custom-declare-variable 'erc-dcc-get-default-directory 'nil '(#$ . -14392) :group 'erc-dcc :type '(choice (const nil :tag "Default directory") directory))
#@232 Parser for /dcc command.
This figures out the dcc subcommand and calls the appropriate routine to
handle it.  The function dispatched should be named "erc-dcc-do-FOO-command",
where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc.
(defalias 'erc-cmd-DCC #[(cmd &rest args) "\205(�\304\305\226\306Q!\211\203�\307	\n#\202'�\310\311\312\313\314\315&\210\316\317!\210\320)\207" [cmd fn erc-server-process args intern-soft "erc-dcc-do-" "-command" apply erc-display-message nil notice active dcc-command-undefined 99 apropos "erc-dcc-do-.*-command" t] 8 (#$ . 14678)])
#@43 Provides completion for the /DCC command.
(defalias 'pcomplete/erc-mode/DCC #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\210\300\304\302\211\211$\207" [pcomplete--here (append '("chat" "close" "get" "list") (when (fboundp 'make-network-process) '("send"))) nil (case (intern (downcase (pcomplete-arg 1))) (chat (mapcar (lambda (elt) (plist-get elt :nick)) (erc-remove-if-not #'(lambda (elt) (eq (plist-get elt :type) 'CHAT)) erc-dcc-list))) (close (remove-duplicates (mapcar (lambda (elt) (symbol-name (plist-get elt :type))) erc-dcc-list) :test 'string=)) (get (mapcar #'erc-dcc-nick (erc-remove-if-not #'(lambda (elt) (eq (plist-get elt :type) 'GET)) erc-dcc-list))) (send (pcomplete-erc-all-nicks))) (case (intern (downcase (pcomplete-arg 2))) (get (mapcar (lambda (elt) (plist-get elt :file)) (erc-remove-if-not #'(lambda (elt) (and (eq (plist-get elt :type) 'GET) (erc-nick-equal-p (erc-extract-nick (plist-get elt :nick)) (pcomplete-arg 1)))) erc-dcc-list))) (close (mapcar #'erc-dcc-nick (erc-remove-if-not #'(lambda (elt) (eq (plist-get elt :type) (intern (upcase (pcomplete-arg 1))))) erc-dcc-list))) (send (pcomplete-entries)))] 5 (#$ . 15255)])
(defalias 'erc-dcc-do-CHAT-command #[(proc &optional nick) "\205?�\304\305\306\307\310	&\211\203.�\311\312\n\313\"!\204.�\314\n\"\210\315\316\317\320\321\322&\210\323\202>�\324\"\210\315\316\317\320\325\322&\210\323)\207" [nick proc elt erc-server-process erc-dcc-member :nick :type CHAT :parent processp plist-get :peer erc-dcc-chat-accept erc-display-message nil notice active dcc-chat-accept 110 t erc-dcc-chat dcc-chat-offer] 8])
#@99 Close a connection.  Usage: /dcc close type nick.
At least one of TYPE and NICK must be provided.
(defalias 'erc-dcc-do-CLOSE-command #[(proc &optional type nick) "\203�	\204�\226\n\235\204�\306	\203!�\307\310\311Q	\"\204#�\306\2036�\226\n\235\2036�\312\226!\2028�\306	\204@�\205\244�\313\f\203\242�	\203X�\203X�\314\315\316	$\202r�	\203d�\314\316	\"\202r�\203p�\314\315\"\202r�\306\f\203B�\317\320\f\321\"!\203\206�\322\320\f\321\"!\210\323\f
\"\324\306\325\326\327\330\320\f\315\"\331\332\320\f\316\"!&\210\202B�)\313\207" [type nick erc-dcc-connection-types erc-valid-nick-regexp ret erc-dcc-list nil string-match "\\`" "\\'" intern t erc-dcc-member :type :nick processp plist-get :peer delete-process delq erc-display-message notice active dcc-closed 84 110 erc-extract-nick] 12 (#$ . 16871)])
#@206 Do a DCC GET command.  NICK is the person who is sending the file.
FILE is the filename.  If FILE is split into multiple arguments,
re-join the arguments, separated by a space.
PROC is the server process.
(defalias 'erc-dcc-do-GET-command #[(proc nick &rest file) "\205	�\306\307\310#\311\312	\313\314$\206�\315\n\316\"\206�\317\n\203k�\320\321\322\323!\"\f\206.�
\324\323!\f\2067�
\"#\325!\203a�\326\321\327\"!\203R�\330\n\"#\202g�\331\332\333\"\334\335	\336&\202g�\330\n\"#)\202v�\331\332\337\340\341\335	\336&*\207" [file nick elt filename erc-dcc-get-default-directory default-directory mapconcat identity " " erc-dcc-member :nick :type GET plist-get :file "unknown" read-file-name format "Local filename (default %s): " file-name-nondirectory expand-file-name file-exists-p yes-or-no-p "File %s exists.  Overwrite? " erc-dcc-get-file erc-display-message nil (notice error) dcc-get-cmd-aborted 110 102 (notice error) active dcc-get-notfound proc] 9 (#$ . 17703)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301!\207" [current-load-list erc-dcc-byte-count default-boundp set-default nil make-variable-buffer-local] 3)
#@120 This is the handler for the /dcc list command.
It lists the current state of `erc-dcc-list' in an easy to read manner.
(defalias 'erc-dcc-do-LIST-command #[(proc) "\306\211\307\306\310\311\312$\210\307\306\310\311\313$\210\203\321�@A\314	\315\"\203,�\316	\315\"\206-�\317\211\2046�\317\202H�\n\247\203A�\320\n!\202H�\n\317\230\205H�\321\307\306\310\311\322\323\324	!\325\316	\326\"\327\330\316	\331\"!\203j�\332\316	\331\"!\202k�\333\334\n\316	\326\"\335=\205\272�\314	\336\"\205\272�\337\340\316	\336\"!!\205\272�\314	\315\"\205\272�r\340\316	\336\"!q\210\341\342 \343\f#)\344
\345U\203\253�\346\202\267�\320\347
\316	\315\"\245\350_!!\351Q)P\352\314	\336\"\203\312�\316	\336\"\206\313�\317&\210\202�\307\306\310\311\353$\210+\354\207" [erc-dcc-list elt size alist erc-dcc-byte-count byte-count nil erc-display-message notice active dcc-list-head dcc-list-line plist-member :size plist-get "" number-to-string "unknown" dcc-list-item 110 erc-dcc-nick 116 :type 97 processp :peer process-status "no" 115 GET :file buffer-live-p get-buffer + buffer-size 0.0 " (" 0 "0" truncate 100 "%)" 102 dcc-list-end t] 21 (#$ . 18867)])
#@143 Offer FILE to NICK by sending a ctcp dcc send message.
If FILE is split into multiple arguments, re-join the arguments,
separated by a space.
(defalias 'erc-dcc-do-SEND-command #[(proc nick &rest file) "\205	�\303\304\305#\306!\203#�\307\310\311\312\313\314	\315&\210\316	\"\210\317\207\307\310\320\n\321$\210\317\207" [file nick proc mapconcat identity " " file-exists-p erc-display-message nil notice active dcc-send-offer 110 102 erc-dcc-send-file t (notice error) "File not found"] 9 (#$ . 20012)])
#@36 Hook variable for CTCP DCC queries
(defvar erc-ctcp-query-DCC-hook '(erc-ctcp-query-DCC) (#$ . 20528))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-dcc-query-handler-alist default-boundp set-default (("SEND" . erc-dcc-handle-ctcp-send) ("CHAT" . erc-dcc-handle-ctcp-chat))] 3)
#@159 The function called when a CTCP DCC request is detected by the client.
It examines the DCC subcommand, and calls the appropriate routine for
that subcommand.
(defalias 'erc-ctcp-query-DCC #[(proc nick login host to query) "\306\307\"\211A@)\310\n\"A\211\203$�\f
&\2026�\311\312\313
\314\315\316\317\320&\f*\207" [query x cmd erc-dcc-query-handler-alist handler proc split-string " " assoc erc-display-message nil (notice error) dcc-ctcp-unknown 113 110 117 104 nick login host to] 14 (#$ . 20852)])
(byte-code "\301B\302\303!\207" [current-load-list erc-dcc-ctcp-query-send-regexp (lambda (#1=#:defconst-tmp-var) (defconst erc-dcc-ctcp-query-send-regexp #1#)) "^DCC SEND \$[^ ]+\$ \$[0-9]+\$ \$[0-9]+\$ *\$[0-9]*\$"] 2)
#@150 This is called if a CTCP DCC SEND subcommand is sent to the client.
It extracts the information about the dcc request and adds it to
`erc-dcc-list'.
(defalias 'erc-dcc-handle-ctcp-send #[(proc query nick login host to) "\306=?\205\275�\307	!\204�\310\311\312\n\313\314\315\316\317\f\320
&\f\207\321/0\"\203\255�\322\3230\"\324\322\3250\"!\322\3260\"\322\3270\"1234\310\311\312\n\330\3314\316\317\f\320
\3321\333\230\203^�\334\202`�1&\210\3352!\336W\203w�\310\311\312\n\337\3402&\210\341\342\343\344\f
$\311\n\3453\3462\3474\350\3351!&\f\210\351=\205\253�\352\343\353\f
$!\205\253�\3545@4\n#,\207\310\311\312\n\355\316\317\f\320
\3560&\f\207" [erc-dcc-send-request to proc nick login host ignore erc-current-nick-p erc-display-message nil notice dcc-request-bogus 114 "SEND" 110 117 104 string-match match-string 1 erc-decimal-to-ip 2 3 4 dcc-send-offered 102 115 "" "unknown" string-to-number 1025 dcc-privileged-port 112 erc-dcc-list-add GET format "%s!%s@%s" :ip :port :file :size auto erc-dcc-auto-mask-p "\"%s!%s@%s\"" erc-dcc-get-file dcc-malformed 113 erc-dcc-ctcp-query-send-regexp query size port ip filename erc-dcc-list] 16 (#$ . 21611)])
#@174 Takes a full SPEC of a user in the form "nick!login@host" and
matches against all the regexp's in `erc-dcc-auto-masks'. If any
match, returns that regexp and nil otherwise.
(defalias 'erc-dcc-auto-mask-p #[(spec) "\211\203�\303	@\n\"\204�	A\211\204�	\205�	@)\207" [erc-dcc-auto-masks lst spec string-match] 4 (#$ . 22799)])
(byte-code "\301B\302\303!\207" [current-load-list erc-dcc-ctcp-query-chat-regexp (lambda (#1=#:defconst-tmp-var) (defconst erc-dcc-ctcp-query-chat-regexp #1#)) "^DCC CHAT +chat +\$[0-9]+\$ +\$[0-9]+\$"] 2)
#@243 *How to treat incoming DCC Chat requests.
'ask - Report the Chat request, and wait for the user to manually accept it
'auto - Automatically accept the request and open a new chat window
'ignore - Ignore incoming DCC chat requests completely.
(custom-declare-variable 'erc-dcc-chat-request ''ask '(#$ . -23350) :group 'erc-dcc :type '(choice (const ask) (const auto) (const ignore)))
(defalias 'erc-dcc-handle-ctcp-chat #[(proc query nick login host to) "\306=?\205\273�\307	!\204�\310\311\312\n\313\314\315\316\317\f\320
&\f\207\321,-\"\203\253�\322\323\324-\"!.\323\325-\"/\326\327\330\331$0\310\311\332\n\333\316\317\f\320
\334/&\f\210\335/!\336W\203c�\310\311\332\n\337\334/&\2100\203\207�\340\2110\341/#\342.#0\310\311\332\n\343\316\317\f\320
&\n\210\202\232�\344\331\345\346\f
$\311\n\342.\341/&\210\347=\205\251�\350\326\327\330\331$\n\"+\207\310\311\351\n\352\316\317\f\320
\353-&\f\207" [erc-dcc-chat-request to proc nick login host ignore erc-current-nick-p erc-display-message nil (notice error) dcc-request-bogus 114 "CHAT" 110 117 104 string-match erc-decimal-to-ip match-string 1 2 erc-dcc-member :nick :type CHAT notice dcc-chat-offered 112 string-to-number 1025 dcc-privileged-port plist-put :port :ip dcc-chat-discarded erc-dcc-list-add format "%s!%s@%s" auto erc-dcc-chat-accept (notice error) dcc-malformed 113 erc-dcc-ctcp-query-chat-regexp query ip port elt] 13])
#@57 Holds the `erc-dcc-list' entry for this DCC connection.
(defvar erc-dcc-entry-data nil (#$ . 24770))
(make-variable-buffer-local 'erc-dcc-entry-data)
#@43 *Block size to use for DCC SEND sessions.
(custom-declare-variable 'erc-dcc-block-size '1024 '(#$ . -24926) :group 'erc-dcc :type 'integer)
#@81 *If set to an integer, keep sending until that number of bytes are
unconfirmed.
(custom-declare-variable 'erc-dcc-pump-bytes 'nil '(#$ . -25072) :group 'erc-dcc :type '(choice (const nil) integer))
(defalias 'erc-dcc-get-parent #[(proc) "\301\302\303\"\304\"\207" [proc plist-get erc-dcc-member :peer :parent] 4])
(put 'erc-dcc-get-parent 'byte-optimizer 'byte-compile-inline-expand)
#@110 Send one block of data.
PROC is the process-object of the DCC connection.  Returns the number of
bytes sent.
(defalias 'erc-dcc-send-block #[(proc) "\306\307\"\310	\311\"\310	\311\"r\312!q\210\f\2031�\313\314\315\310\306\307\"\316\")\317\320\neZeZ#$\210
\\d^\321\"W\203R�\314\223\210\322\"\210G.\207" [proc elt confirmed-marker sent-marker erc-dcc-verbose erc-dcc-block-size erc-dcc-member :peer plist-get :sent process-buffer erc-display-message nil notice :parent format "DCC: Confirmed %d, sent %d, sending block now" buffer-substring-no-properties process-send-string end string] 9 (#$ . 25464)])
(defalias 'erc-dcc-send-filter #[(proc string) "\306!\307\310\n\"\311\312\"\311\313\"\311\314\" r\315\n!q\210 e	\\\316\223\210 
U\203`� dU\203`�\317\316\320\f\321\322\311\323\"\324!\325\326
eZ!&\n\210\327\"\"\"\330\316!\210\331p!\210\332\n!\202\243� 
X\203\201�
 Z#\206r�$W\205\243�\333\n!\334V\205\243�\202g� 
V\205\243�\317\316\320\f\335\336\337 !\337
!#$\210\330\316!\210\331p!\210\332\n!.\207" [string size proc elt parent sent-marker erc-unpack-int erc-dcc-member :peer plist-get :parent :sent :confirmed process-buffer nil erc-display-message notice dcc-send-finished 110 :nick 102 115 number-to-string delete set-buffer-modified-p kill-buffer delete-process erc-dcc-send-block 0 format "DCC: Client confirmed too much (%s vs %s)!" marker-position confirmed-marker buffer-file-name erc-dcc-list erc-dcc-pump-bytes erc-dcc-block-size] 13])
(defalias 'erc-dcc-display-send #[(proc) "\301\302\303\304\305\306\"\307\")\310\311\312\313\314\"!\"$\207" [proc erc-display-message nil notice plist-get erc-dcc-member :peer :parent format "DCC: SEND connect from %s" format-network-address process-contact :remote] 10])
#@89 *Hook run whenever the remote end of a DCC SEND offer connected to your
listening port.
(custom-declare-variable 'erc-dcc-send-connect-hook ''(erc-dcc-display-send erc-dcc-send-block) '(#$ . -27244) :group 'erc-dcc :type 'hook)
#@68 Extract the nickname portion of the :nick property value in PLIST.
(defalias 'erc-dcc-nick #[(plist) "\301\302\303\"!\207" [plist erc-extract-nick plist-get :nick] 4 (#$ . 27478)])
(defalias 'erc-dcc-send-sentinel #[(proc event) "\305\306\"\307\310\n\"\205'�	\205'�\311\312	\313\"!rq\210\314\"\210	*\315\316\")\207" [proc elt event buf erc-dcc-entry-data erc-dcc-member :peer string-match "^open from " marker-buffer plist-get :sent set-process-buffer run-hook-with-args erc-dcc-send-connect-hook] 4])
(defalias 'erc-dcc-find-file #[(file) "r\302\303!!q\210\304!\210p)\207" [file buffer-file-name generate-new-buffer file-name-nondirectory insert-file-contents-literally] 3])
(defalias 'erc-dcc-file-to-name #[(file) "\302\303!rq\210\304\216\305	!c\210\306ed\307\310\311%\210\312 +\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) file-name-nondirectory subst-char-in-region 32 95 t buffer-string] 6])
#@91 Open a socket for incoming connections, and send a CTCP send request to the
other client.
(defalias 'erc-dcc-send-file #[(nick file &optional pproc) "\204�\306	!\203�	\202�\307\310!\210\311\312!\203j�\313\n!\314!rq\210\315 e\316\223)\317\320\321\322#!\323!!\"\324\325#!\326\n\327\f\330
\331\332
!&\f\210\333\334\335#\336\n!\337$\206_�\"@!\"A@\f&\"-\207\307\340!\207" [pproc erc-server-process file buffer size start processp error "Can not find parent process" featurep make-network-process erc-dcc-find-file buffer-size make-marker nil erc-dcc-server "dcc-send" erc-dcc-send-filter erc-dcc-send-sentinel process-contact erc-dcc-list-add SEND :file :size :sent :confirmed copy-marker process-send-string format "PRIVMSG %s :DCC SEND %s %s %d %d\n" erc-dcc-file-to-name erc-ip-to-decimal "`make-network-process' not supported by your Emacs" sproc contact nick erc-dcc-public-host] 14 (#$ . 28490) "sNick: \nfFile: "])
#@68 Number of bytes to let the receive buffer grow before flushing it.
(custom-declare-variable 'erc-dcc-receive-cache '(* 1024 512) '(#$ . 29437) :group 'erc-dcc :type 'integer)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301!\207" [current-load-list erc-dcc-file-name default-boundp set-default nil make-variable-buffer-local] 3)
#@210 This function does the work of setting up a transfer from the remote client
to the local one over a tcp connection. This involves setting up a process
filter and a process sentinel, and making the connection.
(defalias 'erc-dcc-get-file #[(entry file parent-proc) "\306\307!!\310r	q\210\311 \210\312p!\210\313\314!\203�\314\310!\210\315\316\211%\317\320&\"\321'&\321``%\310\322%\210*()*+\323,-\324	\325*\326\"\327\325*\330\"!*%\331\n	\"\210\332\n\333\211#\210\334\333\316\"\210\335\n\336\"\210\337\n\340\"\210\341*\342\343 #*\341*\344\n#\211*+\207" [file buffer proc mode-line-process buffer-file-type buffer-read-only generate-new-buffer file-name-nondirectory nil fundamental-mode buffer-disable-undo fboundp set-buffer-multibyte (":%s") t append (jka-compr-handler image-file-handler) write-region nomessage 0 "dcc-get" plist-get :ip string-to-number :port set-process-buffer set-process-coding-system binary set-buffer-file-coding-system set-process-filter erc-dcc-get-filter set-process-sentinel erc-dcc-get-sentinel plist-put :start-time erc-current-time :peer erc-dcc-file-name inhibit-file-name-handlers inhibit-file-name-operation parent-proc erc-server-process entry erc-dcc-entry-data erc-dcc-byte-count erc-dcc-connect-function] 9 (#$ . 29785)])
#@88 Append the contents of BUFFER to FILE.
The contents of the BUFFER will then be erased.
(defalias 'erc-dcc-append-contents #[(buffer file) "rq\210\306\307\310\311	\"\312\312ed
\307\313%\210\314 \\\315 -\207" [buffer inhibit-file-name-handlers inhibit-file-name-operation inhibit-read-only coding-system-for-write erc-dcc-file-name binary t append (jka-compr-handler image-file-handler) write-region nomessage buffer-size erase-buffer erc-dcc-byte-count] 6 (#$ . 31076)])
#@348 This is the process filter for transfers from other clients to this one.
It reads incoming bytes from the network and stores them in the DCC
buffer, and sends back the replies after each block of data per the DCC
protocol spec.  Well not really.  We write back a reply after each read,
rather than every 1024 byte block, but nobody seems to care.
(defalias 'erc-dcc-get-filter #[(proc str) "r\306!q\210\307\310db\210\311!c\210d\fV\203�\312p
\"\210\313 \\\203:�\314\310\315\316\317\320!\321\322	!&\210\323 \324\"\325V\203a�	\323 \324\"V\203a�\314\310\326\327\330\317\320!&\210\331!\202g�\332\333	!\"+\207" [proc received-bytes inhibit-read-only str erc-dcc-receive-cache erc-dcc-file-name process-buffer t nil string-make-unibyte erc-dcc-append-contents buffer-size erc-display-message notice dcc-get-bytes-received 102 file-name-nondirectory 98 number-to-string plist-get :size 0 (error notice) active dcc-get-file-too-long delete-process process-send-string erc-pack-int erc-dcc-byte-count erc-dcc-verbose erc-server-process buffer-file-name erc-dcc-entry-data] 10 (#$ . 31562)])
#@143 This is the process sentinel for CTCP DCC SEND connections.
It shuts down the connection and notifies the user that the
transfer is complete.
(defalias 'erc-dcc-get-sentinel #[(proc event) "r\306!q\210\307!\210\310	\n\"edU\204�\311p\"\210\312\313\314\f\315\316\317\320
!\321\322\323\324\325	\326\"\327 \"\"&\n\210)\330\306!!\210\307!\207" [proc erc-dcc-entry-data erc-dcc-list erc-dcc-file-name erc-server-process erc-dcc-byte-count process-buffer delete-process delete erc-dcc-append-contents erc-display-message nil notice dcc-get-complete 102 115 number-to-string 116 format "%.0f" erc-time-diff plist-get :start-time erc-current-time kill-buffer] 16 (#$ . 32672)])
#@43 *Format to use for DCC Chat buffer names.
(custom-declare-variable 'erc-dcc-chat-buffer-name-format '"DCC-CHAT-%s" '(#$ . -33355) :group 'erc-dcc :type 'string)
#@70 *Hook calls when `erc-dcc-chat-mode' finished setting up the buffer.
(custom-declare-variable 'erc-dcc-chat-mode-hook 'nil '(#$ . -33522) :group 'erc-dcc :type 'hook)
#@2 
(custom-declare-variable 'erc-dcc-chat-connect-hook 'nil '(#$ . 33694) :group 'erc-dcc :type 'hook)
#@2 
(custom-declare-variable 'erc-dcc-chat-exit-hook 'nil '(#$ . 33800) :group 'erc-dcc :type 'hook)
#@79 Set or get the DCC chat request flag.
Possible values are: ask, auto, ignore.
(defalias 'erc-cmd-CREQ #[(line &optional force) "\303\304\"\205.�\305\306\"\211;\203\"�\307\310\311\312\313\314\315	!\211\"$\210\202,�\307\310\311\312\313\316\n\"$\210)\317\207" [line cmd erc-dcc-chat-request string-match "^\\s-*\$auto\\|ask\\|ignore\$?$" match-string 1 erc-display-message nil notice active format "Set DCC Chat requests to %S" intern "DCC Chat requests are set to %S" t] 9 (#$ . 33904)])
#@79 Set or get the DCC send request flag.
Possible values are: ask, auto, ignore.
(defalias 'erc-cmd-SREQ #[(line &optional force) "\303\304\"\205.�\305\306\"\211;\203\"�\307\310\311\312\313\314\315	!\211\"$\210\202,�\307\310\311\312\313\316\n\"$\210)\317\207" [line cmd erc-dcc-send-request string-match "^\\s-*\$auto\\|ask\\|ignore\$?$" match-string 1 erc-display-message nil notice active format "Set DCC Send requests to %S" intern "DCC Send requests are set to %S" t] 9 (#$ . 34402)])
(defalias 'pcomplete/erc-mode/CREQ #[nil "\300\301\302\211\211$\207" [pcomplete--here '("auto" "ask" "ignore") nil] 5])
(defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ)
#@76 *Hook to run after doing parsing (and possible insertion) of DCC messages.
(defvar erc-dcc-chat-filter-hook '(erc-dcc-chat-parse-output) (#$ . -35081))
#@28 Keymap for `erc-dcc-mode'.
(defvar erc-dcc-chat-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "
" erc-send-current-line "	" erc-complete-word] 4) (#$ . 35239))
#@43 Major mode for wasting time via DCC chat.
(defalias 'erc-dcc-chat-mode #[nil "\306 \210\307\310\311\312\313\314
!\210\315\316!\207" [mode-line-process mode-name major-mode erc-send-input-line-function erc-default-recipients erc-dcc-chat-mode-map kill-all-local-variables (":%s") "DCC-Chat" erc-dcc-chat-mode erc-dcc-chat-send-input-line (dcc) use-local-map run-hooks erc-dcc-chat-mode-hook] 2 (#$ . 35465) nil])
#@104 Send LINE to the remote end.
Argument RECIPIENT should always be the symbol dcc, and force
is ignored.
(defalias 'erc-dcc-chat-send-input-line #[(recipient line &optional force) "\302=\203
�\303\304p!	\"\207\305\306p\"\207" [recipient line dcc process-send-string get-buffer-process error "erc-dcc-chat-send-input-line in %s"] 3 (#$ . 35889)])
#@86 Open a socket for incoming connections, and send a chat request to the
other client.
(defalias 'erc-dcc-chat #[(nick &optional pproc) "\204�\305	!\203�	\202�\306\307!\210\310\311\312\313#\314\n!\315\316\f\n$\210\317\320\321\f\322@!A@$\"*\207" [pproc erc-server-process sproc contact nick processp error "Can not find parent process" erc-dcc-server "dcc-chat-out" erc-dcc-chat-filter erc-dcc-chat-sentinel process-contact erc-dcc-list-add OCHAT process-send-string format "PRIVMSG %s :DCC CHAT chat %s %d\n" erc-ip-to-decimal] 7 (#$ . 36240) "sNick: "])
(byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local erc-dcc-from erc-dcc-unprocessed-output] 2)
#@48 Setup a DCC chat buffer, returning the buffer.
(defalias 'erc-dcc-chat-setup #[(entry) "\306\307\310\"!\311\312\n	\"!\307\313\"\307\314\"\315!\210\316 \210
	\317\320 d\321\223\320 \322d\"\210\323\f\"\210\324\325\326\321\327$\210\330\331\f\"\210,\207" [entry nick erc-dcc-chat-buffer-name-format buffer proc parent-proc erc-extract-nick plist-get :nick generate-new-buffer format :peer :parent erc-setup-buffer erc-dcc-chat-mode "" make-marker nil erc-display-prompt set-process-buffer add-hook kill-buffer-hook erc-dcc-chat-buffer-killed t run-hook-with-args erc-dcc-chat-connect-hook erc-server-process erc-dcc-from erc-dcc-entry-data erc-dcc-unprocessed-output erc-insert-marker erc-input-marker] 5 (#$ . 36924)])
#@57 Accept an incoming DCC connection and open a DCC window
(defalias 'erc-dcc-chat-accept #[(entry parent-proc) "\306\307\310\"!\311\211\f\312\311\307\313\"\314\307\315\"!%\316\317#\316\320
#\321\322\"\210\323\324\"\210\325!\211+\207" [entry nick buffer proc erc-dcc-connect-function parent-proc erc-extract-nick plist-get :nick nil "dcc-chat" :ip string-to-number :port plist-put :peer :parent set-process-filter erc-dcc-chat-filter set-process-sentinel erc-dcc-chat-sentinel erc-dcc-chat-setup] 9 (#$ . 37670)])
(defalias 'erc-dcc-chat-filter #[(proc str) "p\304\216\305	!q\210\nP\306\307	\n#*\207" [orig-buffer proc erc-dcc-unprocessed-output str ((set-buffer orig-buffer)) process-buffer run-hook-with-args erc-dcc-chat-filter-hook] 4])
(defalias 'erc-dcc-chat-parse-output #[(proc str) "\306 \307\216\310\311\312\313\n#\203-�\n\310\224O\310\225\314\311\211\f\315\316\317
\320\321#\322	&\210\202	�\n\311O\211,\207" [save-match-data-internal line posn str proc erc-dcc-from match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 nil string-match "\n" erc-display-message dcc-chat-privmsg 110 erc-propertize face erc-nick-default-face 109 erc-dcc-unprocessed-output] 10])
(defalias 'erc-dcc-chat-buffer-killed #[nil "\300\301!\207" [erc-dcc-chat-close "killed buffer"] 2])
#@83 Close a DCC chat, removing any associated processes and tidying up
`erc-dcc-list'
(defalias 'erc-dcc-chat-close #[(&optional event) "\306\307\"	\206	�\310\211\2054�\311\f\"\312\313\"\210\314!\210\315\316\317
\320\321\322\323 \324\n&\n\210\325\307\316#\211*\207" [erc-dcc-entry-data event evt proc erc-dcc-list erc-server-process plist-get :peer "" delq run-hook-with-args erc-dcc-chat-exit-hook delete-process erc-display-message nil notice dcc-chat-ended 110 116 current-time-string 101 plist-put erc-dcc-from] 12 (#$ . 39023)])
(defalias 'erc-dcc-chat-sentinel #[(proc event) "p\304\305\"\306\216\307\310\"\203�\311	!\202�\312!+\207" [proc elt buf event erc-dcc-member :peer ((set-buffer buf)) string-match "^open from" erc-dcc-chat-setup erc-dcc-chat-close] 4])
#@61 Detect and handle no-such-nick replies from the IRC server.
(defalias 'erc-dcc-no-such-nick #[(proc parsed) "\306\307\310H	>\204�\311\312!\210\313H\211A@)\314$\315\f\316\"\317
!\203-�\320
!\321=\2031�\f\203B�\322\f\"\317
!\203B�\323
!\210*\324\207" [parsed cl-struct-erc-response-tags x proc elt peer erc-dcc-member :nick 0 error "erc-response.command-args accessing a non-erc-response" 4 :parent plist-get :peer processp process-status open delq delete-process nil erc-dcc-list] 6 (#$ . 39812)])
(provide 'erc-dcc)

${this.title}

Code Editor : erc-dcc.elc