X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-channel.el;fp=lisp%2Friece-channel.el;h=cf61f37419d979db7e171b01215838d800f66c91;hb=0adb3f8db21f8c45e90efa979f229dd095c36eae;hp=a6f3d6e0ce4c05ef6a4256386009338e9207a2af;hpb=e954985215deef7c4ce4c8341029375e72ab8a39;p=elisp%2Friece.git

diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el
index a6f3d6e..cf61f37 100644
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -25,15 +25,14 @@
 ;;; Code:
 
 (require 'riece-options)
+(require 'riece-globals)
 (require 'riece-identity)
 
 ;;; String representation of a channel:
-(defconst riece-channel-regexp "^[+&#!]")
-
 (defun riece-channel-p (string)
   "Return t if STRING is a channel.
 \(i.e. it matches `riece-channel-regexp')"
-  (string-match riece-channel-regexp string))
+  (string-match (concat "^" riece-channel-regexp) string))
 
 ;;; Channel object:
 (defun riece-find-channel (name)