(defalias 'riece-match-string-no-properties 'match-string-no-properties)
(defun riece-propertize-modeline-string (string &rest properties)
(defalias 'riece-match-string-no-properties 'match-string-no-properties)
(defun riece-propertize-modeline-string (string &rest properties)