] = 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

+) | (FLAGS *) | (LIST *) | (LSUB *) | (NO

) | (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 ) = (

+) | #f

= ( ;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 = | #F | #F 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