diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-29 15:47:41 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-29 15:47:41 +0100 |
| commit | 679e15e955e0d7f4d204ea71aaeadaf26bfa690c (patch) | |
| tree | a270c9e3a3441c546a53bb6b05ce4c10bbec2056 | |
| parent | 7fd6a014a7b7301c03a13e5561d92f9f7e6ca208 (diff) | |
edit toot: use set-toot-properties
| -rw-r--r-- | lisp/mastodon-toot.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 2c5c523..86c192b 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -766,16 +766,15 @@ instance to edit a toot." (content (alist-get 'text source)) (source-cw (alist-get 'spoiler_text source)) (toot-visibility (alist-get 'visibility toot)) + (toot-language (alist-get 'language toot)) (reply-id (alist-get 'in_reply_to_id toot))) (when (y-or-n-p "Edit this toot? ") (mastodon-toot--compose-buffer) (goto-char (point-max)) (insert content) - ;; adopt reply-to-id, visibility and CW: - (when reply-id - (setq mastodon-toot--reply-to-id reply-id)) - (setq mastodon-toot--visibility toot-visibility) - (mastodon-toot--set-cw source-cw) + ;; adopt reply-to-id, visibility, CW, and language: + (mastodon-toot--set-toot-properties reply-id toot-visibility + source-cw toot-language) (mastodon-toot--update-status-fields) (setq mastodon-toot--edit-toot-id id)))))) |