From 439e2ac0522881cb8861aa9a8ba6c03bb28a3311 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Wed, 9 Nov 2022 11:47:09 +0100
Subject: remove all 'headers' args in -toot and -tl

---
 lisp/mastodon-tl.el | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

(limited to 'lisp/mastodon-tl.el')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index af5a9a4..e2c2013 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1937,18 +1937,17 @@ favourites."
   (let ((url (mastodon-http--api endpoint))
         (buffer (concat "*mastodon-" buffer-name "*")))
     (mastodon-http--get-json-async
-     url headers 'mastodon-tl--init* buffer endpoint update-function)))
+     url 'mastodon-tl--init* buffer endpoint update-function)))
 
 (defun mastodon-tl--init* (response buffer endpoint update-function)
   "Initialize BUFFER with timeline targeted by ENDPOINT.
 UPDATE-FUNCTION is used to recieve more toots.
 RESPONSE is the data returned from the server by `mastodon-http--process-json', a cons cell of JSON and http headers."
-  (let* ((json (car response))
-         (headers (cdr response))
-         (link-header (when headers
-                        (split-string
-                         (car (alist-get "Link" headers nil nil 'equal))
-                         ","))))
+  (let* ((json response))
+         ;; (link-header (when headers
+                        ;; (split-string
+                         ;; (car (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:
@@ -1957,8 +1956,8 @@ RESPONSE is the data returned from the server by `mastodon-http--process-json',
     ;; unless we set it both before and after the others
     (mastodon-tl--set-buffer-spec buffer
                                   endpoint
-                                  update-function
-                                  link-header)
+                                  update-function)
+                                  ;; link-header)
     (setq
      ;; Initialize with a minimal interval; we re-scan at least once
      ;; every 5 minutes to catch any timestamps we may have missed
@@ -1969,8 +1968,8 @@ RESPONSE is the data returned from the server by `mastodon-http--process-json',
   (with-current-buffer buffer
     (mastodon-tl--set-buffer-spec buffer
                                   endpoint
-                                  update-function
-                                  link-header)
+                                  update-function)
+                                  ;; link-header)
     (setq mastodon-tl--timestamp-update-timer
           (when mastodon-tl--enable-relative-timestamps
             (run-at-time (time-to-seconds
-- 
cgit v1.2.3