diff options
| author | mousebot <mousebot@riseup.net> | 2021-10-21 20:41:44 +0200 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2021-10-21 20:41:44 +0200 |
| commit | 4e4c6358477aa74424638b1df6fdb13a77e6aaa0 (patch) | |
| tree | 62ffaa16905679a1751f12d499806d2c22851568 /lisp | |
| parent | 56330f7a073c3cb50119debd74338b2c858e1308 (diff) | |
fix cw test for replies and for redrafts: "" not nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-toot.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 5866636..3a53851 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -299,7 +299,7 @@ Remove MARKER if REMOVE is non-nil, otherwise add it." (insert content) ;; adopt visibility and CW from deleted toot: (setq mastodon-toot--visibility toot-visibility) - (when toot-cw + (when (not (equal toot-cw "")) (setq mastodon-toot--content-warning t) (setq mastodon-toot--content-warning-from-reply-or-redraft toot-cw)) (mastodon-toot--update-status-fields)))))))))) @@ -680,7 +680,7 @@ If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var." (if (not (equal mastodon-toot--visibility reply-visibility)) (setq mastodon-toot--visibility reply-visibility)) - (when reply-cw + (when (not (equal reply-cw "")) (setq mastodon-toot--content-warning t) (setq mastodon-toot--content-warning-from-reply-or-redraft reply-cw))))) |