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-12 18:05:52 +0200 |
| commit | f62545ecd00d23968f214479a8111c538d54cf86 (patch) | |
| tree | 2ca512f9ab3471a1e8c6959b6f3482928b926440 /lisp | |
| parent | 349e73b0807c8113088014ddd05d4e412cf9cece (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 4a8e76a..64f59ca 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -338,11 +338,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 88ee34b..14b9d68 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1172,7 +1172,8 @@ which is used to attach it to a toot when posting." (let* ((filename (expand-file-name (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 () |