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

[profile] / dot / ercrc.el

diff --git a/dot/ercrc.el b/dot/ercrc.el
index 30da860..5b573e0 100644 (file)
--- a/dot/ercrc.el
+++ b/dot/ercrc.el
@@ -12,7 +12,6 @@
       erc-timestamp-right-column 68
       erc-fill-prefix "   "
       erc-max-buffer-size (* 60 3000))
-(erc-scrolltobottom-enable)
 
 (load "~/.erc-local.el")
 
@@ -45,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)