From 0c7912ad2b9133e8d52927fe1ee95d08edcfb675 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 10 Jan 2002 05:59:47 +0000 Subject: [PATCH] * message.el (message-strip-forbidden-properties): Don't strip properties when the invisible MIME part is inserted. --- ChangeLog | 3 +++ lisp/message.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3a0c447..f074ed4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2002-01-10 Katsumi Yamaoka + * 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 -- 1.7.10.4