+ (goto-char (point-min))
+ (while (re-search-forward
+ "^[0-9][0-9]:[0-9][0-9] [<>]\\([^<>]+\\)[<>] " nil t)
+ (put-text-property (match-beginning 1) (match-end 1)
+ 'riece-identity
+ (riece-make-identity
+ (riece-match-string-no-properties 1)
+ (riece-identity-server identity))))
+ (if (memq 'riece-button riece-addons)
+ (riece-button-update-buffer))