From 34753b9cb10beaa529f9f56cbc5bea3d11960ea3 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 17 Dec 2014 12:53:35 -0200
Subject: Do comment validity checking on edits too

---
 sx-interaction.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'sx-interaction.el')

diff --git a/sx-interaction.el b/sx-interaction.el
index 8aa82a2..c6f2639 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -302,7 +302,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)
-- 
cgit v1.2.3