diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-07-12 18:05:52 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-07-13 10:26:23 +0200 |
| commit | a8112e5c150fc2ace856cb442fee6b1dd5d25066 (patch) | |
| tree | f458bf37720a56cb0b3737b0c8e1b193c5030d11 /lisp | |
| parent | b84bca8e91ee75704b6297e788944a07b5c364ee (diff) | |
message wait/done to attachment uploads, to avoid issues. See #478.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-http.el | 6 | ||||
| -rw-r--r-- | lisp/mastodon-toot.el | 3 |
2 files changed, 3 insertions, 6 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 49ffbf8..dcde29a 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -352,11 +352,7 @@ item uploaded, and `mastodon-toot--update-status-fields' is run." (when data (push (alist-get 'id data) mastodon-toot--media-attachment-ids) ; add ID to list - (message "%s file %s with id %S and caption '%s' uploaded!" - (capitalize (alist-get 'type data)) - file - (alist-get 'id data) - (alist-get 'description data)) + (message "Uploading %s... (done)" file) (mastodon-toot--update-status-fields)))) :error (cl-function (lambda (&key error-thrown &allow-other-keys) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index eb92c27..e77787c 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1167,7 +1167,8 @@ which is used to attach it to a toot when posting." (alist-get :filename attachment))) (caption (alist-get :description attachment)) (url (concat mastodon-instance-url "/api/v2/media"))) - (message "Uploading %s..." (file-name-nondirectory filename)) + (message "Uploading %s... (please wait before starting further uploads)" + (file-name-nondirectory filename)) (mastodon-http--post-media-attachment url filename caption))) (defun mastodon-toot--refresh-attachments-display () |