Hello [EMAIL PROTECTED]
On 29-Lug-02, [EMAIL PROTECTED] wrote:
> But I want to leave everything unchanged after the email, so anything I
> replace must be put back.
I do this:
; makes a clone and changes it to new setup
meragip-net-setup: copy default-net-setup: get-net
change meragip-net-setup meragip-email
;swaps setup
set-net meragip-net-setup
;Makes IO with SMTP server
submit-emails %mailbox/outgoing/ organization meragip-email
; restores user default set-up
set-net default-net-setup
> Is there an offical way of doing this?
set-net is official, get-net is mine ;)
get-net: does [{Gets data from current Rebol Network Setup}
reduce [system/user/email system/schemes/default/host
system/schemes/pop/host system/schemes/default/proxy/host
system/schemes/default/proxy/port-id system/schemes/default/proxy/type]]
Regards
--
"Where did you get all those facts!?!"
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
