diff --git a/src/program-events.lisp b/src/program-events.lisp index 216c05e..aca7fbb 100644 --- a/src/program-events.lisp +++ b/src/program-events.lisp @@ -478,8 +478,8 @@ (when (or (and (db:user-ignored-p account-id) (not (db:status-skipped-p status-id folder timeline-type))) (and language - (cl-ppcre:scan (swconf:config-post-allowed-language) - language)) + (not (cl-ppcre:scan (swconf:config-post-allowed-language) + (string-downcase (string language))))) (and rebloggedp (db:boost-ignored-p account-id)) (and (text-utils:string-not-empty-p tags)