Function: erc-dcc-server-accept

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

Signature

(erc-dcc-server-accept SERVER CLIENT MESSAGE)

Documentation

Log an accepted DCC offer, then terminate the listening process and set up the accepted connection.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-dcc.el.gz
(defun erc-dcc-server-accept (server client message)
  "Log an accepted DCC offer, then terminate the listening process and set up
the accepted connection."
  (erc-log (format "(erc-dcc-server-accept): server %s client %s message %s"
           server client message))
  (when (and (string-match "^accept from " message)
             (processp server) (processp client))
    (let ((elt (erc-dcc-member :peer server)))
      ;; change the entry in erc-dcc-list from the listening process to the
      ;; accepted process
      (setq elt (plist-put elt :peer client))
      ;; delete the listening process, as we've accepted the connection
      (delete-process server))))