X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/10c4d64fb698c4abdf41c6ad16b0ec6e630a2c94..97103d53feb0e65e8cda1a3c8b8832e18692dd4a:/dot/ercrc.el

diff --git a/dot/ercrc.el b/dot/ercrc.el
index 54f8abb..5b573e0 100644
--- a/dot/ercrc.el
+++ b/dot/ercrc.el
@@ -34,7 +34,8 @@
 	("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).
@@ -43,7 +44,10 @@ matches SERVER-REGEXP.")
 
 (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)