diff options
| -rw-r--r-- | lisp/mastodon-tl.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index ad214e8..054c1e2 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2349,15 +2349,15 @@ HEADERS is the http headers returned in the response, if any." (json (if headers (car response) response)) ;; FIXME: max-id pagination works for statuses only, not other ;; search results pages: - (json (cond ((equal "statuses" (mastodon-search--buf-type)) - (cdr ; avoid repeat of last status - (alist-get 'statuses response))) - ((equal "hashtags" (mastodon-search--buf-type)) - (alist-get 'hashtags response)) - ((equal "accounts" (mastodon-search--buf-type)) - (alist-get 'accounts response)) - (t - json))) + (json (if (mastodon-tl--search-buffer-p) + (cond ((equal "statuses" (mastodon-search--buf-type)) + (cdr ; avoid repeat of last status + (alist-get 'statuses response))) + ((equal "hashtags" (mastodon-search--buf-type)) + (alist-get 'hashtags response)) + ((equal "accounts" (mastodon-search--buf-type)) + (alist-get 'accounts response))) + json)) (headers (if headers (cdr response) nil)) (link-header (mastodon-tl--get-link-header-from-response headers))) (goto-char (point-max)) |