(require 'riece-compat) ;riece-set-case-syntax-pair
(defvar riece-abbrev-identity-string-function nil)
(require 'riece-compat) ;riece-set-case-syntax-pair
(defvar riece-abbrev-identity-string-function nil)
(concat (riece-identity-prefix identity) " "
(riece-identity-server identity)))))
(if riece-abbrev-identity-string-function
(concat (riece-identity-prefix identity) " "
(riece-identity-server identity)))))
(if riece-abbrev-identity-string-function
(list (riece-format-identity channel)))
(delq nil (copy-sequence (or channels
riece-current-channels))))
(list (riece-format-identity channel)))
(delq nil (copy-sequence (or channels
riece-current-channels))))