diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-http.el | 3 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 7 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 4721087..60654ff 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -142,9 +142,10 @@ Used for API form data parameters that take an array." "POST synchronously to URL, optionally with PARAMS and HEADERS. Authorization header is included by default unless UNAUTHENTICATED-P is non-nil. - If JSON is :json, encode PARAMS as JSON for the request data. If it is :raw, just use the plain params." + ;; NB: raw is used by `mastodon-tl--unfilter-user-languages'; not sure if + ;; there's a way around it? (mastodon-http--authorized-request "POST" (let* ((url-request-data (when params diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 3d33e86..67e13b6 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2103,12 +2103,15 @@ desired language if they are not marked as such (or as anything)." (mastodon-tl--follow-user user-handle nil langs)))) (defun mastodon-tl--unfilter-user-languages (user-handle) - "" + "Remove any language filters for USER-HANDLE. +This means you will receive posts of theirs marked as being in +any or no language." (interactive (list (mastodon-tl--user-handles-get "filter by language"))) (let ((langs "languages[]")) (mastodon-tl--do-if-item - ;; we need ("languages[]") as a param, with no "=" + ;; we need "languages[]" as a param, with no "=" and not json-encoded as + ;; a string (mastodon-tl--follow-user user-handle nil langs nil :raw)))) (defun mastodon-tl--read-filter-langs (&optional langs) |