aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-10-14 19:55:22 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-10-14 21:14:17 +0200
commita672c056a8dfb17f9513933189e2786c42542398 (patch)
tree6edb2bd69cffdd31c2148a3770e2b8c5bf9549eb /lisp/mastodon-tl.el
parent0fc64df90d9cb8ccb6b1968e0dc36ece6c9b639c (diff)
fix init-sync for notifs-get compat with link-header/get-response
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 47824c0..0c4f8af 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2673,9 +2673,10 @@ Optional arg NOTE-TYPE means only get that type of note."
(url (mastodon-http--api endpoint))
(buffer (concat "*mastodon-" buffer-name "*"))
(response (mastodon-http--get-response url params))
- (json (if headers (car response) response))
- (headers (if headers (cdr response) nil))
- (link-header (mastodon-tl--get-link-header-from-response headers)))
+ (json (car response))
+ (headers (when headers (cdr response)))
+ (link-header (when headers
+ (mastodon-tl--get-link-header-from-response headers))))
(with-mastodon-buffer buffer #'mastodon-mode nil
;; insert view-name/ heading-str
(when view-name
@@ -2683,7 +2684,6 @@ Optional arg NOTE-TYPE means only get that type of note."
(when binding-str
(insert (mastodon-tl--set-face (concat "[" binding-str "]\n\n")
'font-lock-comment-face)))
-
(mastodon-tl--set-buffer-spec buffer endpoint update-function
link-header params)
(mastodon-tl--do-init json update-function)