Function: erc-networks--ensure-announced

erc-networks--ensure-announced is a byte-compiled function defined in erc-networks.el.gz.

Signature

(erc-networks--ensure-announced _ PARSED)

Documentation

Set a fallback erc-server-announced-name if still unset.

Copy source (prefix) from MOTD-ish message as a last resort.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-networks.el.gz
;; This lives here in this file because all the other "on connect"
;; MOTD stuff ended up here (but perhaps that needs to change).

(defun erc-networks--ensure-announced (_ parsed)
  "Set a fallback `erc-server-announced-name' if still unset.
Copy source (prefix) from MOTD-ish message as a last resort."
  ;; The 004 handler never ran; see 2004-03-10 Diane Murray in change log
  (unless erc-server-announced-name
    (setq erc-server-announced-name (erc-response.sender parsed))
    (erc-display-error-notice
     parsed (concat "Failed to determine server name. Using \""
                    erc-server-announced-name "\" instead."
                    "  If this was unexpected, consider reporting it via "
                    (substitute-command-keys "\\[erc-bug]") ".")))
  nil)