From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8405
Path: main.gmane.org!not-for-mail
From: David Benjamin <dbjag@aolnorth.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: automatic mail checking & notify
Date: 16 Oct 1996 14:43:27 -0400
Sender: v-aol2@booklink.com
Message-ID: <uvicau4vk.fsf@aolnorth.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035148570 11976 80.91.224.250 (20 Oct 2002 21:16:10 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:16:10 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: (qmail 3450 invoked from smtpd); 16 Oct 1996 19:26:18 -0000
Original-Received: from ifi.uio.no (129.240.64.2)
  by deanna.miranova.com with SMTP; 16 Oct 1996 19:26:17 -0000
Original-Received: from ibanez.booklink.com (ibanez.booklink.com [204.148.2.69]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <UAA18375@ifi.uio.no> for <ding@ifi.uio.no> ; Wed, 16 Oct 1996 20:51:44 +0200
Original-Received: by ibanez.booklink.com (4.1/SMI-4.1) 
		id AA28059; Wed, 16 Oct 96 14:49:57 EDT
Original-To: ding@ifi.uio.no
Original-Lines: 53
X-Mailer: Gnus v5.3/Emacs 19.33
Xref: main.gmane.org gmane.emacs.gnus.general:8405
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8405


Thanks very much for the pointers to display-time.el, Picons, and Xfaces.
The display-time.el code was very educational, however the Picons and Xfaces
stuff isn't of use to since I'm running on WIN32, and mail works different.

Perhaps I could bother everyone for a second question.  I've a small piece
of code below which will check every X seconds for articles of subscribedness
level Y, this is perfect for what I want.  I can make all important
stop-what-your-doing-and-read-me mail groups at level 1 or so and limit
interruptions for mail directly to me and, of course, any and all
postings to alt.hygiene.male.

However, I'm stuck as to how to detect whether any new mail has actually
been recieved for the groups fetched.  Is there a way to detect new mail
for a level of subscription or, failing that, for a specific group?

Again, thanks very much for your help.  Gnus is good.

Dave Benjamin
dbjag@aolnorth.com

--

(defvar check-gnus-timer nil)

(defvar check-gnus-interval 300
  "* Seconds between gnus-checks.")

(defvar check-gnus-level 1
  "* Gnus level to check.")

(defun check-gnus ()  
  ""
  (interactive)
  (and check-gnus-timer (cancel-timer check-gnus-timer))
  (setq check-gnus-timer
	(run-at-time nil check-gnus-interval 'check-gnus-event-handler)))

(defun check-gnus-event-handler ()
  (message (concat (current-time-string) "- check-gnus - checking mail..."))

  ; hmm. perhaps I should save current state here for comparison after check?

  (gnus-group-get-new-news check-gnus-level)

  ; insert here:
  ; clever piece of code that will detect if new mail has been
  ; received, and play an amusing sound, like this...

  (call-process "playsnd" nil t nil "s:\\buzzly.wav")
)

---