From c93b51e1fa27c50508ecd306eeee39d45df47da1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 23 Nov 2004 22:05:16 +0000 Subject: [PATCH] Synch to No Gnus 200411231714. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 18 ++++++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d8699b3..127dbe8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-23 Lars Magne Ingebrigtsen + + * message.el (message-strip-forbidden-properties): Bind + buffer-read-only (etc) to nil. + 2004-11-23 Katsumi Yamaoka * rfc2047.el (rfc2047-header-encoding-alist): Add In-Reply-To to diff --git a/lisp/message.el b/lisp/message.el index 361d6e7..e3d2f18 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2674,14 +2674,16 @@ These properties are essential to work, so we should never strip them." "Strip forbidden properties between BEGIN and END, ignoring the third arg. This function is intended to be called from `after-change-functions'. See also `message-forbidden-properties'." - (when (and message-strip-special-text-properties - (message-tamago-not-in-use-p begin) - ;; Check whether the invisible MIME part is not inserted. - (not (text-property-any begin end 'mime-edit-invisible t))) - (dolist (from-to (message-text-with-property 'message-hidden - begin end t)) - (remove-text-properties (car from-to) (cdr from-to) - message-forbidden-properties)))) + (let ((buffer-read-only nil) + (inhibit-read-only t)) + (when (and message-strip-special-text-properties + (message-tamago-not-in-use-p begin) + ;; Check whether the invisible MIME part is not inserted. + (not (text-property-any begin end 'mime-edit-invisible t))) + (dolist (from-to (message-text-with-property 'message-hidden + begin end t)) + (remove-text-properties (car from-to) (cdr from-to) + message-forbidden-properties))))) ;;;###autoload (define-derived-mode message-mode text-mode "Message" -- 1.7.10.4