A solution that's better than my ugly hack?

[Lloyd Zusman <ljz@asfast.com>]

A week or two ago I posted this ugly hack here (quoted below) to provide
a feature that I've wanted: if I enter a group with no unread articles,
I only see the last N already-read articles (where N is configurable),
instead of the entire set of already-read's; but if I enter a group with
at least one unread article, I only see the unreads (and in both cases,
I'd also see the ticked and dormant articles).

Has anyone been able to figure out a cleaner way of getting this same
functionality, instead of this horrible, defadvice-based hack?

Thanks in advance.


>  (defvar ljz-group-default-display-count 256
>    "*Default count of articles to display when entering a group, if there
>  are no unread, dormant, or ticked articles, and if there is no prefix
>  argument.")
>
>  ;; Yes, I know that all of the variables defined in the `let*' clause
>  ;; are not really necessary, but I put them there so I could more easily
>  ;; put meaningful debug statements into the code during development.
>  (defadvice gnus-group-read-group (around gnus-group-read-group freeze)
>    (interactive "P")
>    (let* ((the-group (or group (gnus-group-group-name)))
>           (the-unread-count (gnus-group-unread the-group))
>           (the-marks (gnus-info-marks (gnus-get-info the-group)))
>           (the-dormant (cdr (assq 'dormant the-marks)))
>           (the-ticked (cdr (assq 'tick the-marks)))
>           (the-count
> 	      (+ the-unread-count (length the-dormant) (length the-ticked)))
>           (the-parameter (if all all (if (> the-count 0)
> 					 nil
> 				       ljz-group-default-display-count))))
>      (ad-set-arg 0 the-parameter)
>      ad-do-it))
>

-- 
 Lloyd Zusman
 ljz@asfast.com