Synch to No Gnus 200411231714.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8699b3..127dbe8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-strip-forbidden-properties): Bind
+       buffer-read-only (etc) to nil.
+
 2004-11-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * 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 (file)
--- 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"