diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-02-18 22:03:07 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-02-18 22:07:46 +0100 |
| commit | 3823bfa94c43d9d26190e5c25ebb159933b7cc2b (patch) | |
| tree | 9365b795b073227975dd7d1348ed35bd65c10540 | |
| parent | 343c38944a8ff1c10f22aecc43d906640874b680 (diff) | |
get-link-header: test for "link" header specifically
this prevents breakage if a profile's follwers/following is hidden.
| -rw-r--r-- | lisp/mastodon-tl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 57d827b..87bac66 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2994,8 +2994,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 - ;; pleroma uses "link", so case-insensitive match required: + ;; pleroma uses "link", so case-insensitive match required: + (when (alist-get "Link" headers nil nil 'cl-equalp) (split-string (alist-get "Link" headers nil nil 'cl-equalp) ", "))) (defun mastodon-tl--init (buffer-name endpoint update-function |