Function: erc-connection-established

erc-connection-established is a byte-compiled function defined in erc.el.gz.

Signature

(erc-connection-established PROC PARSED)

Documentation

Run just after connection.

Set user modes and run erc-after-connect hook.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-connection-established (proc parsed)
  "Run just after connection.

Set user modes and run `erc-after-connect' hook."
  (with-current-buffer (process-buffer proc)
    (unless erc-server-connected ; only once per session
      (let ((server (or erc-server-announced-name
                        (erc-response.sender parsed)))
            (nick (car (erc-response.command-args parsed)))
            (buffer (process-buffer proc)))
        (setq erc-server-connected t)
	(setq erc-server-reconnect-count 0)
        (erc-update-mode-line)
        (erc-set-initial-user-mode nick buffer)
        (erc-server-setup-periodical-ping buffer)
        (run-hook-with-args 'erc-after-connect server nick)))))