* riece-misc.el (riece-channel-p): Moved from riece-channel.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c528ffa..bec40a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-06-23  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-misc.el (riece-channel-p): Moved from riece-channel.el.
+
        * riece-300.el: Rewrite using riece-decode-identity.
 
        * riece-identity.el (riece-completing-read-identity): Signal an

diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el
index cf61f37..5805faf 100644 (file)
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -28,12 +28,6 @@
 (require 'riece-globals)
 (require 'riece-identity)
 
-;;; String representation of a channel:
-(defun riece-channel-p (string)
-  "Return t if STRING is a channel.
-\(i.e. it matches `riece-channel-regexp')"
-  (string-match (concat "^" riece-channel-regexp) string))
-
 ;;; Channel object:
 (defun riece-find-channel (name)
   "Get a channel object named NAME from the server buffer."

diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index 9f02c66..a9fc0b8 100644 (file)
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -79,6 +79,11 @@
   (with-current-buffer buffer
     (eq riece-freeze 'own)))
 
+(defun riece-channel-p (string)
+  "Return t if STRING is a channel.
+\(i.e. it matches `riece-channel-regexp')"
+  (string-match (concat "^" riece-channel-regexp) string))
+
 (defun riece-current-nickname ()
   "Return the current nickname."
   (riece-with-identity-buffer riece-current-channel