From: yamaoka <yamaoka>
Date: Wed, 25 Aug 1999 14:03:12 +0000 (+0000)
Subject: (gnus-treat-article): Don't treat the article if the value of
X-Git-Tag: t-gnus-6_13_0-12~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c831f71e8600d1ccd988e3439d23ce9ab7ee96b;p=elisp%2Fgnus.git-

(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'.
---

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)