From: yamaoka <yamaoka>
Date: Fri, 17 Sep 1999 02:51:15 +0000 (+0000)
Subject: (gnus-treat-article): Inherit the text property `mime-view-entity' in the
X-Git-Tag: t-gnus-6_13_1-05~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=50f5933449a61c20592e637bf8c43db0b6afdae7;p=elisp%2Fgnus.git-

(gnus-treat-article): Inherit the text property `mime-view-entity' in the
modified header under FSF Emacsen.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index caa14c1..a4c6fb5 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4920,6 +4920,9 @@ For example:
 		   (when (string-match (pop list) type)
 		     (throw 'found t)))))))
 	(highlightp (gnus-visual-p 'article-highlight 'highlight))
+	(entity (static-unless (featurep 'xemacs)
+		  (when (eq 'head condition)
+		    (get-text-property (point-min) 'mime-view-entity))))
 	val elem)
     (gnus-run-hooks 'gnus-part-display-hook)
     (unless gnus-inhibit-treatment
@@ -4931,7 +4934,13 @@ For example:
 		   (or (not (get (car elem) 'highlight))
 		       highlightp))
 	  (save-restriction
-	    (funcall (cadr elem))))))))
+	    (funcall (cadr elem)))))
+      ;; FSF Emacsen does not inherit the existing text properties
+      ;; in the new text, so we should do it for `mime-view-entity'.
+      (static-unless (featurep 'xemacs)
+	(when entity
+	  (put-text-property (point-min) (point-max)
+			     'mime-view-entity entity))))))
 
 ;; Dynamic variables.
 (defvar part-number)