File psl-1983/lap/mail-test.lap artifact 0da1180d13 part of check-in 09c3848028


(load nmode)
(faslin "ps:<kendzierski.psl>output-stream-aux.b")
(faslin "ps:<kendzierski.psl>file-support-aux.b")
(faslin "ps:<kendzierski.psl>util.b")
(faslin "ps:<kendzierski.psl>date.b")

% Subsystems: load last!  (This is a subsystem of NMODE)

(faslin "ss:<nmail>mail-base.b")
(faslin "ss:<nmail>mail-file.b")
(faslin "ss:<nmail>mail-message.b")
(faslin "ss:<nmail>mail-support.b")
(faslin "ss:<nmail>mail-filter.b")
(faslin "ss:<nmail>mail-filter-base.b")

(prog ()
  (add-to-command-list 'Basic-Command-List
		       (x-chars (control X) M) 'mail-command)
  (add-to-command-list 'Basic-Command-List
		       (x-chars (control X) S) 'mail-set-up-send-buffer)
  (nmode-establish-current-mode)
  (return "Mail subsystem defined"))


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]