Re: New mail indicator

[Roman Belenov <roman@nstl.nnov.ru>]

"Jody M. Klymak" <jklymak@apl.washington.edu> writes:

> Roman,
>
> Is it possible to modify the demon to update the modeline?  i.e. I
> have the following running under the gnus-use-demon...
>
> (defun gnus-demon-scan-mail-groups1 ()
>   (save-window-excursion
>     (when (gnus-alive-p)
>       (save-excursion
>         (set-buffer gnus-group-buffer)
>         (gnus-group-get-new-news 1)))))
>
> Is there a way to count how many messages are in the group-1 groups
> and then change the modeline?  It would't update the modeline directly
> after your ead your messages, but it would next time you ran the
> demon.

I've added the following to my .gnus to add the number of unread
messages to the modeline (all my mail groups are under "Mail" topic):

(setq my-gnus-unread-mail-articles-p nil)
(setq my-gnus-unread-mail-articles "0")

(defun my-update-gnus-mode-line ()
  (let ((unread-articles (gnus-topic-unread "Mail")))
    (setq my-gnus-unread-mail-articles-p (> unread-articles 0))
    (setq my-gnus-unread-mail-articles (format "%d" unread-articles))
    (force-mode-line-update)))

(add-hook 'gnus-after-getting-new-news-hook 'my-update-gnus-mode-line)

(or (boundp 'my-gnus-mode-line-activated)
    (progn
      (setq my-gnus-mode-line-format
            '(my-gnus-unread-mail-articles-p ("Unread: " my-gnus-unread-mail-articles "  ")))
      (setq global-mode-string (cons my-gnus-mode-line-format global-mode-string))))

(setq my-gnus-mode-line-activated t)


Note that the modeline is not changed then articles are read since I
couldn't find suitable hook.

--
 							With regards, Roman.