XMTDL2 ;ISC-SF/GMB-Deliver local mail to mailbox (cont.) ;04/17/2002 11:31
Source file <XMTDL2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DELIVER(XMTO,XMZ,XMZSUBJ,XMZFROM,XMFROM,XMREPLY,XMK,XMDEL,XMZBSKT) | ;
|
|
| CHEKBSKT(XMTO,XMK,XMZSUBJ,XMZFROM,XMZBSKT,XMACT) | ; Basket number (or no basket at all)
|
|
| NAMEBSKT(XMTO,XMKN,XMZBOK) | ; Basket name (not number)
|
|
| ADDNEW(XMFROM,XMTO,XMK,XMZ,XMDEL,XMACT,XMREPLY) | ;
|
|
| ATRY | ||
| MAKENEW(XMTO,XMK,XMZ) | ;
; We ignore any "vapor" date here because this is an existing msg |
|
| SECRET(XMDATE,XMZ) | ;
; Don't need to check to see if the user already has the msg, because ; at this point, we already know that he doesn't. |
|
| MOVENEW(XMFROM,XMTO,XMK,XMZ,XMACT) | ; Move msg from WASTE bskt and make new
|
|
| MTRY | ||
| FIXBSKT(XMTO,XMK,XMZ) | ; Basket integrity check
|
|
| FORWARD(XMTO,XMZ,XMFIEN) | ;
; XMFIEN IEN of the filter which activated. |
