aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-13 09:31:43 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-13 09:31:43 +0100
commit56fb980cb9e7cfc1e13e45312c964be8a0fd3e90 (patch)
tree9cf55ee564fc2b893f77d2b546f796c463b269fa /lisp
parent3b35b51a36976d64bc3368d6bd8cce5edb350839 (diff)
case-insensitive match for --get-link-header-from-response
pleroma uses "link", not "Link". FIXES #352
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index a86a7e6..7ca0ddd 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2818,7 +2818,8 @@ This location is defined by a non-nil value of
(defun mastodon-tl--get-link-header-from-response (headers)
"Get http Link header from list of http HEADERS."
(when headers
- (split-string (alist-get "Link" headers nil nil 'equal) ", ")))
+ ;; pleroma uses "link", so case-insensitive match required:
+ (split-string (alist-get "Link" headers nil nil 'cl-equalp) ", ")))
(defun mastodon-tl--init (buffer-name endpoint update-function &optional headers params)
"Initialize BUFFER-NAME with timeline targeted by ENDPOINT asynchronously.