From: yamaoka <yamaoka>
Date: Thu, 10 Jan 2002 05:59:47 +0000 (+0000)
Subject: * message.el (message-strip-forbidden-properties): Don't strip properties
X-Git-Tag: t-gnus-6_15_4-11~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c7912ad2b9133e8d52927fe1ee95d08edcfb675;p=elisp%2Fgnus.git-

* message.el (message-strip-forbidden-properties): Don't strip properties
 when the invisible MIME part is inserted.
---

diff --git a/ChangeLog b/ChangeLog
index 3a0c447..f074ed4 100644
--- 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 c5cfd07..7a54d53 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1920,7 +1920,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