From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9190 Path: main.gmane.org!not-for-mail From: Wesley.Hardaker@sphys.unil.ch Newsgroups: gmane.emacs.gnus.general Subject: Feature freeze? Bahh.... Date: 12 Dec 1996 14:30:54 +0100 Organization: Universite de Lausanne, BSP Sender: whardake@iptsun2.unil.ch Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035149253 16990 80.91.224.250 (20 Oct 2002 21:27:33 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:27:33 +0000 (UTC) Return-Path: Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.8.4/8.8.4) with SMTP id FAA00692 for ; Thu, 12 Dec 1996 05:57:38 -0800 Original-Received: from unilmta3.unil.ch (cisun29a.unil.ch [130.223.27.29]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Thu, 12 Dec 1996 14:32:41 +0100 Original-Received: from iptsun2.unil.ch by unilmta3.unil.ch with SMTP inbound; Thu, 12 Dec 1996 14:32:27 +0100 Original-Received: by iptsun2.unil.ch (5.x/Unil-3.1/) id AA04007; Thu, 12 Dec 1996 14:30:56 +0100 Original-To: ding@ifi.uio.no X-Face: #qW^}a%m*T^{A:Cp}$R\"38+d}41-Z}uU8,r%F#c#s:~Nzp0G9](s?,K49KJ]s"*7gvRgA SrAvQc4@/}L7Qc=w{)]ACO\R{LF@S{pXfojjjGg6c;q6{~C}CxC^^&~(F]`1W)%9j/iS/ IM",B1M.?{w8ckLTYD'`|kTr\i\cgY)P4 X-Url: http://www.ece.ucdavis.edu/~hardaker Original-Lines: 93 X-Mailer: Red Gnus v0.73/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:9190 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9190 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))