set selected-message to messages where id = id
go-to message-detail
set messages.folder to "archive" where id = id
go-to inbox
add-to messages sender "Me" body reply-draft folder "sent" read "true"
clear reply-draft
go-to inbox
Inbox
Sent
Archive
Inbox
Starred
Settings
Mark as read