;;
;; $Id: hmw-mail-notify.el,v 1.2 2006/03/01 19:14:40 welle Exp $
;;

( require 'elmo )

( load "hmw-mail-toolbar" )

( defun hmw-check-folder ( fname )
  ( message fname )
  ( setq folder ( elmo-make-folder fname ) )
  ( setq num ( elmo-folder-diff folder )
	 new ( elmo-diff-new num )
	 unread ( elmo-diff-unread num )
	 all ( elmo-diff-all num )
  )

  ( if ( > new 0 )
    ( hmw-set-mail-sign )
    ( hmw-set-nomail-sign )
  )
)


( setq observed-folders '( ".sysmgr" ".pi" ".wlen" ".Inbox" ) )


( defun hmw-check-folders ()
  ( setq folder-list observed-folders )
  ( unwind-protect
    ( while folder-list
      ( setq folder ( car folder-list ) 
	     folder-list ( cdr folder-list )
      )

;;      (when (and (elmo-folder-plugged-p folder)
;;		 (elmo-folder-exists-p folder))

      ( hmw-check-folder folder )
    )
  )
)


( start-itimer "hmw-mail-notify-timer" 'hmw-check-folders 30 30 nil )