aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 75f1f9e..befffee 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -96,7 +96,8 @@ followers-only), or \"direct\"."
:group 'mastodon-toot
:type 'integer)
-(defcustom mastodon-toot--enable-completion-for-mentions (if (require 'company nil :noerror) "following" "off")
+(defcustom mastodon-toot--enable-completion-for-mentions
+ (if (require 'company nil :noerror) "following" "off")
"Whether to enable company completion for mentions.
Used for completion in toot compose buffer.
@@ -125,7 +126,8 @@ This is only used if company mode is installed."
(defvar-local mastodon-toot--visibility "public"
"A string indicating the visibility of the toot being composed.
-Valid values are \"direct\", \"private\" (followers-only), \"unlisted\", and \"public\".")
+Valid values are \"direct\", \"private\" (followers-only),
+\"unlisted\", and \"public\".")
(defvar-local mastodon-toot--media-attachments nil
"A list of the media attachments of the toot being composed.")
@@ -279,6 +281,8 @@ Makes a POST request to the server."
(if (y-or-n-p (format "%s this toot? " msg-y-or-n))
(mastodon-toot--action action
(lambda ()
+ (when mastodon-tl--buffer-spec
+ (mastodon-tl--reload-timeline-or-profile))
(message "Toot %s!" msg)))))))
(defun mastodon-toot--delete-toot ()