From 8c7030a95dd6b34c35d9f0c05736f29556eac518 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Fri, 25 Mar 2022 22:58:49 -0500 Subject: [PATCH] Change: Remove debug message This shouldn't be needed anymore, and it can interfere with feedback from the new send-direct-message command. --- ement-room.el | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/ement-room.el b/ement-room.el index 4974fa5..e73fa8d 100644 --- a/ement-room.el +++ b/ement-room.el @@ -1239,13 +1239,7 @@ mentioning the ROOM and CONTENT." (ement-room-display-name room)))) (when content (setf message (concat message (format " Event content: %S" content)))) - (display-warning 'ement-room-send-event-callback message)) - (when (eq :debug warning-minimum-log-level) - ;; HACK: Mildly abuse `warning-minimum-log-level' by using it to control whether - ;; successfully sent events display a message. This is really only needed for - ;; debugging (until adding local echo), and using actual warnings would be too much. - (message "Message sent to room %S: %S" - (ement-room-display-name room) (alist-get "body" content nil nil #'equal)))) + (display-warning 'ement-room-send-event-callback message))) (when (eq 'send ement-room-mark-rooms-read) ;; Move read markers. (when-let ((buffer (alist-get 'buffer (ement-room-local room))))