From 50f5933449a61c20592e637bf8c43db0b6afdae7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 17 Sep 1999 02:51:15 +0000 Subject: [PATCH] (gnus-treat-article): Inherit the text property `mime-view-entity' in the modified header under FSF Emacsen. --- lisp/gnus-art.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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) -- 1.7.10.4