branch: elpa/mastodon
commit ade859390f79e10247bdc0e443d58f378326fb14
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
dont trip up if a status's quote is in state "pending"
---
lisp/mastodon-tl.el | 29 ++++++++++++++++-------------
1 file changed, 16 insertions(+), 13 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 87b6f5a5bb..5754c1b031 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1916,22 +1916,25 @@ Runs `mastodon-tl--render-text' and fetches poll or
media."
"Propertize quoted status DATA for insertion."
(let ((bar (concat " " (mastodon-tl--symbol 'reply-bar)))
(content (map-nested-elt data '(quoted_status content)))
- ;; quote symbol hack:
+ (state (alist-get 'state data))
+ ;; quote symbol hack:
(quotemark (propertize "“" 'face
'(t :inherit success :weight bold
:height 1.8))))
- (propertize
- (concat quotemark "\n"
- ;; author byline without horiz bar and toot stats:
- (mastodon-tl--byline-author
- (alist-get 'quoted_status data) nil :domain :base)
- "\n"
- ;; quoted text:
- (mastodon-tl--render-text content
- (alist-get 'quoted_status data)))
- 'line-prefix bar
- 'wrap-prefix bar
- 'mastodon-quote data)))
+ (unless (or (string= "deleted" state)
+ (string= "pending" state))
+ (propertize
+ (concat quotemark "\n"
+ ;; author byline without horiz bar and toot stats:
+ (mastodon-tl--byline-author
+ (alist-get 'quoted_status data) nil :domain :base)
+ "\n"
+ ;; quoted text:
+ (mastodon-tl--render-text content
+ (alist-get 'quoted_status data)))
+ 'line-prefix bar
+ 'wrap-prefix bar
+ 'mastodon-quote data))))
(defun mastodon-tl--insert-status
(toot body &optional detailed-p thread domain unfolded no-byline
