+(defvar mdw-erc-ircop-alist nil
+ "*Alist of (SERVER-REGEXP ACCT PASSWD).
+Login details for claiming server admin rights.")
+
+(defun mdw-define-bot-greeting (server bot greeting)
+ "Define a new bot greeting."
+ (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)))))
+(load "~/.erc-auth.el")
+
+(defun mdw-assoc-regexp (regexp alist)
+ "Return the association in ALIST whose car matches REGEXP."
+ (let ((answer nil))
+ (dolist (l alist)
+ (when (string-match (car l) regexp)
+ (setq answer l)))
+ answer))
+