* message.el (message-strip-forbidden-properties): Don't strip properties

 when the invisible MIME part is inserted.

diff --git a/ChangeLog b/ChangeLog
index 61045f1..2144f9f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lisp/message.el (message-strip-forbidden-properties): Don't
+       strip properties when the invisible MIME part is inserted.
+
        * lisp/gnus-xmas.el (gnus-xmas-group-startup-message): Position
        point to the top.
 

diff --git a/lisp/message.el b/lisp/message.el
index 3012501..2118617 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1934,7 +1934,9 @@ These properties are essential to work, so we should never strip them."
 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))
+            (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)))
     (remove-text-properties begin end message-forbidden-properties)))
 
 ;;;###autoload