imap.lisp

(defun i/refresh-imap (login password server)
  (let ((iconn (make-imap :port 993
                          :host server
                          :ssl-p t)))
    (cmd-connect iconn)
    (cmd-login iconn login password)
    (cmd-select iconn "inbox")
    (mapcar (lambda (x)
              (parse-fetch-fields
               (cmd-fetch-fields iconn (write-to-string x))))
            (cdr (iota 100)))))