From: keiichi <keiichi>
Date: Thu, 15 Jun 2000 07:45:20 +0000 (+0000)
Subject: (message-fix-before-sending): Enable invisible checking.
X-Git-Tag: nana-gnus-7_1_0_22~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c5df40437ee054bb7276ffd5e0d8804a288ad84;p=elisp%2Fgnus.git-

(message-fix-before-sending): Enable invisible checking.
---

diff --git a/lisp/message.el b/lisp/message.el
index 8c2fa23..c6e698b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2302,11 +2302,11 @@ It should typically alter the sending method in some way or other."
   (unless (bolp)
     (insert "\n"))
   ;; Make all invisible text visible.
-  ;;(when (text-property-any (point-min) (point-max) 'invisible t)
-  ;;  (put-text-property (point-min) (point-max) 'invisible nil)
-  ;;  (unless (yes-or-no-p "Invisible text found and made visible; continue posting?")
-  ;;    (error "Invisible text found and made visible")))
-  )
+  (when (text-property-any (point-min) (point-max) 'invisible t)
+    (put-text-property (point-min) (point-max) 'invisible nil)
+    (unless (yes-or-no-p
+	     "Invisible text found and made visible; continue posting?")
+      (error "Invisible text found and made visible"))))
 
 (defun message-add-action (action &rest types)
   "Add ACTION to be performed when doing an exit of type TYPES."