From e847059950308eea45bb70736a33a6d4c348bfff Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Wed, 9 Nov 2022 14:00:39 +0100
Subject: use a proper dotted alist for response headers list

---
 lisp/mastodon-http.el | 4 ++--
 lisp/mastodon-tl.el   | 5 +----
 2 files changed, 3 insertions(+), 6 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index fedbe95..1c6e1ae 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -191,8 +191,8 @@ Return a cons of JSON list and http response headers."
                     (re-search-forward "^$" nil 'move)))
          (head-list (split-string head-str "\n")))
     (mapcar (lambda (x)
-              ;; FIXME: use dotted notation so alist-get doesn't return a list
-              (split-string x ": "))
+              (let ((list (split-string x ": ")))
+                (cons (car list) (cadr list))))
             head-list)))
 
 (defun mastodon-http--delete (url)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index a2194b7..4a0f40c 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1949,10 +1949,7 @@ RESPONSE is the data returned from the server by `mastodon-http--process-json',
   (let* ((json (if headers (car response) response))
          (headers (if headers (cdr response) nil))
          (link-header (when headers
-                        (split-string
-                         (car
-                          (alist-get "Link" headers nil nil 'equal))
-                                      ", "))))
+                        (split-string (alist-get "Link" headers nil nil 'equal) ", "))))
   (with-output-to-temp-buffer buffer
     (switch-to-buffer buffer)
     ;; mastodon-mode wipes buffer-spec, so order must unforch be:
-- 
cgit v1.2.3