* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)