Function: erc-dcc-chat-accept

erc-dcc-chat-accept is a byte-compiled function defined in erc-dcc.el.gz.

Signature

(erc-dcc-chat-accept ENTRY PARENT-PROC)

Documentation

Accept an incoming DCC connection and open a DCC window.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-dcc.el.gz
(defun erc-dcc-chat-accept (entry parent-proc)
  "Accept an incoming DCC connection and open a DCC window."
  (let* (;; (nick (erc-extract-nick (plist-get entry :nick)))
         proc) ;; buffer
    (setq proc
          (funcall erc-dcc-connect-function
                   "dcc-chat" nil
                   (plist-get entry :ip)
                   (string-to-number (plist-get entry :port))
                   entry))
    ;; XXX: connected, should we kill the ip/port properties?
    (setq entry (plist-put entry :peer proc))
    (setq entry (plist-put entry :parent parent-proc))
    (set-process-filter proc #'erc-dcc-chat-filter)
    (set-process-sentinel proc #'erc-dcc-chat-sentinel)
    ;; (setq buffer
    (erc-dcc-chat-setup entry))) ;; )