branch: elpa/mastodon
commit 43cbbe2d3c13ce1ca4351311a9b6b151d59291c9
Merge: 4b676a4ba4 6f5b455e47
Author: martianh <marti...@noreply.codeberg.org>
Commit: martianh <marti...@noreply.codeberg.org>
Merge pull request 'Fix byte/native-compile issues' (#716) from
ieure/mastodon.el:fix-compile-issues into develop
---
lisp/mastodon-tl.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index f4a0dd2fe7..3baa5dfd83 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2676,7 +2676,7 @@ Note that you can only (un)mute threads you have posted
in."
(mastodon-tl--goto-first-item)
(mastodon-tl--property 'base-item-id :no-move)))
-(defun mastodon-tl--mute-or-unmute-thread (&optional unmute)
+(defun mastodon-tl--mute-or-unmute-thread (&optional unmute)
"Mute a thread.
If UNMUTE, unmute it."
(let ((mute-str (if unmute "unmute" "mute")))
@@ -2692,7 +2692,7 @@ If UNMUTE, unmute it."
(url (mastodon-http--api (format "statuses/%s/%s" id mute-str))))
(if (not we-posted-p)
(user-error "You can only (un)mute a thread you have posted in")
- (when (y-or-n-p (format "%s this thread? " (capitalize mute-str)))
+ (when (y-or-n-p (format "%s this thread? " mute-str))
(let ((response (mastodon-http--post url)))
(mastodon-http--triage
response
@@ -3111,7 +3111,7 @@ PREFIX is sent to `mastodon-tl-get-tag-timeline', which
see."
PREFIX is sent to `mastodon-tl-get-tag-timeline', which see."
(interactive)
(let* ((json (mastodon-tl--followed-tags))
- (sorted (sort json :key (lambda (x)
+ (sorted (cl-sort json :key (lambda (x)
(downcase (alist-get 'name x)))))
(buf "*mastodon-followed-tags*"))
(if (null sorted)
