diff --git a/src/program-events.lisp b/src/program-events.lisp
index a1a6f77..bf993b1 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -830,7 +830,9 @@
     :reader    use-ui-notification-p
     :writer   use-ui-notification)))
 
-(defmacro with-sending-message-data ((message-body subject reply-to mentions visibility)
+(defmacro with-sending-message-data ((message-body subject
+                                      reply-to mentions
+                                      visibility language)
                                      &body body)
   (with-gensyms (send-win message-data)
     `(let ((,send-win specials:*send-message-window*))
@@ -839,12 +841,13 @@
                           (,subject      sending-message:subject)
                           (,reply-to     sending-message:reply-to)
                           (,mentions     sending-message:mentions)
-                          (,visibility   sending-message:visibility)) ,message-data
+                          (,visibility   sending-message:visibility)
+                          (,language     sending-message:language)) ,message-data
            ,@body)))))
 
 (defmethod process-event ((object send-message-event))
   (let ((send-win specials:*send-message-window*))
-    (with-sending-message-data (body subject reply-to mentions visibility)
+    (with-sending-message-data (body subject reply-to mentions visibility language)
       (let* ((attachments (line-oriented-window:map-rows send-win
                                                          #'line-oriented-window:normal-text))
              (alt-text    (line-oriented-window:map-rows send-win
@@ -869,7 +872,8 @@
                                     attachments
                                     alt-text
                                     subject
-                                    (make-keyword (string-upcase visibility)))
+                                    (make-keyword (string-upcase visibility))
+                                    language)
                 (ui:notify (_ "Message sent"))
                 (ui:close-send-message-window))))))))