From: Wesley.Hardaker@sphys.unil.ch
Subject: Feature freeze? Bahh....
Date: 12 Dec 1996 14:30:54 +0100 [thread overview]
Message-ID: <qk2zpzjsxdd.fsf@iptsun2.unil.ch> (raw)
So, uh, I went ahead and implemented 'exactly-what-wes-wants'...
(though I did rename it, as much as I wanted it to be left as the
above definition ;-) he he... I thought I'd post a note to the list
with the patch (to .73, sorry) just in case anyone else wanted it.
I'm assuming it won't make it in till MSGnus... (I plan on making it
a bit better taking a string of marks instead too):
Wes
Index: gnus-cus.el
===================================================================
RCS file: /home/whardake/src/cvsroot/rgnus/gnus-cus.el,v
retrieving revision 1.1.1.5
retrieving revision 1.2
diff -c -r1.1.1.5 -r1.2
*** 1.1.1.5 1996/10/11 14:41:09
--- 1.2 1996/12/12 13:26:24
***************
*** 144,154 ****
--- 144,158 ----
(display (choice :tag "Display"
:value default
(const all)
+ (const not-expired)
(const default)) "\
Which articles to display on entering the group.
`all'
Display all articles, both read and unread.
+
+ `not-expired'
+ All articles except those marked as expirable.
`default'
Display the default visible articles, which normally includes
Index: gnus-sum.el
===================================================================
RCS file: /home/whardake/src/cvsroot/rgnus/gnus-sum.el,v
retrieving revision 1.1.1.24
retrieving revision 1.2
diff -c -r1.1.1.24 -r1.2
*** 1.1.1.24 1996/12/06 07:35:48
--- 1.2 1996/12/12 13:26:34
***************
*** 3792,3809 ****
(defun gnus-articles-to-read (group &optional read-all)
;; Find out what articles the user wants to read.
! (let* ((articles
;; Select all articles if `read-all' is non-nil, or if there
;; are no unread articles.
! (if (or read-all
! (and (zerop (length gnus-newsgroup-marked))
! (zerop (length gnus-newsgroup-unreads)))
! (eq (gnus-group-find-parameter group 'display)
! 'all))
! (gnus-uncompress-range (gnus-active group))
(sort (append gnus-newsgroup-dormant gnus-newsgroup-marked
(copy-sequence gnus-newsgroup-unreads))
! '<)))
(scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
(scored (length scored-list))
(number (length articles))
--- 3792,3819 ----
(defun gnus-articles-to-read (group &optional read-all)
;; Find out what articles the user wants to read.
! (let* ((display (gnus-group-find-parameter group 'display))
! tmparticles
! (articles
;; Select all articles if `read-all' is non-nil, or if there
;; are no unread articles.
! (cond
! ((or read-all
! (and (zerop (length gnus-newsgroup-marked))
! (zerop (length gnus-newsgroup-unreads)))
! (eq display 'all))
! (gnus-uncompress-range (gnus-active group)))
! ((eq display 'not-expired)
! (setq articles (gnus-uncompress-range (gnus-active group)))
! (setq tmparticles gnus-newsgroup-expirable)
! (while (not (null tmparticles))
! (setq articles (delq (car tmparticles) articles))
! (setq tmparticles (cdr tmparticles)))
! articles)
! (t
(sort (append gnus-newsgroup-dormant gnus-newsgroup-marked
(copy-sequence gnus-newsgroup-unreads))
! '<))))
(scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
(scored (length scored-list))
(number (length articles))
reply other threads:[~1996-12-12 13:30 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
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=qk2zpzjsxdd.fsf@iptsun2.unil.ch \
--to=wesley.hardaker@sphys.unil.ch \
/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).