[Mew-dist 11505] Emacs でモードラインに Mail の表示

[nara at example.com]

Emacs でメール受信があるとモードラインに Mail の表示をさせたいのですが。

標準では、/var/spool/mail にメールの受信があるとモードラインに Mail と
表示されます。しかし、imget を使用していると ~/Mail/inbox にメイルが取
り込まれファイル型式でなく、ディレクトリにメールが受信されます。

そこで、こんなの作ってみたのですが、もっと良い方法がないでしょうか。

(setq display-time-string-forms 
      '((if (and (not display-time-format) display-time-day-and-date)
            (format-time-string "%a %b %e " now) "")
        (format-time-string
         (or display-time-format
             (if display-time-24hr-format " %H:%M" " %-I:%M%p")) now)
        load
        ;;(if mail " Mail" " ")              ;; これを、
        (if (file-exists-p "~/Mail/inbox/1") ;; こうにしました。
            (if mail " Mail" " Mail")        ;;
          (if mail " Mail" " "))))           ;;

-- nara