From: yamaoka <yamaoka>
Date: Thu, 10 Jan 2002 05:59:56 +0000 (+0000)
Subject: * message.el (message-strip-forbidden-properties): Don't strip properties
X-Git-Tag: t-gnus-6_15_5-01-quimby~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3ea8f5d0f5b382335a2c12016e23c165e3c872da;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 61045f1..2144f9f 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 3012501..2118617 100644
--- 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