diff options
Diffstat (limited to 'lisp/erc/erc-networks.el')
| -rw-r--r-- | lisp/erc/erc-networks.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/erc/erc-networks.el b/lisp/erc/erc-networks.el index 191aad0e0cc..29a13ae5e30 100644 --- a/lisp/erc/erc-networks.el +++ b/lisp/erc/erc-networks.el @@ -724,16 +724,17 @@ MATCHER is used to find a corresponding network to a server while connected to server parameter NETWORK if provided, otherwise parse the server name and search for a match in `erc-networks-alist'." ;; The server made it easy for us and told us the name of the NETWORK - (if (assoc "NETWORK" erc-server-parameters) - (intern (cdr (assoc "NETWORK" erc-server-parameters))) - (or - ;; Loop through `erc-networks-alist' looking for a match. - (let ((server (or erc-server-announced-name erc-session-server))) - (cl-loop for (name matcher) in erc-networks-alist - when (and matcher - (string-match (concat matcher "\\'") server)) - do (cl-return name))) - 'Unknown))) + (let ((network-name (cdr (assoc "NETWORK" erc-server-parameters)))) + (if network-name + (intern network-name) + (or + ;; Loop through `erc-networks-alist' looking for a match. + (let ((server (or erc-server-announced-name erc-session-server))) + (cl-loop for (name matcher) in erc-networks-alist + when (and matcher + (string-match (concat matcher "\\'") server)) + do (cl-return name))) + 'Unknown)))) (defun erc-network () "Return the value of `erc-network' for the current server." |