From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/26409
Path: main.gmane.org!not-for-mail
From: Simon Josefsson <jas@pdc.kth.se>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: How to ask the IMAP server if new mail has arrived
Date: 08 Nov 1999 18:28:01 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <iluln88gafy.fsf@badis.pdc.kth.se>
References: <isbt95kphj.fsf@grizzly.ps.uni-sb.de> <ilu9049gc5u.fsf@badis.pdc.kth.se>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035163624 19253 80.91.224.250 (21 Oct 2002 01:27:04 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 01:27:04 +0000 (UTC)
Cc: ding@gnus.org
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id MAA04095
	for <jason@mailhost.sclp.com>; Mon, 8 Nov 1999 12:28:44 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id LAB29819;
	Mon, 8 Nov 1999 11:28:40 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 08 Nov 1999 11:28:59 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id LAA14225
	for <ding@hpc.uh.edu>; Mon, 8 Nov 1999 11:28:46 -0600 (CST)
Original-Received: from badis.pdc.kth.se (root@badis.pdc.kth.se [130.237.221.45])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id MAA04083
	for <ding@gnus.org>; Mon, 8 Nov 1999 12:28:06 -0500 (EST)
Original-Received: (from jas@localhost)
	by badis.pdc.kth.se (8.9.3/8.9.3) id SAA05708;
	Mon, 8 Nov 1999 18:28:02 +0100
Original-To: Denys Duchier <Denys.Duchier@ps.uni-sb.de>
In-Reply-To: Simon Josefsson's message of "08 Nov 1999 17:50:53 +0100"
Original-Lines: 13
User-Agent: Gnus/5.070099 (Pterodactyl Gnus v0.99) Emacs/20.4.90
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:26409
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:26409

Simon Josefsson <jas@pdc.kth.se> writes:

> (defun jas-unseen-mail-in-inbox-p
>   (let ((buf (nnimap-get-server-buffer "")))
>     (and (imap-opened buf) 
> 	 (> (imap-mailbox-status "INBOX" 'unseen buf)))))

Um, I forgot a `0' for the `>' comparison to work..

(defun jas-unseen-mail-in-inbox-p
  (let ((buf (nnimap-get-server-buffer "")))
    (and (imap-opened buf) 
	 (> (imap-mailbox-status "INBOX" 'unseen buf) 0))))