2000-06-30 Akira Ohashi <bg66@luck.gr.jp>

        * liece.el (liece-server-parse-string): Fix regexp problem.

diff --git a/lisp/liece.el b/lisp/liece.el
index f447be6..c148f9e 100644 (file)
--- a/lisp/liece.el
+++ b/lisp/liece.el
@@ -423,8 +423,8 @@ the `liece-server-keyword-map' variable."
 
 (defun liece-server-parse-string (string)
   "Convert a STRING set as `liece-server' and return a property list."
-  (when (or (string-match "^\\([^:]+\\):?\\([0-9]*\\)" string)
-           (string-match "^[\\([^\\[]+\\)]:?\\([0-9]*\\)" string))
+  (when (or (string-match "^\\[\\([^]]+\\)\\]:?\\([0-9]*\\)" string)
+           (string-match "^\\([^:]+\\):?\\([0-9]*\\)" string))
     (let ((host (match-string 1 string))
          (service (match-string 2 string))
          (password (substring string (match-end 0)))