-
-;;; String representation of a channel:
-(defconst riece-channel-regexp "^[+&#!]")
-(defconst riece-channel-modeless-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))
-
-(defun riece-channel-modeless-p (string)
- "Return t if STRING is a modeless channel.
-\(i.e. it matches `riece-channel-modeless-regexp')"
- (string-match riece-channel-modeless-regexp string))