("cam.irc.devel.ncipher.com"
"#devel" "#jukebox" "#nextgen" "#sec-team")
("chiark.greenend.org.uk" "#chiark")
- ("irc.distorted.org.uk" "#distorted" "#jukebox")))
+ ("irc.distorted.org.uk" "#distorted" "#jukebox")
+ ("irc.hstg.corp.good.com" "#hstg")))
(defvar mdw-erc-auto-greet-bots-alist nil
"*Alist of (SERVER-REGEXP BOT-NICK MESSAGE-FORM).
(defun mdw-define-bot-greeting (server bot greeting)
"Define a new bot greeting."
- (push (list server bot greeting) mdw-erc-auto-greet-bots-alist))
+ (setq mdw-erc-auto-greet-bots-alist
+ (cons (list server bot greeting)
+ (remove* server mdw-erc-auto-greet-bots-alist
+ :test #'string= :key #'car))))
(load "~/.erc-auth.el")
(defun mdw-erc-auto-greet-bots (server nick)