From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/33267
Path: main.gmane.org!not-for-mail
From: Christoph Conrad <C.Conrad@cli.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: function `nnml-retrieve-groups' missing
Date: 09 Nov 2000 12:36:04 +0100
Organization: CLI GmbH
Sender: owner-ding@hpc.uh.edu
Message-ID: <uk8adjs2j.fsf@cli.de>
References: <uwvedigxc.fsf@cli.de>
Reply-To: C.Conrad@cli.de
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035169408 24271 80.91.224.250 (21 Oct 2002 03:03:28 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:03:28 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18])
	by mailhost.sclp.com (Postfix) with ESMTP id 26CFBD049A
	for <jason@mastaler.com>; Thu,  9 Nov 2000 06:36:57 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id FAB08461;
	Thu, 9 Nov 2000 05:36:34 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 09 Nov 2000 05:35:59 -0600 (CST)
Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged))
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id FAA06571
	for <ding@hpc.uh.edu>; Thu, 9 Nov 2000 05:35:47 -0600 (CST)
Original-Received: from quimby.gnus.org (quimby.gnus.org [195.204.10.139])
	by mailhost.sclp.com (Postfix) with ESMTP id 0FE32D049A
	for <ding@gnus.org>; Thu,  9 Nov 2000 06:36:09 -0500 (EST)
Original-Received: (from news@localhost)
	by quimby.gnus.org (8.9.3/8.9.3) id LAA09533
	for ding@gnus.org; Thu, 9 Nov 2000 11:38:25 +0100 (CET)
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 37
Original-NNTP-Posting-Host: gate.cli.de
Original-X-Trace: quimby.gnus.org 973766304 24148 212.117.64.114 (9 Nov 2000 10:38:24 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 9 Nov 2000 10:38:24 GMT
X-Public-Key: http://pgp5.ai.mit.edu:11371/pks/lookup?op=get&search=0x5FCAAE45
User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.6
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:33267
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:33267


    Christoph> ad-Orig-gnus-group-get-new-news(8)

The advice is:

(defadvice gnus-group-get-new-news( after
                                    ad-gnus-group-get-new-news
                                    activate )
  (cc-check-set-num-msgs))

(require 'pop3)

(defvar cc-check-num-msgs "0")

(defun cc-check-mail()
  (let ((pop3-password "clicli")
        num_msgs)
    (setq proc (pop3-open-server "cli3" 110))
    (pop3-user proc "cc")
    (pop3-pass proc)
    (setq num_msgs (pop3-stat proc))
    (pop3-quit proc)
    num_msgs))

(defun cc-check-set-num-msgs()
  (message "Checking new mail...")
  (setq cc-check-num-msgs (format "%s" (car (cc-check-mail))))
  (force-mode-line-update t)
  (message ""))

i. A.
Christoph Conrad
-- 
CLI-GmbH,  Matthiashofstr. 28-30,  D-52064 Aachen
Fon: +49 241 47051-0  Fax: +49 241 47051-89 Web: http://www.cli.de
(defvar my-computer '((OS . "GNU Emacs") (system-type . gnu/linux))
	"Programming environment.")