diff --git a/src/program-events.lisp b/src/program-events.lisp
index 154fe9e..316841f 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -882,14 +882,15 @@
                                                      mentions
                                                      body)
                                              body)))
-                (client:send-status actual-message-body
-                                    reply-to
-                                    attachments
-                                    alt-text
-                                    subject
-                                    (make-keyword (string-upcase visibility))
-                                    language)
-                (ui:notify (_ "Message sent"))
+                (tui:with-notify-errors
+                  (client:send-status actual-message-body
+                                      reply-to
+                                      attachments
+                                      alt-text
+                                      subject
+                                      (make-keyword (string-upcase visibility))
+                                      language)
+                  (ui:notify (_ "Message sent")))
                 (ui:close-send-message-window))))))))
 
 (defun find-user-id-from-exact-acct (username)