dot/ercrc.el: New definitions for distorted.org.uk IRC server.

diff --git a/dot/ercrc.el b/dot/ercrc.el
index afb78fc11be28b0c372c6004ff654a58aef4631a..118a2cc87ac922ba828b3dc61f22b83a29bb11ec 100644 (file)
--- a/dot/ercrc.el
+++ b/dot/ercrc.el
@@ -34,7 +34,8 @@ (setq erc-autojoin t
       '(("irc.ssdis.loc" "#devel" "#jukebox" "#nextgen")
        ("cam.irc.devel.ncipher.com"
         "#devel" "#jukebox" "#nextgen" "#sec-team")
       '(("irc.ssdis.loc" "#devel" "#jukebox" "#nextgen")
        ("cam.irc.devel.ncipher.com"
         "#devel" "#jukebox" "#nextgen" "#sec-team")

-       ("chiark.greenend.org.uk" "#chiark")))
+       ("chiark.greenend.org.uk" "#chiark")
+       ("irc.distorted.org.uk" "#distorted" "#jukebox")))

 
 (defvar mdw-erc-auto-greet-bots-alist
   `(("irc.ssdis.loc" "fastness"
 
 (defvar mdw-erc-auto-greet-bots-alist
   `(("irc.ssdis.loc" "fastness"


@@ -44,7 +45,9 @@ (defvar mdw-erc-auto-greet-bots-alist
     ("chiark.greenend.org.uk" "blight"
      ,(format "identpass mdw %s" mdw-blight-password))
     ("tunnel.chiark.greenend.org.uk" "blight"
     ("chiark.greenend.org.uk" "blight"
      ,(format "identpass mdw %s" mdw-blight-password))
     ("tunnel.chiark.greenend.org.uk" "blight"

-     ,(format "identpass mdw %s" mdw-blight-password)))
+     ,(format "identpass mdw %s" mdw-blight-password))
+    ("irc.distorted.org.uk" "blight"
+     ,(format "identpass mdw %s" mdw-distorted-password)))

   "*Alist of (SERVER-REGEXP BOT-NICK MESSAGE-FORM).
 Evaluate MESSAGE-FORM and sent to BOT-NICK when connected to a server which
 matches SERVER-REGEXP.")
   "*Alist of (SERVER-REGEXP BOT-NICK MESSAGE-FORM).
 Evaluate MESSAGE-FORM and sent to BOT-NICK when connected to a server which
 matches SERVER-REGEXP.")