%
%  stack: cur-dir next-filecur-dir next-file mediaN [ . . media1 ] media-count
%      msg-xml-ins msg-body outgo-number dial-number
%

*xactmmtx

_Fup.PhoSend
{
%
% change to the PhoSend target
%
 _Fup.PhoNum ^"+1" pop2nd exch

} if

%
%  stack: cur-dir next-filecur-dir next-file mediaN [ . . media1 ] media-count
%      msg-xml-ins msg-body outgo-number dial-number
%
-2 left !Msg.dialr
-2 left !Msg.numbr
!Cnv.SrcBody
pop
%
%  stack: cur-dir next-filecur-dir next-file mediaN [ . . media1 ] media-count
%
!Msg.count
!Msg.media

%
% stack: cur-dir next-file
%
estnow

_Shooter.Subject email_ pop

%
% send email instead, set the from
% email address for the dispatching number
%
_Msg.dialr
"---1>><?>><?>><?" log)(
%
% stack: cur-dir next-file dialr
%
<
| _Arching.TwiNumberA eq$ dup { maildom exch } if |    % TMN
| _Arching.TwiNumberB eq$ dup { maildom exch } if |    % TMP
| _Arching.TwiNumberC eq$ dup { maildom exch } if |    % TML (mosaic)
| _Arching.TwiNumberD eq$ dup { maildom exch } if |    % PHOSEND

> not
{
 maildom    % other dialing number
} if
"---2>><?>><?>><?" log)(
%
% stack: cur-dir next-file send-from
%
!Msg.emailf
%
% stack: cur-dir next-file
%
 empty
 "Fup.PhoSend" sval
 "Fup.PhoNum" sval
 "Msg.date" sval
 "Msg.msec" sval
 "Msg.numbr" sval
 "Msg.dialr" sval
 "Msg.email" sval
 "Msg.emailf" sval
 "Cnv.SrcBody" sval
 "Fup.Mimage" sval
 "Msg.count" sval
 "Msg.media" sval
 "Msg.xact" sval
 "Msg.msgid" sval
 "Msg.extra" sval
 "Xact" sval
 "Tack" sval
%
% stack: cur-dir next-file email-data
%
% deliver an email message of the results
%
"EMA_" &_Msg.numbr &"_" &_Msg.msec !Cnv.MmsFname
%
% stack: cur-dir next-file email-data
%
"MMS\" &_Cnv.MmsFname text!conn
%
% stack: cur-dir next-file 
%