From: ueno <ueno>
Date: Mon, 4 Apr 2005 07:25:40 +0000 (+0000)
Subject: * riece-identity.el (riece-completing-read-identity): Don't signal
X-Git-Tag: channel-coding-mergepoint~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6e62d3b9cadedc1ddbeeea918bc65f9810d95807;p=elisp%2Friece.git

* riece-identity.el (riece-completing-read-identity): Don't signal
an error when input string does not match riece-channel-regexp nor
riece-user-regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0b329f..da3f1f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2005-04-04  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-identity.el (riece-completing-read-identity): Don't signal
+	an error when input string does not match riece-channel-regexp nor
+	riece-user-regexp.
+
 	* riece-300.el (riece-handle-366-message): Don't use riece-user-regexp.
 	(riece-handle-302-message): Ditto.
 	(riece-handle-313-message): Ditto.
diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index d86c09c..09c45bf 100644
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -178,10 +178,10 @@ The rest of arguments are the same as `completing-read'."
 	   predicate require-match initial history default))
 	 (identity
 	  (riece-parse-identity string)))
-    (unless (string-match (concat "^\\(" riece-channel-regexp "\\|"
-				  riece-user-regexp "\\)")
-			  (riece-identity-prefix identity))
-      (error "Invalid channel name!"))
+;;;    (unless (string-match (concat "^\\(" riece-channel-regexp "\\|"
+;;;				  riece-user-regexp "\\)")
+;;;			  (riece-identity-prefix identity))
+;;;      (error "Invalid channel name!"))
     identity))
 
 (provide 'riece-identity)