jeff1@garfield.MUN.EDU (Jeff Sparkes) (07/12/89)
I just noticed that . didn't work in the version I posted. Here
are the diffs.
*** gnus-jds.el~ Wed Jul 12 13:10:49 1989
--- gnus-jds.el Wed Jul 12 13:13:04 1989
***************
*** 5,10 ****
--- 5,11 ----
(provide 'gnus-jds)
+ (defvar gnus-jds-version "0.1" "Version number for patches")
(defvar gnus-interest nil "Have any articles been marked as interesting?")
; Change: call original hook before? mine
***************
*** 53,55 ****
--- 54,74 ----
;; Successfully display article.
t
))
+
+ (defun gnus-Subject-first-unread-article ()
+ "Select first unread article. Return non-nil if successfully selected."
+ (interactive)
+ (if gnus-interest
+ (gnus-Subject-mark-interesting))
+ (let ((begin (point)))
+ (goto-char (point-min))
+ (if (re-search-forward "^ [ \t]+[0-9]+:" nil t)
+ (gnus-Subject-display-article (gnus-Subject-article-number))
+ ;; If there is no unread articles, stay there.
+ (goto-char begin)
+ ;;(gnus-Subject-display-article (gnus-Subject-article-number))
+ (message "No more unread articles")
+ nil
+ )
+ ))
+
--
Jeff Sparkes jeff1@garfield.mun.edu || uunet!garfield!jeff1