[elpa] externals/ement 3acad3e4d8 11/30: Fix: (ement-room-compose-send) Use `ement--original-event-for'

[ELPA Syncer]

branch: externals/ement
commit 3acad3e4d86e8755090285b44ff80fcfde8d8eaa
Author: Phil Sainty <phil@catalyst.net.nz>
Commit: Phil Sainty <phil@catalyst.net.nz>

    Fix: (ement-room-compose-send) Use `ement--original-event-for'
---
 ement-room.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ement-room.el b/ement-room.el
index 4260f071ae..b5f7ef739b 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -3813,10 +3813,13 @@ To be called from an `ement-room-compose' buffer."
                    (ement-room-read-string prompt body 
'ement-room-message-history
                                            nil 'inherit-input-method))))
       (if editing-event
-          (ement-room-edit-message editing-event room session body)
+          (ement-room-edit-message (ement--original-event-for editing-event 
session)
+                                   room session body)
         (ement-room-send-message room session
                                  :body body
-                                 :replying-to-event replying-to-event)))))
+                                 :replying-to-event (and replying-to-event
+                                                         
(ement--original-event-for
+                                                          replying-to-event 
session)))))))
 
 (defun ement-room-init-compose-buffer (room session)
   "Set up the current buffer as a compose buffer.