branch: elpa/mastodon
commit 3f3821e7f1610bde826e0693a7302f05522822d3
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
inset quote: use --field, for handling boosts. FIX #752.
---
lisp/mastodon-tl.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 0a14fa242f5..87b6f5a5bb0 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1957,7 +1957,7 @@ CW-EXPANDED means treat content warnings as unfolded."
(string-empty-p
(alist-get 'spoiler_text toot))))
(body-tags (mastodon-tl--body-tags body))
- (quote (alist-get 'quote toot)))
+ (quote (mastodon-tl--field 'quote toot)))
(insert
(propertize ;; body + byline:
(concat
@@ -1975,12 +1975,12 @@ CW-EXPANDED means treat content warnings as unfolded."
(mastodon-tl--fold-body body)
body)))
(concat
- ;; insert quote maybe:
(if (and after-reply-status-p thread)
(propertize body
'line-prefix bar
'wrap-prefix bar)
body)
+ ;; insert quote maybe:
(when quote
(concat "\n\n"
(mastodon-tl--insert-quoted quote)
