[elpa] externals/ement 5f17b30f1f 17/30: Add command `ement-room-compose-reply'

[ELPA Syncer]

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

    Add command `ement-room-compose-reply'
---
 ement-room.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/ement-room.el b/ement-room.el
index efd667ddce..1bef73a2d3 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -1818,6 +1818,7 @@ itself an edit of another event, the original event is 
edited."
 (defun ement-room-write-reply (event)
   "Write and send a reply to EVENT.
 Interactively, to event at point."
+  ;; See also `ement-room-compose-reply'.
   (interactive (progn (cl-assert ement-ewoc)
                       (list (ewoc-data (ewoc-locate ement-ewoc)))))
   (cl-assert ement-room) (cl-assert ement-session) (cl-assert (ement-event-p 
event))
@@ -3769,6 +3770,17 @@ The message must be one sent by the local user."
     (ement-room-with-highlighted-event-at (point)
       (ement-room-compose-message room session :body body))))
 
+(defun ement-room-compose-reply (event)
+  "Write and send a reply to EVENT, using a compose buffer.
+Interactively, to event at point."
+  ;; See also `ement-room-write-reply'.
+  (interactive (progn (cl-assert ement-ewoc)
+                      (list (ewoc-data (ewoc-locate ement-ewoc)))))
+  (cl-assert ement-room) (cl-assert ement-session) (cl-assert (ement-event-p 
event))
+  (let ((ement-room-replying-to-event event))
+    (ement-room-with-highlighted-event-at (point)
+      (ement-room-compose-message ement-room ement-session))))
+
 (defun ement-room-compose-from-minibuffer ()
   "Edit the current message in a compose buffer.
 To be called from a minibuffer opened from