home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / contrib / zelk / scm / mail.e < prev    next >
Encoding:
Text File  |  1992-10-17  |  238 b   |  12 lines
  1. ;; send mail to myself, string <msg> is subject line
  2. ;; modified 22sept
  3.  
  4. (define (mail msg)
  5.   (let ((f (os-popen
  6.         (format #f "/usr/ucb/mail -s \"~a\" ~a"
  7.             msg (os-getenv "USER"))
  8.         "w")))
  9.     (newline f) 
  10.     (os-pclose f)))
  11.  
  12.