From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7749
Path: main.gmane.org!not-for-mail
From: Roger Williams <roger@coelacanth.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: miscellaneous Gnus questions
Date: 28 Aug 1996 17:26:15 -0500
Organization: Coelacanth Engineering
Sender: roger@sturgeon.coelacanth.com
Message-ID: <rogern2zff8mw.fsf@sturgeon.coelacanth.com>
References: <199606182330.TAA27541@csb.bu.edu> <x6u3w89uvt.fsf@eyesore.no>
	<xnjwx0zmwjb.fsf@csb.bu.edu> <x6zq3g6nau.fsf@eyesore.no>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035148020 8391 80.91.224.250 (20 Oct 2002 21:07:00 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:07:00 +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 PAA28938 for <steve@miranova.com>; Wed, 28 Aug 1996 15:17:42 -0700
Original-Received: from sturgeon.coelacanth.com (sturgeon.coelacanth.com [199.103.208.1]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <XAA22467@ifi.uio.no> for <ding@ifi.uio.no> ; Wed, 28 Aug 1996 23:26:25 +0200
Original-Received: by sturgeon.coelacanth.com (IBM OS/2 SENDMAIL VERSION 1.3.2)/1.0)
	  for ding@ifi.uio.no; id AA6534; Wed, 28 Aug 96 17:26:19 -0400
Original-To: ding@ifi.uio.no
In-Reply-To: Lars Magne Ingebrigtsen's message of 28 Aug 1996 08:22:01 +0200
Original-Lines: 38
X-Mailer: Gnus v5.2.33/Emacs 19.31
Xref: main.gmane.org gmane.emacs.gnus.general:7749
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7749

Joe Wells <jbw@cs.bu.edu> 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?

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

Well, you can always do something like this:

(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))
(define-key gnus-group-mode-map "\C-cg" 'gnus-group-get-new-nnml)

-- 
Roger Williams                         finger me for my PGP public key
Coelacanth Engineering        consulting & turnkey product development
Middleborough, MA           wireless * DSP-based instrumentation * ATE
tel +1 508 947-8049 * fax +1 508 947-9118 * http://www.coelacanth.com/