aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 908a063..70d0223 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1602,6 +1602,7 @@ Folding decided by `mastodon-tl--fold-toots-at-length'."
(save-excursion
(goto-char beg)
(delete-region beg end)
+ (delete-char 1) ;; prevent newlines accumulating
(mastodon-tl--toot toot nil nil nil
(when (not fold) :unfolded)))
;; move point to line where text formerly ended:
@@ -1612,7 +1613,9 @@ Folding decided by `mastodon-tl--fold-toots-at-length'."
(defun mastodon-tl--fold-post ()
"Fold post at point, if it is too long."
(interactive)
- (mastodon-tl--unfold-post :fold))
+ (mastodon-tl--unfold-post :fold)
+ ;; inserting leaves us at beg of toot, so let's leave point at byline:
+ (mastodon-tl--goto-next-item))
;; from mastodon-alt.el:
(defun mastodon-tl--toot-for-stats (&optional toot)