From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/50916 Path: main.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.gnus.general Subject: Re: trouble with gnus-define-group-parameter Date: Wed, 19 Mar 2003 17:55:17 -0500 Organization: =?koi8-r?q?=F4=C5=CF=C4=CF=D2=20=FA=CC=C1=D4=C1=CE=CF=D7?= @ Cienfuegos Sender: owner-ding@hpc.uh.edu Message-ID: <4nsmtjq84q.fsf@lockgroove.bwh.harvard.edu> References: <4nwuj7krtf.fsf@lockgroove.bwh.harvard.edu> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1048114626 25445 80.91.224.249 (19 Mar 2003 22:57:06 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 19 Mar 2003 22:57:06 +0000 (UTC) Cc: ding@gnus.org Original-X-From: owner-ding@hpc.uh.edu Wed Mar 19 23:57:05 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18vmUb-0006cA-00 for ; Wed, 19 Mar 2003 23:57:05 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18vmTD-000243-00; Wed, 19 Mar 2003 16:55:39 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 19 Mar 2003 16:56:39 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id QAA12683 for ; Wed, 19 Mar 2003 16:56:28 -0600 (CST) Original-Received: (qmail 66640 invoked by alias); 19 Mar 2003 22:55:21 -0000 Original-Received: (qmail 66629 invoked from network); 19 Mar 2003 22:55:21 -0000 Original-Received: from clifford.bwh.harvard.edu (134.174.9.41) by 66.230.238.6 with SMTP; 19 Mar 2003 22:55:21 -0000 Original-Received: from lockgroove.bwh.harvard.edu (lockgroove [134.174.9.133]) by clifford.bwh.harvard.edu (8.10.2+Sun/8.11.0) with ESMTP id h2JMtIj17297; Wed, 19 Mar 2003 17:55:18 -0500 (EST) Original-Received: (from tzz@localhost) by lockgroove.bwh.harvard.edu (8.11.6+Sun/8.11.0) id h2JMtI111098; Wed, 19 Mar 2003 17:55:18 -0500 (EST) Original-To: Kevin Greiner X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6;d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" Mail-Followup-To: Kevin Greiner , ding@gnus.org User-Agent: Gnus/5.090017 (Oort Gnus v0.17) Emacs/21.2 (usg-unix-v) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:50916 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:50916 On Tue, 11 Mar 2003, kgreiner@xpediantsolutions.com wrote: > Not really. The gnus-define-group-parameter macro expanded to > include this definition for ham-marks. Perhaps you can eval it then > step through it with the debugger. > > (defun gnus-parameter-ham-marks (name) > "" > (and name > (or (gnus-group-find-parameter name (quote ham-marks) nil) > (let ((alist gnus-parameter-ham-marks-alist) elem value) > (while (setq elem (pop alist)) > (when (and name (string-match (car elem) name)) > (setq alist nil value (cdr elem)))) > (if (consp value) > (car value) > value))))) Out of curiosity, how did you obtain this macro expansion? The problem is this line: > (or (gnus-group-find-parameter name (quote ham-marks) nil) The allow-list parameter is nil. When it's t, I get the parameter correctly. I was not setting the :type parameter to 'list. But it had worked just fine for all my previous parameter definitions. Puzzling. I think I have things working, I'll do a commit with the fixed and revised code. Ted