Update default IRC servers list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index feb68a0..0658a60 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-16  Katsuhiro Hermit Endo  <hermit@koka-in.org>
+
+       * liece-vars.el (liece-server-alist): Update default value.
+
 2001-02-12   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-compat.el (liece-read-passwd): Revive.

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 43a1442..112fadc 100644 (file)
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -209,22 +209,12 @@ way is to put liece variables on .emacs or file loaded from there."
     widget))
   
 (defcustom liece-server-alist
-  '(("WIDE Project Kyoto NOC, Japan" . "irc.kyoto.wide.ad.jp")
-    ("WIDE Project Tokyo NOC, Japan" . "irc.tokyo.wide.ad.jp")
-    ("TDI RCAC / 6660" :host "irc.rcac.tdi.co.jp" :service 6660)
-    ("TDI RCAC / 6661" :host "irc.rcac.tdi.co.jp" :service 6661)
-    ("TDI RCAC / 6662" :host "irc.rcac.tdi.co.jp" :service 6662)
-    ("TDI RCAC / 6663" :host "irc.rcac.tdi.co.jp" :service 6663)
-    ("TDI RCAC / 6664" :host "irc.rcac.tdi.co.jp" :service 6664)
-    ("TDI RCAC / 6665" :host "irc.rcac.tdi.co.jp" :service 6665)
-    ("TDI RCAC / 6666" :host "irc.rcac.tdi.co.jp" :service 6666)
-    ("TDI RCAC" . "irc.rcac.tdi.co.jp")
-    ("TDI RCAC, 6Bone" . "irc6.rcac.tdi.co.jp")
-    ("RACE, University of Tokyo" . "irc.race.u-tokyo.ac.jp")
-    ("Hokkaido University, Sapporo, Japan" . "irc.huie.hokudai.ac.jp")
-    ("KARRN Hakozaki NOC" . "irc.karrn.ad.jp")
-    ("Tohoku University, Japan" . "irc.tohoku.ac.jp")
-    ("DTI, Akasaka Tokyo, Japan" . "irc.dti.ne.jp"))
+  '(("WIDE Project Kyoto NOC, Japan"       . "irc.kyoto.wide.ad.jp")
+    ("WIDE Project Tokyo NOC, Japan"       . "irc.tokyo.wide.ad.jp")
+    ("Hokkaido University, Sapporo, Japan"  . "irc.huie.hokudai.ac.jp")
+    ("DTI, Akasaka Tokyo, Japan"           . "irc.dti.ne.jp")
+    ("WIDE Project Fujisawa NOC, Japan"            . "irc.fujisawa.wide.ad.jp")
+    ("WIDE Project Kyoto NOC, Japan (IPv6)" . "irc6.kyoto.wide.ad.jp"))
   "IRC server assoc-list which is used for input IRC server."
   :type 'liece-server-spec
   :group 'liece-server)