Re: Scan-mail daemon

Re: Scan-mail daemon

[Andrew A. Raines]

David Sumbler <david@nospam.co.uk> writes:

> I have added the lines
>
> (gnus-demon-add-handler 'gnus-demon-scan-mail 5 nil)
> (gnus-demon-init)
>
> to my .gnus file.
>
> Now Gnus checks for new mail every 5 minutes, as I
> intended, but the *Group* buffer doesn't show any changes
> even if there is new mail, so it's not very useful.
>
> Is there a way of getting the buffer to update?

Maybe you mean one of these instead of gnus-demon-scan-mail?

,----[ C-h f gnus-demon-scan-mail-and-update RET ]
| gnus-demon-scan-mail-and-update is a Lisp function in `~/.gnus'.
| (gnus-demon-scan-mail-and-update)
| 
| Scan for new mail, updating the *Group* buffer.
| 
| [back]
`----

,----[ C-h f gnus-demon-scan-news-and-update RET ]
| gnus-demon-scan-news-and-update is a Lisp function in `~/.gnus'.
| (gnus-demon-scan-news-and-update)
| 
| Scan for new mail, updating the *Group* buffer.
| 
| [back]
`----

-- 
    aaraines@pobox.com (Andrew A. Raines)

Re: Scan-mail daemon

[Andrew A. Raines]

bojohan+news@dd.chalmers.se (Johan Bockgård) writes:

> "Andrew A. Raines" <aaraines@pobox.com> writes:
>
>> Maybe you mean one of these instead of gnus-demon-scan-mail?
>>
>> ,----[ C-h f gnus-demon-scan-mail-and-update RET ]
>> | gnus-demon-scan-mail-and-update is a Lisp function in `~/.gnus'.
>                                                                ^
> Note ----------------------------------------------------------´

Oh yeah!  I forgot I copied those from somewhere a long time
ago.  I don't use them anymore.

David, here is that setup.  It makes Gnus check for mail
every 5 minutes and news every 30.

   ;; automatic mail scan without manual effort.
   ;;
   ;; level-specified group scanner.
   (defun gnus-demon-scan-mail-or-news-and-update (level)
     "Scan for new mail, updating the *Group* buffer."
     (let ((win (current-window-configuration)))
       (unwind-protect
           (save-window-excursion
             (save-excursion
               (when (gnus-alive-p)
                 (save-excursion
                   (set-buffer gnus-group-buffer)
                   (gnus-group-get-new-news level)))))
         (set-window-configuration win))))
   ;;
   ;; level 2: only mail groups are scanned.
   (defun gnus-demon-scan-mail-and-update ()
     "Scan for new mail, updating the *Group* buffer."
     (gnus-demon-scan-mail-or-news-and-update 2))
   (gnus-demon-add-handler 'gnus-demon-scan-mail-and-update 5 t)
   ;;
   ;; level 3: mail and local news groups are scanned.
   (defun gnus-demon-scan-news-and-update ()
     "Scan for new mail, updating the *Group* buffer."
     (gnus-demon-scan-mail-or-news-and-update 3))
   (gnus-demon-add-handler 'gnus-demon-scan-news-and-update 30 t)

-- 
    aaraines@pobox.com (Andrew A. Raines)