From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6907
Path: main.gmane.org!not-for-mail
From: Colin Rafferty <craffert@spspme.ml.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: miscellaneous Gnus questions
Date: 24 Jun 1996 09:46:17 -0400
Message-ID: <ocrlohd1fiu.fsf@spssunp.spspme.ml.com>
References: <199606182330.TAA27541@csb.bu.edu> <x6u3w89uvt.fsf@eyesore.no>
	<xnjwx0zmwjb.fsf@csb.bu.edu>
Reply-To: Colin Rafferty <craffert@ml.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035147297 5218 80.91.224.250 (20 Oct 2002 20:54:57 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:54:57 +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 HAA03878 for <steve@miranova.com>; Mon, 24 Jun 1996 07:49:45 -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 <PAA06590@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 24 Jun 1996 15:46:57 +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 JAA12752 for <ding@ifi.uio.no>; Mon, 24 Jun 1996 09:50:49 -0400 (EDT)
Original-Received: from spssunp.spspme.ml.com (spssunp.spspme.ml.com [192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id JAA12094; Mon, 24 Jun 1996 09:49:40 -0400 (EST)
Original-Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1)
	id JAA01853; Mon, 24 Jun 1996 09:46:18 -0400
Original-To: (ding) GNUS Mailing List <ding@ifi.uio.no>
X-Face: ""xJff<P[R~C67]V?J|X^Dr`YigXK|;1wX<rt^>%{>hr-{:QXl"Xk2O@@(+F]e{"%EYQiW@mUuvEsL>=mx96j12qW[%m;|:B^n{J8k?Mz[K1_+H;$v,nYx^1o_=4M,L+]FIU~[[`-w~~xsy-BX,?tAF_.8u&0y*@aCv;a}Y'{w@#*@iwAl?oZpvvv
X-Y-Zippy: I am NOT a nut....
In-Reply-To: Joe Wells's message of 22 Jun 1996 16:08:40 -0400
Original-Lines: 39
X-Mailer: Gnus v5.2.23/XEmacs 19.13
Xref: main.gmane.org gmane.emacs.gnus.general:6907
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6907

"Joe" == Joe Wells <jbw@cs.bu.edu> writes:
"Lars" == You Know Who <ynw@you.know.where> writes:

Lars> There is no command to re-scan a particular server.
Lars> `(gnus-request-scan SERVER)' will do that for you.  Perhaps there
Lars> should be a command as well?

Joe> I think there should be a keybinding for this.  Checking for new mail is
Joe> quick, while checking for new news is slow.  Since the "g" command
Joe> combines these two, this unnecessarily slows down checking for new mail.

The only problem with calling `gnus-request-scan' directly is that it
does not update the *Group* buffer.  I use nnml.  Below is my solution.
If someone wants to make this a little more general (mh, etc.), be my
guest.  I have already sent in my papers.

(defun gnus-group-get-new-nnml ()
  "Get new 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