[nongnu] elpa/mastodon 38f9437ad9 37/45: preserve media when editing scheduled toot

[ELPA Syncer]

branch: elpa/mastodon
commit 38f9437ad99db8a94f64e721f80294c54d7b7ecb
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    preserve media when editing scheduled toot
---
 lisp/mastodon-views.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 28f7c7c541..8e04434249 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -572,14 +572,14 @@ NO-CONFIRM means there is no ask or message, there is 
only do."
       (let* ((toot (mastodon-tl--property 'scheduled-json :no-move))
              (scheduled (alist-get 'scheduled_at toot)))
         (let-alist (alist-get 'params toot)
+          ;; TODO: preserve polls
           ;; (poll (alist-get 'poll params))
-          ;; (media (alist-get 'media_attachments toot)))
-          (mastodon-toot--compose-buffer)
+          (mastodon-toot--compose-buffer nil .in_reply_to_id nil .text :edit)
           (goto-char (point-max))
-          (insert .text)
           ;; adopt properties from scheduled toot:
           (mastodon-toot--set-toot-properties
-           .in_reply_to_id .visibility .spoiler_text .language scheduled 
id))))))
+           .in_reply_to_id .visibility .spoiler_text .language
+           scheduled id (alist-get 'media_attachments toot)))))))
 
 
 ;;; FILTERS