| 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 | ||