projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
932f3ec
)
* gnus.art.el (gnus-treat-predicate): Don't follow the Change of Oort Gnus
author
yamaoka
<yamaoka>
Sat, 11 Jan 2003 14:08:18 +0000
(14:08 +0000)
committer
yamaoka
<yamaoka>
Sat, 11 Jan 2003 14:08:18 +0000
(14:08 +0000)
at 2003-01-02; reverted.
ChangeLog
patch
|
blob
|
history
lisp/gnus-art.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
1684c77
..
be06ab3
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,5
+1,8
@@
2003-01-11 Katsumi Yamaoka <yamaoka@jpl.org>
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.
* 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
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-6890,8
+6890,6
@@
For example:
(cond
((null val)
nil)
(cond
((null val)
nil)
- (condition
- (eq condition val))
((and (listp val)
(stringp (car val)))
(apply 'gnus-or (mapcar `(lambda (s)
((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)
(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)
((eq val t)
t)
((eq val 'head)