~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
54f8abb
..
5b573e0
100644
(file)
--- 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")
("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).
(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."
(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)
(load "~/.erc-auth.el")
(defun mdw-erc-auto-greet-bots (server nick)