chiark / gitweb /
dot/ercrc.el (mdw-define-bot-greeting): Update the existing entry.
authorMark Wooding <mdw@distorted.org.uk>
Wed, 22 Jan 2014 15:41:11 +0000 (15:41 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Wed, 22 Jan 2014 15:41:11 +0000 (15:41 +0000)
Previously, we'd ignore the new one if there's an existing one.  This is
obviously wrong.

dot/ercrc.el

index cdf436e0f255b1eada7862a143ba7d3e62b2b4c8..5b573e02b97627d23ee4d0d000fd5cf878ccd038 100644 (file)
@@ -44,8 +44,10 @@ (defvar mdw-erc-auto-greet-bots-alist nil
 
 (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)