home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / pop-mail.el < prev    next >
Encoding:
Text File  |  1991-06-14  |  2.8 KB  |  82 lines
  1. ; Path: dg-rtp!rock.concert.net!mcnc!stanford.edu!bu.edu!dimacs.rutgers.edu!mips!zaphod.mps.ohio-state.edu!wuarchive!uunet!mcsun!unido!infbs!neitzel@infbs.uucp
  2. ; From: neitzel@infbs.uucp (Martin Neitzel)
  3. ; Newsgroups: gnu.emacs.sources
  4. ; Subject: pop-mail.el for 18.57
  5. ; Date: 6 Jun 91 16:57:22 GMT
  6. ; 
  7. ; I just converted my version of good ol' pop-mail to work with 18.57.
  8. ; (For those who wanna know: pop-mail sits on top of display-time and will
  9. ; automatically pop up an RMAIL buffer and "g"et newly arriving mail.)
  10. ; 
  11. ; It is basically a drop in replacement for one function in time.el.  You
  12. ; could replace the function in standard time.el or overload it from a new
  13. ; file.  For the latter, put something like this into your .emacs:
  14. ; 
  15. ; (display-time)
  16. ; (load "pop-mail") ;; to get the extented functionality.
  17. ; 
  18. ; Thanks go to wolfgang@mgm.mit.edu, who came up with the code originally.
  19. ; 
  20. ;                                 Martin
  21.  
  22. ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
  23. ;; Read the GNU COPYING file for the full details.
  24. ;; 9/17/87 wolfgang@mgm.mit.edu
  25.  
  26. (defvar pop-mail t "*If t display new mail in a pop up mail buffer.
  27.     files listed in rmail-primary-inbox-list are watched")
  28.  
  29. (defun display-time-filter (proc string)
  30.   (let ((time (current-time-string))
  31.     (load (condition-case ()
  32.           (if (zerop (car (load-average))) ""
  33.             (format "%03d" (car (load-average))))
  34.         (error "")))
  35.     (mail-spool-file (or display-time-mail-file
  36.                  (getenv "MAIL")
  37.                  (concat rmail-spool-directory
  38.                      (or (getenv "LOGNAME")
  39.                      (getenv "USER")
  40.                      (user-login-name)))))
  41.     hour pm)
  42.     (setq hour (read (substring time 11 13)))
  43.     (setq pm (>= hour 12))
  44.     (if (> hour 12)
  45.     (setq hour (- hour 12))
  46.       (if (= hour 0)
  47.       (setq hour 12)))
  48.     (setq display-time-string
  49.       (concat (format "%d" hour) (substring time 13 16)
  50.           (if pm "pm " "am ")
  51.           (if (string= load "")
  52.               ""
  53.             (concat (substring load 0 -2) "." (substring load -2)))
  54.           (if (and (file-exists-p mail-spool-file)
  55.                ;; file not empty?
  56.                (> (nth 7 (file-attributes mail-spool-file)) 0))
  57.               " Mail"
  58.             "")))
  59.     ;; Append the date if desired.
  60.     (if display-time-day-and-date
  61.     (setq display-time-string
  62.           (concat (substring time 0 11) display-time-string))))
  63.   ;; Force redisplay of all buffers' mode lines to be considered.
  64.   (save-excursion (set-buffer (other-buffer)))
  65.   (set-buffer-modified-p (buffer-modified-p))
  66.   ;; Do redisplay right now, if no input pending.
  67.   (sit-for 0)
  68.   (if pop-mail
  69.       (let ((list (or rmail-primary-inbox-list
  70.               '("/usr/spool/mail/$USER")))
  71.         file)
  72.     (while list
  73.       (if (and (file-exists-p
  74.             (setq file (expand-file-name
  75.                 (substitute-in-file-name (car list)))))
  76.            (/= 0 (nth 7 (file-attributes file)))) ;size != 0
  77.           (progn
  78.         (save-excursion (rmail))
  79.         (display-buffer (get-buffer "RMAIL"))
  80.         (setq list nil))    ; once only
  81.         (setq list (cdr list)))))))
  82.