+ = BODY

+ = UID + + + = ( ;date + ;subject + ;from + ;sender + ;reply-to + ;to + ;cc + ;bcc + ;in-reply-to + ;message-id + ) + + + = (

...) + = NIL + +

+ = ( ;name + ;route-addr + ;local-part + ;domain-name + ) + + = "--<4digit> " + + = + = <2digit> + + = Jan + = Feb + = Mar + = Apr + = May + = Jun + = Jul + = Aug + = Sep + = Oct + = Nov + = Dec + + = <2digit>:<2digit>:<2digit> + = <4digit> + + + = () + = () + + + = ... + = ...

+ + = + =

... + + + = + =

+ = + =

+ =

+ = "MESSAGE" "RFC822" + = "TEXT"

+ + = + =

+ =

... + + = (

) + = NIL + + = + = ( ...) + + = + = + = (

...) + =

+ + = ( ...) ;even number of s + = NIL + + +

+ = [] + = [.. ... ] + = [.. ... MIME] + + = HEADER + = HEADER.FIELDS + = HEADER.FIELDS.NOT + = TEXT + = ( ...) + + + + + = AUTH= + = + + + + + = + = + + + = NIL + = + + + = + = + + +;;; Base syntax types: + + = "..." + = {}\r\n... + =

... + =

... + = =????= + = ;base64 characters + = ... + = ;not 0 + + + = (BAD

) + | (OK

)) + | (BODY (

)) + | (BODYSTRUCTURE ) + | (UID ) + +

+ = (+) + | (+ MIME) + | (* HEADER) + | (* TEXT) + | (* HEADER.FIELDS

+) + | (* HEADER.FIELDS.NOT

+) + + + = ( ;date + ;subject + ;from + ;sender + ;reply-to + ;to + ;cc + ;bcc + ;in-reply-to + ;message-id + ) + + = ( ;personal name + ;source route + ;mailbox name + ;host name + ) + | (#f #f #f) ;start of group + | (#f #f #f #f) ;end of group + + ;too complicated to describe + +Notes about handling responses: + +* Check CAPABILITY for IMAP4rev1 and refuse to deal if not present. + +* MUST record the following: FLAGS, EXISTS, RECENT, EXPUNGE. However, + we won't use RECENT, so ignore it. + +* Setup sequence: + + 1. Select mailbox. Record FLAGS, PERMANENTFLAGS, EXISTS, and + UIDVALIDITY. + + 2. For each message in mailbox, do FETCH ALL and record the results. + + 3. Build summary buffer based on this information. + +* When user selects a message, do FETCH RFC822 and present it in the + buffer. + +* When EXISTS is received and doesn't match the current length, or + When UIDVALIDITY received and doesn't match the current value, + rebuild our model of the mailbox. Redo #1, #2, #3. Match up the + UID numbers with the stored message objects and adjust as needed. + +* When FLAGS or PERMANENTFLAGS received, record them. + +* When EXPUNGE received, delete the corresponding message object. + +* Probably should do something with READ-ONLY and READ-WRITE; ignore + them for now. + +(define conn (open-imap-socket "localhost" "cph-imap" "foobar")) +* OK zurich Cyrus IMAP4 v1.5.19 server ready +A0000 LOGIN cph-imap foobar +(ok "A0000" () "User logged in") +;Value: conn + +(imap-command conn "select" "inbox") +A0001 select inbox +(flags \answered \flagged \draft \deleted \seen) +(ok () (permanentflags \answered \flagged \draft \deleted \seen \*) "") +(exists 4) +(recent 0) +(ok () (uidvalidity 947120402) "") +(ok "A0001" read-write "Completed") +;Unspecified return value + +(imap-command conn "fetch" "1" "envelope") +*** output flushed *** +;Unspecified return value + +(imap-command conn "fetch" "1" "(envelope uid)") +*** output flushed *** +;Unspecified return value + +(imap-command conn "fetch" "1" "(envelope uid rfc822.size)") +A0004 fetch 1 (envelope uid rfc822.size) +(fetch + (uid 1) + (rfc822.size 639) + (envelope "Wed, 05 Jan 2000 20:01:10 -0500" + "test 1" + (("Chris Hanson" () "cph" "zurich.ai.mit.edu")) + (("Chris Hanson" () "cph" "zurich.ai.mit.edu")) + (("Chris Hanson" () "cph" "zurich.ai.mit.edu")) + ((() () "cph-imap" "zurich.ai.mit.edu")) + () + () + () + "")) +(ok "A0004" () "Completed") +;Unspecified return value + +(imap-command conn "fetch" "1" "rfc822.header") +*** output flushed *** +;Unspecified return value + +(imap-command conn "fetch" "1" "all") +A0006 fetch 1 all +(fetch + (flags \answered \seen) + (internaldate " 5-Jan-2000 20:01:10 -0500") + (rfc822.size 639) + (envelope "Wed, 05 Jan 2000 20:01:10 -0500" + "test 1" + (("Chris Hanson" () "cph" "zurich.ai.mit.edu")) + (("Chris Hanson" () "cph" "zurich.ai.mit.edu")) + (("Chris Hanson" () "cph" "zurich.ai.mit.edu")) + ((() () "cph-imap" "zurich.ai.mit.edu")) + () + () + () + "")) +(ok "A0006" () "Completed") +;Unspecified return value