From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25717 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: _/emphasize/_ both header and body Date: 07 Oct 1999 03:07:51 -0400 (EDT) Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: References: <87ln9f9ag2.fsf@dp50.ecc.u-tokyo.ac.jp> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035163053 15498 80.91.224.250 (21 Oct 2002 01:17:33 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:17:33 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id DAA01125 for ; Thu, 7 Oct 1999 03:10:08 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id CAB28953; Thu, 7 Oct 1999 02:09:01 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 07 Oct 1999 02:10:12 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id CAA28736 for ; Thu, 7 Oct 1999 02:10:02 -0500 (CDT) Original-Received: from jpl.org (mars.web-hosting.com [209.40.104.5]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id DAA00760 for ; Thu, 7 Oct 1999 03:08:00 -0400 (EDT) Original-Received: (from yamaoka@localhost) by jpl.org (8.9.3/8.9.3) id DAA16873; Thu, 7 Oct 1999 03:07:52 -0400 (EDT) Original-To: ding@gnus.org X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( In-Reply-To: Yoshiki Hayashi's message of "07 Oct 1999 11:22:21 +0900" User-Agent: Gnus/5.07009701 (Pterodactyl Gnus v0.97.1) Emacs/20.4 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:25717 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25717 --=-=-= 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 * gnus-art.el (gnus-treat-predicate): Examine whether the argument is list or not before condition. 1999-10-07 Yoshiki Hayashi * gnus-art.el (gnus-treat-predicate): Work for (typep "something"). --=-=-= Content-Type: application/x-patch Content-Disposition: attachment; filename=gnus-art.el.diff --- gnus-art.el~ Tue Sep 28 00:59:27 1999 +++ gnus-art.el Thu Oct 7 07:03:00 1999 @@ -4493,18 +4493,8 @@ (defvar length) (defun gnus-treat-predicate (val) (cond - (condition - (eq condition val)) ((null val) nil) - ((eq val t) - t) - ((eq val 'head) - nil) - ((eq val 'last) - (eq part-number total-parts)) - ((numberp val) - (< length val)) ((and (listp val) (stringp (car val))) (apply 'gnus-or (mapcar `(lambda (s) @@ -4520,9 +4510,19 @@ ((eq pred 'not) (not (gnus-treat-predicate (car val)))) ((eq pred 'typep) - (equal (cadr val) type)) + (equal (car val) type)) (t (error "%S is not a valid predicate" pred))))) + (condition + (eq condition val)) + ((eq val t) + t) + ((eq val 'head) + nil) + ((eq val 'last) + (eq part-number total-parts)) + ((numberp val) + (< length val)) (t (error "%S is not a valid value" val)))) --=-=-= -- Katsumi Yamaoka --=-=-=--