diff options
author | marty hiatt <martianhiatus@riseup.net> | 2024-08-06 12:38:01 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-06 12:38:01 +0200 |
commit | 299b72043a61d6e500d04c45221fd21adb94eef8 (patch) | |
tree | 2fa86e1557eb92f734e6847e722f5cd2fe16a7b4 /lisp | |
parent | 6b70ee39efcb958c3bc300498a009b04bee06e84 (diff) |
refactor mastodon-profile--user-profile-send-updated
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-profile.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 9461f02..8249641 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -347,10 +347,8 @@ Ask for confirmation if length > 500 characters." (interactive) (let* ((note (mastodon-profile--note-remove-header)) (url (mastodon-http--api "accounts/update_credentials"))) - (if (> (mastodon-toot--count-toot-chars note) 500) - (when (y-or-n-p "Note is over mastodon's max for profile notes (500). Proceed?") - (quit-window 'kill) - (mastodon-profile--user-profile-send-updated-do url note)) + (when (or (not (> (mastodon-toot--count-toot-chars note) 500)) + (y-or-n-p "Note is over mastodon's max for profile notes (500). Proceed?")) (quit-window 'kill) (mastodon-profile--user-profile-send-updated-do url note)))) |