branch: elpa/mastodon
commit d224b8b0a76daa1cbe3636cd25e8c4901465e0ea
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>
down case tags in predicate check. FIX #717.
---
lisp/mastodon-tl.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 5c7b30c2ac..f114d01b86 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1184,9 +1184,11 @@ TAGS is a list of tag alists, from a post's JSON."
(defun mastodon-tl--base-tags-print-p (tags body-tags)
"Non-nil if we need to print base tags.
We need to do so if TAGS contains any elements not in BODY-TAGS."
- (cl-remove-if (lambda (tag)
- (member (alist-get 'name tag) body-tags))
- tags))
+ (cl-remove-if
+ (lambda (tag)
+ ;; downcase name string (body strings are downcased):
+ (member (downcase (alist-get 'name tag)) body-tags))
+ tags))
(defun mastodon-tl--render-base-tag (tag body-tags)
"Return TAG as a linkified string, provided it is not in BODY-TAGS."
