From 6559929008e5d5f1e941e888789828a318eac0fa Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Mon, 4 Apr 2005 07:25:40 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 4 ++++ lisp/riece-identity.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) 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 + * 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) -- 2.25.1