branch: elpa/mastodon
commit 716c0bf026d879a9404c92b3f9bfe59efdf8b226
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
fix compose status fields. FIX #763
---
lisp/mastodon-toot.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index e9702fbdba..5c27b49bb6 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1899,9 +1899,10 @@ REPLY-REGION is a string to be injected into the buffer."
(point-max)))
(toot-quote (mastodon-tl--find-property-range 'toot-quote
(point-min)))
- (quote-text (save-excursion
- (goto-char (car toot-quote))
- (mastodon-tl--property 'toot-quote :nomove))))
+ (quote-text (when toot-quote
+ (save-excursion
+ (goto-char (car toot-quote))
+ (mastodon-tl--property 'toot-quote :nomove)))))
(mastodon-toot--apply-fields-props
count-region
(format "%s/%s chars"
