From 1c5df40437ee054bb7276ffd5e0d8804a288ad84 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 15 Jun 2000 07:45:20 +0000 Subject: [PATCH] (message-fix-before-sending): Enable invisible checking. --- lisp/message.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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." -- 1.7.10.4