From: kaoru <kaoru>
Date: Tue, 7 Dec 2004 06:16:49 +0000 (+0000)
Subject: * riece-foolproof.el (riece-foolproof-command-send-message-function):
X-Git-Tag: riece-1_0_7~120
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0dd65c067615c6a9f66b733dafd66ee814a67ef7;p=elisp%2Friece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1d217d..560978b 100644
--- 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
--- 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"))))