Function: erc-autojoin-current-server

erc-autojoin-current-server is a byte-compiled function defined in erc-join.el.gz.

Signature

(erc-autojoin-current-server)

Documentation

Compute the current server for lookup in erc-autojoin-channels-alist.

Respects erc-autojoin-domain-only.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-join.el.gz
(defun erc-autojoin-current-server ()
  "Compute the current server for lookup in `erc-autojoin-channels-alist'.
Respects `erc-autojoin-domain-only'."
  (let ((server (or erc-server-announced-name erc-session-server)))
    (if (and erc-autojoin-domain-only
	     (string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" server))
	(match-string 1 server)
      server)))