Re: Small complaint about M-g

[dsg@mitre.org (David S. Goldberg)]

> My original post was not looking for a way to `tick' articles.  I like
> the way gnus hides read articles after closing a group.  What I
> complained mildly about was gnus being so rowdy about doing a rescan
> while inside a group.  In that instance only, I may not want read
> articles to disappear.  It was that problem that Jussi's comments
> addressed.

I have often wanted the same thing and this thread got me to thinking
how to do it.  I've come up with this bit of advice around
gnus-summary-rescan-group.  It's slow; the re-marking from ticked to
whatever was there before is noticeable, especially when there's lots
of stuff in the summary, but it does seem to work.  I don't know if it
will work in an nnvirtual group since I get the impression that the
virtual article numbers might change and I have no idea if it does the
right thing in an auto-expire environment which I don't use.  Also, it
will lose any process-marks that existed previously.  I can't find a
good way to get around that.  I can't use the stack of process-marks
(gnus-summary-save/yank-process-marks) because that stack doesn't
survive the invocation of gnus-summary-rescan-group and there's no
reliable way to get a list of all process marked articles.
gnus-summary-work-articles doesn't cut it 100% of the time and I'm not
sure it's worth going through a lot of grief to figure it out
correctly.  So, I've decided I can live with that limitation.  If
someone wants to improve on this please do so and post it.

(defadvice gnus-summary-rescan-group (around save-marks activate)
  (gnus-uu-mark-all)
  (let ((dsg-current-article gnus-current-article)
	(dsg-mark-list
	 (mapcar '(lambda (n) (cons n (gnus-summary-article-mark n)))
		 (gnus-uu-get-list-of-articles nil)))
	(dsg-work-articles (gnus-summary-work-articles nil)))
    (mapcar '(lambda (n) (gnus-summary-mark-article n ?!)) dsg-work-articles)
    ad-do-it
    (mapcar '(lambda (n) (gnus-summary-mark-article (car n) (cdr n)))
	    dsg-mark-list)
    (gnus-summary-goto-article dsg-current-article)))

-- 
Dave Goldberg
Post: The Mitre Corporation\MS B325\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org