From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5446
Path: main.gmane.org!not-for-mail
From: craffert@ml.com (Colin Rafferty)
Newsgroups: gmane.emacs.gnus.general
Subject: get new mail only
Date: 04 Mar 1996 18:03:38 -0500
Sender: craffert@spssunp.sps.ml.com
Message-ID: <ocr91hgpik5.fsf@spssunp.ml.com>
Reply-To: Colin Rafferty <craffert@ml.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035146049 355 80.91.224.250 (20 Oct 2002 20:34:09 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:34:09 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.3/8.6.9) with SMTP id PAA23652 for <steve@miranova.com>; Mon, 4 Mar 1996 15:41:13 -0800
Original-Received: from mlfire.ml.com (mlfire.ml.com [192.246.100.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <AAA04017@ifi.uio.no> for <ding@ifi.uio.no> ; Tue, 5 Mar 1996 00:05:55 +0100
Original-Received: from commpost.ml.com ([146.125.4.24]) by mlfire.ml.com (8.7.4/8.7.3/MLgw-2.03) with SMTP id SAA18338 for <ding@ifi.uio.no>; Mon, 4 Mar 1996 18:07:43 -0500 (EST)
Original-Received: from sparc10.sps.ml.com ([192.168.111.24]) by commpost.ml.com (8.6.12/8.6.12) with SMTP id SAA27200 for <ding@ifi.uio.no>; Mon, 4 Mar 1996 18:07:18 -0500 (EST)
Original-Received: from spssunp.masdev.ml.com by sparc10.sps.ml.com (4.1/SMI-4.1)
	id AA17742; Mon, 4 Mar 96 18:03:48 EST
Original-Received: by spssunp.masdev.ml.com (4.1/SMI-4.1)
	id AA12713; Mon, 4 Mar 96 18:03:38 EST
Original-To: (ding) GNUS Mailing List <ding@ifi.uio.no>
Original-Lines: 42
X-Face: D>:hrrB{l6#\wU;)0R:OHSTA@ayd.Oq?s@Rrc;[+z0m+<-U"$G-J6L)F2QY`qK~uPu!s1(6{\#uy!Ag/D)?'L[}xErXvxoPn8T_hKi{M]/(`BF{e}X7;hby`p\.E$rJ}Aff#BT,rdDIw\y
X-Y-Zippy: Are we THERE yet?  My MIND is a SUBMARINE!!
Xref: main.gmane.org gmane.emacs.gnus.general:5446
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5446

Howdy-

I have umpteen little mail groups.  I find that gnus-group-get-new-news
is very slow when I `2 g' to just get my mail.  I realized that it is
because it is looking at all my level 2 groups.

I decided to write a function that would get mail directly, and then
gnus-group-get-new-news-this-group all the groups that actually have new
mail.

Anyway, here is the function (and my preferred key binding).  It assumes
that all your interesting groups are nnml.  I guess I could have had it
iterate through gnus-secondary-select-methods to do everything right,
but since I only use nnml, I didn't really feel the desire.  Sue me.

(defun gnus-group-get-new-nnml ()
  "Get new nnml mail only."
  (interactive)
  (let ((gnus-group-new-mail-list nil)
	(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)))
    (nnml-request-scan)
    (mapcar 'gnus-get-new-news-in-group
	    (mapcar '(lambda (group)
		       (concat "nnml:" group))
		    gnus-group-new-mail-list))
    (when gnus-goto-next-group-when-activating
      (gnus-group-next-unread-group 1 t))
    (gnus-summary-position-point)
    gnus-group-new-mail-list))

(define-key gnus-group-mode-map [(meta control g)] 'gnus-group-get-new-nnml)

-- 
Colin Rafferty
Violate the Communications Decency Act.
"...shit, piss, fuck, cunt, cocksucker, mother-fucker, and tits."
                  -FCC v. Pacifica Foundation 438 U.S. 726 (1978)