From 1adb3e8583f8ec851cb2420c8cfede1192d017b7 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Sat, 17 Aug 2024 10:28:06 +0200
Subject: process-image-response (change args order)
---
lisp/mastodon-media.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
index d386462..ce2f8f5 100644
--- a/lisp/mastodon-media.el
+++ b/lisp/mastodon-media.el
@@ -273,7 +273,7 @@ IBCAQICX9F8/bNVInwJ8BAAAAABJRU5ErkJggg==")
"The PNG data for a sensitive image placeholder.")
(defun mastodon-media--process-image-response
- (status-plist marker image-options region-length url)
+ (status-plist url marker image-options region-length)
"Callback function processing the url retrieve response for URL.
STATUS-PLIST is the usual plist of status events as per `url-retrieve'.
IMAGE-OPTIONS are the precomputed options to apply to the image.
@@ -390,7 +390,7 @@ REGION-LENGTH is the range from start to propertize."
(mastodon-media--image-or-cached
url
#'mastodon-media--process-image-response
- (list nil marker image-options region-length url))
+ (list nil url marker image-options region-length))
(error (with-current-buffer buffer
;; TODO: Add retries
(put-text-property marker (+ marker region-length)
--
cgit v1.2.3