Lines Matching refs:server
47 (add-hook 'erc-server-JOIN-functions 'erc-autojoin-add)
48 (add-hook 'erc-server-PART-functions 'erc-autojoin-remove))
50 (remove-hook 'erc-server-JOIN-functions 'erc-autojoin-add)
51 (remove-hook 'erc-server-PART-functions 'erc-autojoin-remove)))
56 SERVER is a regexp matching the server, and channels is the
72 "Truncate host name to the domain name when joining a server.
73 If non-nil, and a channel on the server a.b.c is joined, then
74 only b.c is used as the server for `erc-autojoin-channels-alist'.
80 (defun erc-autojoin-channels (server nick)
83 (when (string-match (car l) server)
85 (erc-server-send (concat "join " chan))))))
91 (server (with-current-buffer (process-buffer proc)
92 (or erc-server-announced-name erc-session-server))))
95 (string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" server))
96 (setq server (match-string 1 server)))
97 (let ((elem (assoc server erc-autojoin-channels-alist)))
102 (cons (list server chnl)
114 (server (with-current-buffer (process-buffer proc)
115 (or erc-server-announced-name erc-session-server))))
118 (string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" server))
119 (setq server (match-string 1 server)))
120 (let ((elem (assoc server erc-autojoin-channels-alist)))