[elpa] externals-release/ement cb24ae6a27 03/10: Fix: (ement-room-delete-message) Redact original messages

[ELPA Syncer]

branch: externals-release/ement
commit cb24ae6a2785489746185fff3805b38c54766a0e
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (ement-room-delete-message) Redact original messages
    
    Seems like the correct thing to do.  See
    
<https://spec.matrix.org/v1.8/client-server-api/#redactions-of-edited-events>.
    
    Fixes #228.
    
    Reported-by: Phil Sainty <phil@catalyst.net.nz>
---
 ement-room.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ement-room.el b/ement-room.el
index a522d867c4..a5162b9c16 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -1752,7 +1752,7 @@ itself an edit of another event, the original event is 
edited."
                            ement-room ement-session (read-string "Reason 
(optional): " nil nil nil 'inherit-input-method))
                    ;; HACK: This isn't really an error, but is there a cleaner 
way to cancel?
                    (user-error "Message not deleted"))))
-  (ement-redact event room session reason))
+  (ement-redact (ement--original-event-for event session) room session reason))
 
 (defun ement-room-write-reply (event)
   "Write and send a reply to EVENT.