diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-01-13 09:31:43 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-01-13 09:42:42 +0100 |
| commit | e69aaeeae62b2b2dd0b9ec25c6be02c0d456a4e9 (patch) | |
| tree | 211f4071bdac280d6799a622dbbae5bb41f7324a /lisp | |
| parent | 0c17ad062d2550bfc752f6d2ed8513a0cd72ce56 (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.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index b3427fc..1d1ca97 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2821,7 +2821,8 @@ from the start if it is nil." (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. |