From 9c831f71e8600d1ccd988e3439d23ce9ab7ee96b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 25 Aug 1999 14:03:12 +0000 Subject: [PATCH] (gnus-treat-article): Don't treat the article if the value of `gnus-inhibit-treatment' is non-nil. (article-toggle-headers): Don't redisplay X-Face if the value of `gnus-inhibit-treatment' is non-nil. (gnus-article-treat-custom): Add new treatment variable `mime'. --- lisp/gnus-art.el | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 7cd2a5d..29e27b0 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -645,6 +645,7 @@ be added below it (otherwise)." (const :tag "On" t) (const :tag "Header" head) (const :tag "Last" last) + (const :tag "Mime" mime) (integer :tag "Less") (repeat :tag "Groups" regexp) (sexp :tag "Predicate"))) @@ -1286,7 +1287,8 @@ if given a positive prefix, always hide." (let ((func (cadr (assq 'gnus-treat-display-xface gnus-treatment-function-alist))) (condition 'head)) - (when (and func + (when (and (not gnus-inhibit-treatment) + func (gnus-treat-predicate gnus-treat-display-xface)) (funcall func) (put-text-property header-start header-end 'read-only nil)))) @@ -4890,15 +4892,16 @@ For example: (highlightp (gnus-visual-p 'article-highlight 'highlight)) val elem) (gnus-run-hooks 'gnus-part-display-hook) - (while (setq elem (pop alist)) - (setq val (symbol-value (car elem))) - (when (and (or (consp val) - treated-type) - (gnus-treat-predicate val) - (or (not (get (car elem) 'highlight)) - highlightp)) - (save-restriction - (funcall (cadr elem))))))) + (unless gnus-inhibit-treatment + (while (setq elem (pop alist)) + (setq val (symbol-value (car elem))) + (when (and (or (consp val) + treated-type) + (gnus-treat-predicate val) + (or (not (get (car elem) 'highlight)) + highlightp)) + (save-restriction + (funcall (cadr elem)))))))) ;; Dynamic variables. (defvar part-number) -- 1.7.10.4