* riece-foolproof.el (riece-foolproof-command-send-message-function):

Check invisible text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1d217d..560978b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * riece-foolproof.el (riece-foolproof-command-send-message-function): 
+       Check invisible text.
+
 2004-12-07  Daiki Ueno  <ueno@unixuser.org>
 
        * test/test-riece-log.el (test-riece-log-encode-file-name): New

diff --git a/lisp/riece-foolproof.el b/lisp/riece-foolproof.el
index f691a0a..75e2e97 100644 (file)
--- a/lisp/riece-foolproof.el
+++ b/lisp/riece-foolproof.el
@@ -51,6 +51,13 @@
                 riece-current-channel))
       (error "Channel %s is not displayed"
             (riece-identity-prefix riece-current-channel)))
+    (when (text-property-not-all
+          (riece-line-beginning-position) (riece-line-end-position)
+          'invisible nil)
+      (error "Invisible text included: %s"
+            (buffer-substring-no-properties
+             (riece-line-beginning-position)
+             (riece-line-end-position))))
     (when executing-kbd-macro
       (error "%s" "Forbidden to run keyboard macro"))))