From: pixiebob@bigfoot.com
Subject: How many articles - unread + some number as default
Date: 28 May 2000 23:06:41 -0700 [thread overview]
Message-ID: <m3hfbh99fy.fsf@bedbug.entera.com> (raw)
[-- 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
next reply other threads:[~2000-05-29 6:06 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-05-29 6:06 pixiebob [this message]
2000-08-13 18:06 ` Lars Magne Ingebrigtsen
2000-08-14 1:36 ` Dave Liebreich
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3hfbh99fy.fsf@bedbug.entera.com \
--to=pixiebob@bigfoot.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).