From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 22 Jan 2014 15:41:11 +0000 (+0000)
Subject: dot/ercrc.el (mdw-define-bot-greeting): Update the existing entry.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/97103d53feb0e65e8cda1a3c8b8832e18692dd4a?hp=ae0a853fabc163f002127b3066223037d29640bb

dot/ercrc.el (mdw-define-bot-greeting): Update the existing entry.

Previously, we'd ignore the new one if there's an existing one.  This is
obviously wrong.
---

diff --git a/dot/ercrc.el b/dot/ercrc.el
index cdf436e..5b573e0 100644
--- a/dot/ercrc.el
+++ b/dot/ercrc.el
@@ -44,8 +44,10 @@ matches SERVER-REGEXP.")
 
 (defun mdw-define-bot-greeting (server bot greeting)
   "Define a new bot greeting."
-  (pushnew (list server bot greeting) mdw-erc-auto-greet-bots-alist
-	   :test #'string= :key #'car))
+  (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)