/pliant/appli/mail/database.pli
 
 1  module "/pliant/storage/database.pli" 
 2  public 
 3   
 4  type MailCurrentTarget  
 5    field Str mode <- "To" 
 6    field Str box 
 7   
 8  type MailCurrent 
 9    field Str from 
 10    field Set:MailCurrentTarget target 
 11    field Str subject 
 12    field Str body 
 13    field Str keyword 
 14   
 15  type MailDatabase2 
 16    field Set:MailCurrent current 
 17   
 18  (gvar Database:MailDatabase2 mail_database2) load "security:/mail2.pdb" mount "/pliant2/mail" 
 19