mail.lap 801 B

1234567891011121314151617181920212223
  1. (load nmode)
  2. (faslin "ps:<kendzierski.psl>output-stream-aux.b")
  3. (faslin "ps:<kendzierski.psl>file-support-aux.b")
  4. (faslin "ps:<kendzierski.psl>util.b")
  5. (faslin "ps:<kendzierski.psl>date.b")
  6. % Subsystems: load last! (This is a subsystem of NMODE)
  7. (faslin "ps:<kendzierski.mail>mail-base.b")
  8. (faslin "ps:<kendzierski.mail>mail-file.b")
  9. (faslin "ps:<kendzierski.mail>mail-message.b")
  10. (faslin "ps:<kendzierski.mail>mail-support.b")
  11. (faslin "ps:<kendzierski.mail>mail-filter.b")
  12. (faslin "ps:<kendzierski.mail>mail-filter-base.b")
  13. (prog ()
  14. (add-to-command-list 'Basic-Command-List
  15. (x-chars (control X) M) 'mail-command)
  16. (add-to-command-list 'Basic-Command-List
  17. (x-chars (control X) S) 'mail-set-up-send-buffer)
  18. (nmode-establish-current-mode)
  19. (return "Mail subsystem defined"))