Re: Like (display . all) but hide expirable messages

[Dan Christensen <jdc+news@uwo.ca>]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Dan Christensen <jdc+news@uwo.ca> writes:
>
>> ShengHuo ZHU <zsh@cs.rochester.edu> writes:
>>
>>> Dan Christensen <jdc+news@uwo.ca> writes:
>>>
>>>> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
>>>>
>>>>> Dan Christensen <jdc+news@uwo.ca> writes:
>>>>>
>>>>>> 7. I can't get (display . [and (not expire) (not read)]) or
>>>>>>    (display . [and (not expire) unread]) to work for me.  With
>>>>>>    the former I get prompted to input a Lisp Expression when I
>>>>>>    enter a group.
>>>>>
>>>>> So much ditto that I don't know how to express it.
>>>>>
>>>>>>    With the latter I get the following error when 
>>>>>>    entering a group:
>>>>>>
>>>>>> Debugger entered--Lisp error: (void-function unread)
>>>>>>   unread()
>>>>>
>>>>> I've now made that invalid and removed it from the documentation.
>>>>
>>>> This still doesn't work for me, with a cvs from an hour ago.  (not
>>>> read) checks that the article doesn't appear in gnus-newsgroup-reads,
>>>> but this variable seems to keep track of the articles read in the
>>>> *current* session, so I think it is always nil when the summary is
>>>> being generated.  What I want is to check that the article is in
>>>> gnus-newsgroup-unreads.  So I think read should be made invalid, and
>>>> unread should be made valid, since it is what one is actually
>>>> interested in.
>>>
>>> I added unread.
>>
>> It still doesn't work for me, with the latest cvs.
>
> What are the evaluations of gnus-summary-display-cache and
> gnus-category-predicate-cache ?

Here they are.  The first doesn't mention unread.

gnus-summary-display-cache's value is shown below.

Documentation:
not documented as a variable.

Defined in `gnus-sum'.

Value:
((seen .
       #[nil "\300\301!\207"
	     [gnus-article-marked-p seen]
	     2])
 (recent .
	 #[nil "\300\301!\207"
	       [gnus-article-marked-p recent]
	       2])
 (forward .
	  #[nil "\300\301!\207"
		[gnus-article-marked-p forward]
		2])
 (unsend .
	 #[nil "\300\301!\207"
	       [gnus-article-marked-p unsend]
	       2])
 (download .
	   #[nil "\300\301!\207"
		 [gnus-article-marked-p download]
		 2])
 (cache .
	#[nil "\300\301!\207"
	      [gnus-article-marked-p cache]
	      2])
 (save .
       #[nil "\300\301!\207"
	     [gnus-article-marked-p save]
	     2])
 (score .
	#[nil "\300\301!\207"
	      [gnus-article-marked-p score]
	      2])
 (dormant .
	  #[nil "\300\301!\207"
		[gnus-article-marked-p dormant]
		2])
 (bookmark .
	   #[nil "\300\301!\207"
		 [gnus-article-marked-p bookmark]
		 2])
 (killed .
	 #[nil "\300\301!\207"
	       [gnus-article-marked-p killed]
	       2])
 (expire .
	 #[nil "\300\301!\207"
	       [gnus-article-marked-p expire]
	       2])
 (reply .
	#[nil "\300\301!\207"
	      [gnus-article-marked-p reply]
	      2])
 (tick .
       #[nil "\300\301!\207"
	     [gnus-article-marked-p tick]
	     2])
 (unseen .
	 #[nil "\300\301!\207"
	       [gnus-article-marked-p unseen]
	       2])
 (read .
       #[nil "\300\301!\207"
	     [gnus-article-marked-p read]
	     2]))

gnus-category-predicate-cache's value is shown below.

Documentation:
not documented as a variable.

Defined in `gnus-agent'.

Value:
(((not expire)
  .
  #[nil "\300\301!?\207"
	[gnus-article-marked-p expire]
	2])
 ((and
   (not expire)
   (not read))
  .
  #[nil "\300\301!?\205\v
	[gnus-article-marked-p expire read]
	2])
 ((not read)
  .
  #[nil "\300\301!?\207"
	[gnus-article-marked-p read]
	2])
 (unread . unread)
 ((and
   (not expire)
   unread)
  .
  #[nil "\300\301!?\205	
	[gnus-article-marked-p expire unread]
	2])
 ((and
   (not expire)
   (unread))
  .
  #[nil "\300\301!?\205	
	[gnus-article-marked-p expire nil]
	2]))

-- 
Dan Christensen
jdc+news@uwo.ca