Feature freeze? Bahh....

Feature freeze? Bahh....

[Wesley.Hardaker]

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))