From: yamaoka <yamaoka>
Date: Sat, 11 Jan 2003 14:08:18 +0000 (+0000)
Subject: * gnus.art.el (gnus-treat-predicate): Don't follow the Change of Oort Gnus
X-Git-Tag: t-gnus-6_15_12-00-quimby~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c17f2ec5c71b32c6bd50803ae8daabf5ede68a3d;p=elisp%2Fgnus.git-

* gnus.art.el (gnus-treat-predicate): Don't follow the Change of Oort Gnus
 at 2003-01-02; reverted.
---

diff --git a/ChangeLog b/ChangeLog
index 1684c77..be06ab3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-01-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* lisp/gnus.art.el (gnus-treat-predicate): Don't follow the Change
+	of Oort Gnus at 2003-01-02; reverted.
+
 	* lisp/message.el (message-tool-bar-map): Commented out MIME-Edit
 	buttons.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1853644..ded6756 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6890,8 +6890,6 @@ For example:
   (cond
    ((null val)
     nil)
-   (condition
-    (eq condition val))
    ((and (listp val)
 	 (stringp (car val)))
     (apply 'gnus-or (mapcar `(lambda (s)
@@ -6912,6 +6910,8 @@ For example:
 	(error "%S is not a valid predicate" pred)))))
    ((eq val 'mime)
     gnus-show-mime)
+   (condition
+    (eq condition val))
    ((eq val t)
     t)
    ((eq val 'head)