Last edit
Summary: Fixed bug
Changed:
< (dolist (spool my-spool-files-alist (throw 'str ""))
to
> (dolist (spool ebiff-spool-files-alist (throw 'str ""))
Deleted:
< I think it should be my-spool-files-alist in the setq line.
Letting you know you have new mail.
This is a very simple Emacs Biff, it supports multiple spool files and uses less screen real estate then display-time. Simply drop this into your .emacs and it will show ^| (flag) on your modeline if you have new mail. Bugs: it assumes that your mail client empties the spool files, which is not always true. May not work on non-unix systems.
;; List of spool files
(setq ebiff-spool-files-alist '("~/Mail/GnuEmacsHelp.spool"
"/var/spool/mail/username"))
;; Emacs Biff
(defun ebiff ()
(catch 'str
(dolist (spool ebiff-spool-files-alist (throw 'str ""))
(if (not (= (nth 7 (file-attributes (expand-file-name spool))) 0))
(throw 'str " ^| ")))));; Add it to the modeline (add-to-list 'global-mode-string '(:eval (ebiff)))