diff options
| -rw-r--r-- | sx-interaction.el | 4 |
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) |