branch: elpa/mastodon
commit ebffa94244bdd9ae85d23cacd9f3b34646dc3bc8
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
toot-quote: re-write cond logic.
---
lisp/mastodon-toot.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 198a964664..f62561bf2e 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1615,12 +1615,12 @@ If TRANSIENT, we are called from a transient, so nil
;; for now all we do is hand on quoted toot's visibility:
(visibility (mastodon-tl--field 'visibility json)))
- (pcase user-policy
- ("denied" (user-error "You don't have permission to quote this toot."))
- ("unknown"
- (when (y-or-n-p "Quote permission unknown. Proceed?")
- (mastodon-toot--compose-buffer nil nil nil nil nil quote-id json
visibility)))
- (_ (mastodon-toot--compose-buffer nil nil nil nil nil quote-id json
visibility)))))
+ (if (string= user-policy "denied")
+ (user-error "You don't have permission to quote this toot.")
+ (when (or (not (string= user-policy "unknown"))
+ (y-or-n-p "Quote permission unknown. Proceed?"))
+ (mastodon-toot--compose-buffer nil nil nil nil nil
+ quote-id json visibility)))))
;;; SCHEDULE
