+ (setq mdw-erc-auto-greet-bots-alist
+ (cons (list server bot greeting)
+ (remove* server mdw-erc-auto-greet-bots-alist
+ :test #'string= :key #'car))))
+(defun mdw-add-ircop-credentials (server acct passwd)
+ "Define a new set of `ircop' credentials."
+ (setq mdw-erc-ircop-alist
+ (cons (list server acct passwd)
+ (remove* server mdw-erc-ircop-alist
+ :test #'string= :key #'car)))))