gnus-treat-predicate doesn't honor typep

gnus-treat-predicate doesn't honor typep

[Yoshiki Hayashi]

[-- Attachment #1: Type: text/plain, Size: 354 bytes --]

I confirmed this with pgnus 0.97.1
Setting something like (typep "text/plain") to gnus-treat-*
is not working. gnus-treat-predicate does pop for
(typep "text/plain"), and then cadr ("text/plain"). This
always returns nil.

1999-10-07  Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp>

	* gnus-art.el (gnus-treat-predicate): Work for (typep "something").


[-- Attachment #2: gnus-art.el.diff --]
[-- Type: application/x-patch, Size: 503 bytes --]

[-- Attachment #3: Type: text/plain, Size: 21 bytes --]


-- 
Yoshiki Hayashi

_/emphasize/_ both header and body

[Katsumi Yamaoka]

[-- Attachment #1: Type: text/plain, Size: 914 bytes --]

I am trying to _/emphasize/_ both header and body using the following
codes:

(setq gnus-treat-emphasize '(or t head))

(eval-after-load "gnus-art"
  '(setq gnus-treatment-function-alist
	 (append
	  (delete '(gnus-treat-emphasize gnus-article-emphasize)
		  gnus-treatment-function-alist)
	  '((gnus-treat-emphasize gnus-article-emphasize)))))

but it does not work.  Because the function `gnus-treat-predicate'
returns nil for `(or t head)' when `condition' is `head'.

This is the patch aimed at the latest CVS source for the problem.
It contains */Hayashi/* -dono's patch in the article
<87ln9f9ag2.fsf@dp50.ecc.u-tokyo.ac.jp>.

1999-10-07  Katsumi Yamaoka <yamaoka@jpl.org>

	* gnus-art.el (gnus-treat-predicate): Examine whether the argument
	is list or not before condition.

1999-10-07  Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp>

	* gnus-art.el (gnus-treat-predicate): Work for (typep "something").


[-- Attachment #2: gnus-art.el.diff --]
[-- Type: application/x-patch, Size: 942 bytes --]

[-- Attachment #3: Type: text/plain, Size: 38 bytes --]

-- 
Katsumi Yamaoka <yamaoka@jpl.org>