Re: Oort Gnus

[Colin Rafferty <colin.rafferty@msdw.com>]

Randal L Schwartz writes:

> Well, there's the one major fix that is still necessary so that I
> don't get 752 lines of "No new mail" when I "2 M-g" in the Summary
> buffer.  I'm glad I'm not holding my breath for the fix, but it makes
> some operations next to useless.

If you use nnml, run this function instead.  You will only get the "No
new mail" for the number of folders that have new mail.

(defun gnus-group-get-new-nnml ()
  "Get new mail only."
  (interactive)
  (let ((gnus-group-new-mail-list nil)
	(method '(nnml ""))
	(nnml-prepare-save-mail-hook
	 (cons '(lambda ()
		  (setq gnus-group-new-mail-list
			(union gnus-group-new-mail-list
			       (mapcar 'car group-art))))
	       nnml-prepare-save-mail-hook)))
    (when (gnus-check-server method)
      (gnus-request-scan nil method))
    (while gnus-group-new-mail-list
      (let ((gnus-group-marked (mapcar '(lambda (group)
					  (concat "nnml:" group))
				       gnus-group-new-mail-list)))
	(setq gnus-group-new-mail-list nil)
	(gnus-group-get-new-news-this-group)))
    (when gnus-goto-next-group-when-activating
      (gnus-group-next-unread-group 1 t))
    (gnus-summary-position-point)
    (run-hooks 'gnus-after-getting-new-news-hook)
    (gnus-group-list-groups)))

;; Colin