From: ueno <ueno>
Date: Mon, 18 Sep 2000 03:02:45 +0000 (+0000)
Subject: * liece-vars.el (liece-channel-buffer-mode): Set default to t.
X-Git-Tag: liece-1_4_7~52
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=abc7ac8a17edfea96946f48fb8f5e89125367855;p=elisp%2Fliece.git

* liece-vars.el (liece-channel-buffer-mode): Set default to t.
(liece-nick-buffer-mode): Ditto.
(liece-channel-list-buffer-mode): Ditto.

* liece.el (liece-open-server): Don't strip bracketed server name here.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1fcb65..25a0790 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2000-09-18   Daiki Ueno  <ueno@unixuser.org>
 
+	* liece-vars.el (liece-channel-buffer-mode): Set default to t.
+	(liece-nick-buffer-mode): Ditto.
+	(liece-channel-list-buffer-mode): Ditto.
+
 	* liece.el (liece-open-server-internal): Simplify.
 	(liece-open-server): Strip bracketed server name here.
 	(liece-start-server): Fix last change.
diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 6e8a51f..43a1442 100644
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -381,7 +381,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-hook)
 
 ;; Channel buffers.
-(defcustom liece-channel-buffer-mode nil
+(defcustom liece-channel-buffer-mode t
   "When non-nil, liece will display a channel buffer."
   :type 'boolean
   :group 'liece-look)
@@ -419,7 +419,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-partner)
 
 ;; Nick buffers.
-(defcustom liece-nick-buffer-mode nil
+(defcustom liece-nick-buffer-mode t
   "When non-nil, liece will display a nick list buffer."
   :type 'boolean
   :group 'liece-look)
@@ -435,7 +435,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-look)
 
 ;; Channel list buffer.
-(defcustom liece-channel-list-buffer-mode nil
+(defcustom liece-channel-list-buffer-mode t
   "When non-nil, liece will display a channel list buffer."
   :type 'boolean
   :group 'liece-look)
diff --git a/lisp/liece.el b/lisp/liece.el
index 7471440..a9c3e05 100644
--- a/lisp/liece.el
+++ b/lisp/liece.el
@@ -444,8 +444,6 @@ If optional argument SERVICE is non-nil, open by the service name."
     (if (and (memq type '(rlogin telnet)) relay)
 	(setq liece-tcp-relay-host relay))
     (setq liece-tmp-server-name host)
-    (unless (string-match "^[^\\[]" host)
-      (setq host (substring host 1 (1- (length host)))))
     (setq liece-server-process (liece-open-server-internal host service type))
     (setq liece-after-registration nil)
     (liece-maybe-poll)