How many articles - unread + some number as default

How many articles - unread + some number as default

[pixiebob]

[-- Attachment #1: Type: text/plain, Size: 873 bytes --]

I use gnus to read mail, especially for some medium-volume mailing lists.
For the groups into which these mailing lists are split, I keep all old
articles, and I mark "read" articles as dormant.  This way, I can answer
(some large number) to the question of "How many articles from ..." when
entering the group, and I'll most likely see all messages in the threads of
the new messages.

Since the mail groups have > gnus-large-newsgroup messages, I'm *always*
prompted for the number of articles to retrieve.

So I made the following change to gnus-sum.el to support a default of 
[# unread + some constant] in answer to "How many articles from ..."

Would it be possible for someone with more elisp skill than myself to review
the following diff (made from gnus-5.8.2, I think) and add a better hook for
customisation at this point in the code?

Thanks

-Dave Liebreich



[-- Attachment #2: diff of gnus-sum.el --]
[-- Type: text/plain, Size: 965 bytes --]

--- gnus-sum.el.~1~	Fri Dec  3 11:27:20 1999
+++ gnus-sum.el	Sun May 28 13:59:09 2000
@@ -4223,13 +4223,17 @@
 		 ((and (or (<= scored marked) (= scored number))
 		       (numberp gnus-large-newsgroup)
 		       (> number gnus-large-newsgroup))
-		  (let ((input
-			 (read-string
-			  (format
-			   "How many articles from %s (default %d): "
-			   (gnus-limit-string gnus-newsgroup-name 35)
-			   number))))
-		    (if (string-match "^[ \t]*$" input) number input)))
+		  (condition-case ()
+		      (cond
+		       ((numberp davel-gnus-num-articles)
+			(+ davel-gnus-num-articles (length gnus-newsgroup-unreads)))
+		       (t (let (input
+				((read-string
+				   (format
+				   "How many articles from %s (default %d): "
+				   (gnus-limit-string gnus-newsgroup-name 35)
+				   number))
+				  (if (string-match "^[ \t]*$" input) number input))))))))
 		 ((and (> scored marked) (< scored number)
 		       (> (- scored number) 20))
 		  (let ((input

Re: How many articles - unread + some number as default

[Lars Magne Ingebrigtsen]

pixiebob@bigfoot.com writes:

> I use gnus to read mail, especially for some medium-volume mailing lists.
> For the groups into which these mailing lists are split, I keep all old
> articles, and I mark "read" articles as dormant.  This way, I can answer
> (some large number) to the question of "How many articles from ..." when
> entering the group, and I'll most likely see all messages in the threads of
> the new messages.

Or you can just type `1 0 0 0 RET' instead of `RET 1 0 0 0 RET', which
is what I do...

> Since the mail groups have > gnus-large-newsgroup messages, I'm *always*
> prompted for the number of articles to retrieve.

Can't you just increase that variable?

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: How many articles - unread + some number as default

[Dave Liebreich]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> pixiebob@bigfoot.com writes:
> 
> > I use gnus to read mail, especially for some medium-volume mailing lists.
> > For the groups into which these mailing lists are split, I keep all old
> > articles, and I mark "read" articles as dormant.  This way, I can answer
> > (some large number) to the question of "How many articles from ..." when
> > entering the group, and I'll most likely see all messages in the threads of
> > the new messages.
> 
> Or you can just type `1 0 0 0 RET' instead of `RET 1 0 0 0 RET', which
> is what I do...

I'm just a "whap-the-space-bar" kind of guy, I guess.

> > Since the mail groups have > gnus-large-newsgroup messages, I'm *always*
> > prompted for the number of articles to retrieve.
> 
> Can't you just increase that variable?

Sure.  Some of the groups have > 20000 messages in them, and I'll just have
to change the variable again in a year or so.

I'll file my solution under personal creative laziness, rather than ask
again for its inclusion in the source.

-Dave