From a8112e5c150fc2ace856cb442fee6b1dd5d25066 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 12 Jul 2023 18:05:52 +0200 Subject: message wait/done to attachment uploads, to avoid issues. See #478. --- lisp/mastodon-http.el | 6 +----- lisp/mastodon-toot.el | 3 ++- 2 files changed, 3 insertions(+), 6 deletions(-) (limited to 'lisp') 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 () -- cgit v1.2.3