display-time-mail-function

Шалом,

Из time.el я не совсем понял, как пользоваться display-time-mail-function.

Написал буквально следующее:

(defun display-time-vk-check-maildir ()
  "Check $MAILDIR for mail."
  (let ((dir (concat (getenv "MAILDIR") "/new")))
    (if (and dir (file-directory-p dir))
	(if (equal (directory-files dir) '("." ".."))
	    nil
	  t))
    ))

Руками проверяю, при наличии почты возвращает t, при отсутствии -- nil.

Все ок, теперь подставляю ее в display-time-mail-function и запускаю
display-time-mode:

(setq display-time-mail-function 'display-time-vk-check-maildir)
(display-time)

Один хрен, что есть почта, что нет, никакой индикации. Emacs 21.3.

Где и что я мог недосмотреть? Видимо, она хочет какой-то другой тип
реакции из функции, но какой именно -- до меня из кода не дошло.
Документации на этот счет не нашел. =((

-- 
       I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 3273 7F6F 7B87 5DD5 9848 05FB E442 86BC 2E6B 6831