emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/mastodon 62b973fde6 03/18: spoiler invis: fix respect of s


From: ELPA Syncer
Subject: [nongnu] elpa/mastodon 62b973fde6 03/18: spoiler invis: fix respect of server setting
Date: Thu, 21 Nov 2024 13:00:17 -0500 (EST)

branch: elpa/mastodon
commit 62b973fde6a3e71ba64bc40b1fcb0a15ede08341
Author: marty hiatt <martianhiatus@disroot.org>
Commit: marty hiatt <martianhiatus@disroot.org>

    spoiler invis: fix respect of server setting
---
 lisp/mastodon-tl.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 8b5bcd15f8..26ad4d9bfc 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1287,13 +1287,15 @@ FILTER is a string to use as a filter warning spoiler 
instead."
             (if (not (eq 'server cust))
                 (not cust) ;; opp to setting
               ;; respect server setting:
-              (not
-               ;; If something goes wrong reading prefs,
-               ;; just return nil so CWs show by default.
-               (condition-case nil
-                   (mastodon-profile--get-preferences-pref
-                    'reading:expand:spoilers)
-                 (error nil))))))
+              ;; If something goes wrong reading prefs,
+              ;; just return t so CWs fold by default.
+              (condition-case nil
+                  (if (eq :json-false
+                          (mastodon-profile--get-preferences-pref
+                           'reading:expand:spoilers))
+                      t
+                    nil)
+                (error t)))))
       'mastodon-content-warning-body t))))
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]