aboutsummaryrefslogtreecommitdiff
path: root/sx-interaction.el
diff options
context:
space:
mode:
Diffstat (limited to 'sx-interaction.el')
-rw-r--r--sx-interaction.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/sx-interaction.el b/sx-interaction.el
index 9af9ac6..2768c8d 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -320,7 +320,9 @@ from context at point."
(let ((buffer (current-buffer)))
(pop-to-buffer
(sx-compose-create
- .site data nil
+ .site data
+ ;; Before send hook
+ (when .comment_id (list #'sx--comment-valid-p))
;; After send functions
(list (lambda (_ res)
(sx--copy-data (elt res 0) data)