* gnus-treat-predicate doesn't honor typep
@ 1999-10-07 2:22 Yoshiki Hayashi
1999-10-07 7:07 ` _/emphasize/_ both header and body Katsumi Yamaoka
0 siblings, 1 reply; 2+ messages in thread
From: Yoshiki Hayashi @ 1999-10-07 2:22 UTC (permalink / raw)
[-- 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
^ permalink raw reply [flat|nested] 2+ messages in thread* _/emphasize/_ both header and body 1999-10-07 2:22 gnus-treat-predicate doesn't honor typep Yoshiki Hayashi @ 1999-10-07 7:07 ` Katsumi Yamaoka 0 siblings, 0 replies; 2+ messages in thread From: Katsumi Yamaoka @ 1999-10-07 7:07 UTC (permalink / raw) [-- 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> ^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1999-10-07 7:07 UTC | newest] Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 1999-10-07 2:22 gnus-treat-predicate doesn't honor typep Yoshiki Hayashi 1999-10-07 7:07 ` _/emphasize/_ both header and body Katsumi Yamaoka
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for NNTP newsgroup(s).