options.timeout = 120
options.namespace = false
options.charset = 'UTF-8'

-- define myaccount object
require "config"

while true
do

count = 0

results = myaccount.INBOX:is_unseen()
for _, message in ipairs(results) do
  mailbox, uid = table.unpack(message)
  message = mailbox[uid]:fetch_message()

  file = io.open ("message"..count..".txt", "w")
  io.output(file)
  
  io.write(message)
  io.close(file)
  count=count+1
end

results:mark_seen()

if count>0 then
  os.exit()
end

print("checking")

myaccount.INBOX:enter_idle()

end