From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6547
Path: main.gmane.org!not-for-mail
From: Colin Rafferty <craffert@spspme.ml.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Gnus v5.2.8 is released
Date: 06 Jun 1996 17:04:35 -0400
Message-ID: <ocrd93ceja4.fsf@spssunp.spspme.ml.com>
References: <w8spw7eb1fu.fsf@aegir.ifi.uio.no>
	<m2hgsp8zyy.fsf@atreides.erehwon.org>
Reply-To: Colin Rafferty <craffert@ml.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035146985 3954 80.91.224.250 (20 Oct 2002 20:49:45 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:49:45 +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.5/8.6.9) with SMTP id OAA00732 for <steve@miranova.com>; Thu, 6 Jun 1996 14:23:37 -0700
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 <XAA14778@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 6 Jun 1996 23:05:37 +0200
Original-Received: from commpost.ml.com ([146.125.4.24]) by mlfire.ml.com (8.7.5/8.7.3/MLgw-2.05) with SMTP id RAA26253 for <ding@ifi.uio.no>; Thu, 6 Jun 1996 17:09:14 -0400 (EDT)
Original-Received: from spssunp.spspme.ml.com ([192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id RAA09136; Thu, 6 Jun 1996 17:08:11 -0400 (EST)
Original-Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1)
	id RAA27113; Thu, 6 Jun 1996 17:04:39 -0400
Original-To: (ding) GNUS Mailing List <ding@ifi.uio.no>
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: I'm EMOTIONAL now because I have MERCHANDISING CLOUT!!
In-Reply-To: Sudish Joseph's message of 05 Jun 1996 21:48:21 -0400
Original-Lines: 35
X-Mailer: Gnus v5.2.6/XEmacs 19.13
Xref: main.gmane.org gmane.emacs.gnus.general:6547
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6547

Sudish Joseph <sudish@ix.netcom.com> writes:

> On the subject of mail speedups, it'd be nice if nnmail-get-new-mail
> didn't loop over all the specified spools for every single group.

I have the following function bound to M-C-g in *Group*.  It grabs and
splits my mail into my nnml folders, and then only updates the folders
that have changed.

Now that I think about it, it probably doesn't update virtual folders at
all.  I don't have any, so I don't care.

(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)
    (let ((gnus-group-marked (mapcar '(lambda (group)
					(concat "nnml:" group))
				     gnus-group-new-mail-list)))
      (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)
    (gnus-group-list-groups)
    gnus-group-new-mail-list))

-- 
Colin