PATCH: Skip over ticked articles in summary buffer

[Aharon Schkolnik <aharon@health.gov.il>]

Hi.

I couldn't get anyone else to do it, so I did it myself :-)

The idea (and the patch) is simple: an option to allow you to enter
the summary buffer with the cursor positioned over the first unread
article, but without selecting the article. This is the way I like to
work, and it seems there are others who feel the same way. 


What I did was add a simple function (which  I called
gnus-summary-goto-first-unread-article) which I stole mostly from
gnus-summary-first-article, and make a small change to
gnus-summary-read-group-1. 

The new option is invoked by setting gnus-auto-select-first to
'position.


First of all, I would like to receive comments and suggestions on my
patch. I will then attempt to improve it as much as possible. Lastly,
I would like to know if this option could be integrated into gnus.


Here's the patch:


*** private-gnus-sum.el	Tue Apr 15 08:57:27 1997
--- /usr/local/lib/xemacs-19.15/lisp/gnus/gnus-sum.el	Wed Mar 26 07:33:23 1997
***************
*** 2601,2609 ****
  		 gnus-auto-select-first)
  	    (unless (if (eq gnus-auto-select-first 'best)
  			(gnus-summary-best-unread-article)
! 		      (if (eq gnus-auto-select-first 'position)
! 			  (gnus-summary-goto-first-unread-article)
! 			(gnus-summary-first-unread-article)))
  	      (gnus-configure-windows 'summary))
  	  ;; Don't select any articles, just move point to the first
  	  ;; article in the group.
--- 2601,2607 ----
  		 gnus-auto-select-first)
  	    (unless (if (eq gnus-auto-select-first 'best)
  			(gnus-summary-best-unread-article)
! 		      (gnus-summary-first-unread-article))
  	      (gnus-configure-windows 'summary))
  	  ;; Don't select any articles, just move point to the first
  	  ;; article in the group.
***************
*** 8660,8681 ****
  	 "Update summary buffer %s? "
  	 (lambda (buf) (switch-to-buffer buf) (gnus-summary-exit))
  	 buffers)))))
- 
- (defun gnus-summary-goto-first-unread-article ()
-   "Goto, (but do not select)  the first unread article.
- Return nil if there are no unread articles."
-   (interactive)
-   (gnus-set-global-variables)
-   (prog1
-       (when (gnus-summary-first-subject t)
- 	(gnus-summary-show-thread)
- 	(gnus-summary-first-subject t)
- 	)
-     (gnus-summary-position-point)
-     (gnus-set-mode-line 'summary)
-     (gnus-configure-windows 'summary 'force)
-     )
-   )
  
  (provide 'gnus-sum)
  
--- 8658,8663 ----




>>>>> "Me" == Aharon Schkolnik <aharon@health.gov.il> writes:

    Me> Hi.

    Me> Most of my groups have a number of ticked articles in
    Me> them. When I enter the summary buffer from the group buffer
    Me> (gnus-topic-select-group), I usually want to skip right over
    Me> those ticked articles to get to the ones I haven't read
    Me> yet. Is there a way to get gnus to do this automatically ? If
    Me> not, can someone help me try to write some code to do this ?
    Me> In fact, this probably should be considered a feature
    Me> request. Anyone else agree ?


    Me> TIA.

    Me> -- The day is short, and the work is great, | Aharon Schkolnik
    Me> and the laborers are lazy, and the reward |
    Me> Aharon@Health.Gov.IL is great, and the Master of the house is
    Me> | impatient. - Ethics Of The Fathers Ch. 2 |


-- 
  The day is short, and the work is great,     |   Aharon Schkolnik
  and the laborers are lazy, and the reward    |   Aharon@Health.Gov.IL
  is great, and the Master of the house is     |
  impatient. - Ethics Of The Fathers Ch. 2     |


-- 
  The day is short, and the work is great,     |   Aharon Schkolnik
  and the laborers are lazy, and the reward    |   Aharon@Health.Gov.IL
  is great, and the Master of the house is     |
  impatient. - Ethics Of The Fathers Ch. 2     |