- (let ((buffer (riece-channel-buffer target)))
- (riece-insert
- buffer
- (concat riece-ctcp-action-prefix
- (riece-identity-prefix (riece-current-nickname)) " " action "\n"))
- (riece-insert
- (if (and riece-channel-buffer-mode
- (not (eq buffer riece-channel-buffer)))
- (list riece-dialogue-buffer riece-others-buffer)
- riece-dialogue-buffer)
- (concat
- (riece-with-server-buffer (riece-identity-server target)
- (riece-concat-server-name
- (concat riece-ctcp-action-prefix
- (riece-format-identity target t) ": "
- (riece-identity-prefix (riece-current-nickname)) " " action)))
- "\n"))))