| blob | 98a981d06074ecdf5ed94ce4c1f32df2b08ebe59 |
1 ;;; imap.el --- imap library
2 ;; Copyright (C) 1998, 1999, 2000
3 ;; Free Software Foundation, Inc.
5 ;; Author: Simon Josefsson <jas@pdc.kth.se>
6 ;; Keywords: mail
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
25 ;;; Commentary:
27 ;; imap.el is a elisp library providing an interface for talking to
28 ;; IMAP servers.
29 ;;
30 ;; imap.el is roughly divided in two parts, one that parses IMAP
31 ;; responses from the server and storing data into buffer-local
32 ;; variables, and one for utility functions which send commands to
33 ;; server, waits for an answer, and return information. The latter
34 ;; part is layered on top of the previous.
35 ;;
36 ;; The imap.el API consist of the following functions, other functions
37 ;; in this file should not be called directly and the result of doing
38 ;; so are at best undefined.
39 ;;
40 ;; Global commands:
41 ;;
42 ;; imap-open, imap-opened, imap-authenticate, imap-close,
43 ;; imap-capability, imap-namespace, imap-error-text
44 ;;
45 ;; Mailbox commands:
46 ;;
47 ;; imap-mailbox-get, imap-mailbox-map, imap-current-mailbox,
48 ;; imap-current-mailbox-p, imap-search, imap-mailbox-select,
49 ;; imap-mailbox-examine, imap-mailbox-unselect, imap-mailbox-expunge
50 ;; imap-mailbox-close, imap-mailbox-create, imap-mailbox-delete
51 ;; imap-mailbox-rename, imap-mailbox-lsub, imap-mailbox-list
52 ;; imap-mailbox-subscribe, imap-mailbox-unsubscribe, imap-mailbox-status
53 ;; imap-mailbox-acl-get, imap-mailbox-acl-set, imap-mailbox-acl-delete
54 ;;
55 ;; Message commands:
56 ;;
57 ;; imap-fetch-asynch, imap-fetch,
58 ;; imap-current-message, imap-list-to-message-set,
59 ;; imap-message-get, imap-message-map
60 ;; imap-message-envelope-date, imap-message-envelope-subject,
61 ;; imap-message-envelope-from, imap-message-envelope-sender,
62 ;; imap-message-envelope-reply-to, imap-message-envelope-to,
63 ;; imap-message-envelope-cc, imap-message-envelope-bcc
64 ;; imap-message-envelope-in-reply-to, imap-message-envelope-message-id
65 ;; imap-message-body, imap-message-flag-permanent-p
66 ;; imap-message-flags-set, imap-message-flags-del
67 ;; imap-message-flags-add, imap-message-copyuid
68 ;; imap-message-copy, imap-message-appenduid
69 ;; imap-message-append, imap-envelope-from
70 ;; imap-body-lines
71 ;;
72 ;; It is my hope that theese commands should be pretty self
73 ;; explanatory for someone that know IMAP. All functions have
74 ;; additional documentation on how to invoke them.
75 ;;
76 ;; imap.el support RFC1730/2060 (IMAP4/IMAP4rev1), implemented IMAP
77 ;; extensions are RFC2195 (CRAM-MD5), RFC2086 (ACL), RFC2342
78 ;; (NAMESPACE), RFC2359 (UIDPLUS), the IMAP-part of RFC2595 (STARTTLS,
79 ;; LOGINDISABLED) (with use of external library starttls.el and
80 ;; program starttls) and the GSSAPI / kerberos V4 sections of RFC1731
81 ;; (with use of external program `imtest'). It also take advantage
82 ;; the UNSELECT extension in Cyrus IMAPD.
83 ;;
84 ;; Without the work of John McClary Prevost and Jim Radford this library
85 ;; would not have seen the light of day. Many thanks.
86 ;;
87 ;; This is a transcript of short interactive session for demonstration
88 ;; purposes.
89 ;;
90 ;; (imap-open "my.mail.server")
91 ;; => " *imap* my.mail.server:0"
92 ;;
93 ;; The rest are invoked with current buffer as the buffer returned by
94 ;; `imap-open'. It is possible to do all without this, but it would
95 ;; look ugly here since `buffer' is always the last argument for all
96 ;; imap.el API functions.
97 ;;
98 ;; (imap-authenticate "myusername" "mypassword")
99 ;; => auth
100 ;;
101 ;; (imap-mailbox-lsub "*")
102 ;; => ("INBOX.sentmail" "INBOX.private" "INBOX.draft" "INBOX.spam")
103 ;;
104 ;; (imap-mailbox-list "INBOX.n%")
105 ;; => ("INBOX.namedroppers" "INBOX.nnimap" "INBOX.ntbugtraq")
106 ;;
107 ;; (imap-mailbox-select "INBOX.nnimap")
108 ;; => "INBOX.nnimap"
109 ;;
110 ;; (imap-mailbox-get 'exists)
111 ;; => 166
112 ;;
113 ;; (imap-mailbox-get 'uidvalidity)
114 ;; => "908992622"
115 ;;
116 ;; (imap-search "FLAGGED SINCE 18-DEC-98")
117 ;; => (235 236)
118 ;;
119 ;; (imap-fetch 235 "RFC822.PEEK" 'RFC822)
120 ;; => "X-Sieve: cmu-sieve 1.3^M\nX-Username: <jas@pdc.kth.se>^M\r...."
121 ;;
122 ;; Todo:
123 ;;
124 ;; o Parse UIDs as strings? We need to overcome the 28 bit limit somehow.
125 ;; o Don't use `read' at all (important places already fixed)
126 ;; o Accept list of articles instead of message set string in most
127 ;; imap-message-* functions.
128 ;;
129 ;; Revision history:
130 ;;
131 ;; - 19991218 added starttls/digest-md5 patch,
132 ;; by Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
133 ;; NB! you need SLIM for starttls.el and digest-md5.el
134 ;; - 19991023 commited to pgnus
135 ;;
137 ;;; Code:
157 ;; User variables.
160 "Low-level IMAP issues."
166 "List of strings containing commands for Kerberos 4 authentication.
167 %s is replaced with server hostname, %p with port to connect to, and
168 %l with the value of `imap-default-user'. The program should accept
169 IMAP commands on stdin and return responses to stdout. Each entry in
170 the list is tried until a successful connection is made."
175 "List of strings containing commands for GSSAPI (krb5) authentication.
176 %s is replaced with server hostname, %p with port to connect to, and
177 %l with the value of `imap-default-user'. The program should accept
178 IMAP commands on stdin and return responses to stdout. Each entry in
179 the list is tried until a successful connection is made."
184 "openssl s_client -ssl2 -connect %s:%p"
185 "s_client -ssl3 -connect %s:%p"
187 "A string, or list of strings, containing commands for SSL connections.
188 Within a string, %s is replaced with the server address and %p with
189 port number on server. The program should accept IMAP commands on
190 stdin and return responses to stdout. Each entry in the list is tried
191 until a successful connection is made."
197 "rsh %s imapd"
198 "ssh %g ssh %s imapd"
200 "A list of strings, containing commands for IMAP connection.
201 Within a string, %s is replaced with the server address, %p with port
202 number on server, %g with `imap-shell-host', and %l with
203 `imap-default-user'. The program should read IMAP commands from stdin
204 and write IMAP response to stdout. Each entry in the list is tried
205 until a successful connection is made."
218 ;; Various variables.
233 "Definition of network streams.
235 (NAME CHECK OPEN)
237 NAME names the stream, CHECK is a function returning non-nil if the
238 server support the stream and OPEN is a function for opening the
242 kerberos4
243 digest-md5
244 cram-md5
245 login
246 anonymous)
256 "Definition of authenticators.
258 (NAME CHECK AUTHENTICATE)
260 NAME names the authenticator. CHECK is a function returning non-nil if
261 the server support the authenticator and AUTHENTICATE is a function
265 "If non-nil, do utf7 encoding/decoding of mailbox names.
266 Since the UTF7 decoding currently only decodes into ISO-8859-1
267 characters, you may disable this decoding if you need to access UTF7
270 ;; Internal constants. Change theese and die.
278 imap-port
279 imap-client-eol
280 imap-server-eol
281 imap-auth
282 imap-stream
283 imap-username
284 imap-password
285 imap-current-mailbox
286 imap-current-target-mailbox
287 imap-message-data
288 imap-capability
289 imap-namespace
290 imap-state
291 imap-reached-tag
292 imap-failed-tags
293 imap-tag
294 imap-process
295 imap-calculate-literal-size-first
296 imap-mailbox-data))
298 ;; Internal variables.
308 "IMAP state.
309 Valid states are `closed', `initial', `nonauth', `auth', `selected'
349 "Alist of tags that failed.
350 Each element is a list with four elements; tag (a integer), response
351 state (a symbol, `OK', `NO' or `BAD'), response code (a string), and
361 "Non-nil indicates that the server emitted a continuation request.
365 "Name of buffer for imap session trace.
369 "Name of buffer for random debug spew.
372 \f
373 ;; Utility functions:
376 "Enable multibyte in the current buffer."
381 "Read a password using PROMPT.
382 If ARGS, PROMPT is used as an argument to `format'."
385 prompt)))
391 'read-passwd
394 prompt)))
402 "imap: Could not UTF7 encode `%s', using it unencoded..."
403 string)
404 string)))
405 string))
413 "imap: Could not UTF7 decode `%s', using it undecoded..."
414 string)
415 string)))
416 string))
420 t
422 nil))
428 \f
429 ;; Server functions; stream stuff:
436 cmd done)
444 name buffer shell-file-name shell-command-switch
446 cmd
448 ?s server
450 ?l imap-default-user))))
451 response)
455 imap-calculate-literal-size-first t)
458 ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
461 t)
462 ;; cyrus 1.6 imtest print "S: " before server greeting
465 t)
467 ;; success in imtest < 1.6:
470 ;; success in imtest 1.6:
491 nil)))))
492 done))
499 cmd done)
506 name buffer shell-file-name shell-command-switch
508 cmd
510 ?s server
512 ?l imap-default-user))))
513 response)
519 ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
522 t)
523 ;; cyrus 1.6 imtest print "S: " before server greeting
526 t)
528 ;; success in imtest 1.6:
548 nil)))))
549 done))
552 nil)
555 "Open a SSL connection to server."
558 cmd done)
568 ?s server
570 process)
572 name buffer server port)))
593 done)
595 nil)))
598 t)
618 process))))
621 nil)
625 cmd done)
633 name buffer shell-file-name shell-command-switch
635 cmd
637 ?s server
638 ?g imap-shell-host
640 ?l imap-default-user)))))
659 done)
661 nil)))
676 done)
702 done)
704 nil)))
706 ;; Server functions; authenticator stuff:
709 "Login to server in BUFFER.
710 LOGINFUNC is passed a username and a password, it should return t if
711 it where sucessful authenticating itself to the server, nil otherwise.
712 Returns t if login was successful, nil otherwise."
717 ;; (condition-case ()
731 imap-username user)
738 ;; (quit (with-current-buffer buffer
739 ;; (setq user nil
740 ;; passwd nil)))
741 ;; (error (with-current-buffer buffer
742 ;; (setq user nil
743 ;; passwd nil))))
744 ret)))
766 "Login to server using the AUTH CRAM-MD5 method."
769 buffer
774 "AUTHENTICATE CRAM-MD5"
780 encoded)))))))))
792 "Login to server using the LOGIN command."
801 t)
817 "Login to server using the AUTH DIGEST-MD5 method."
820 buffer
825 "AUTHENTICATE DIGEST-MD5"
834 user passwd digest-uri)))
836 )))
838 nil
843 ;; Server functions:
849 imap-current-message nil
850 imap-state 'initial
853 imap-stream-alist))
865 imap-process))))
868 "Open a IMAP connection to host SERVER at PORT returning a buffer.
869 If PORT is unspecified, a default value is used (143 except
870 for SSL which use 993).
871 STREAM indicates the stream to use, see `imap-streams' for available
872 streams. If nil, it choices the best stream the server is capable of.
873 AUTH indicates authenticator to use, see `imap-authenticators' for
874 available authenticators. If nil, it choices the best stream the
875 server is capable of.
876 BUFFER can be a buffer or a name of a buffer, which is created if
877 necessery. If nil, the buffer name is generated."
892 ;; Choose stream.
900 imap-default-stream)
901 stream))
902 imap-stream stream
903 streams nil)))
911 imap-stream)
913 imap-stream))
916 ;; Choose authenticator
921 buffer)
923 auths nil)))
929 buffer)))
932 "Return non-nil if connection to imap server in BUFFER is open.
933 If BUFFER is nil then the current buffer is used."
941 "Authenticate to server in BUFFER, using current buffer if nil.
942 It uses the authenticator specified when opening the server. If the
943 authenticator requires username/passwords, they are queried from the
944 user and optionally stored in the buffer. If USER and/or PASSWD is
945 specified, the user will not be questioned and the username and/or
946 password is remembered in the buffer."
960 "Close connection to server in BUFFER.
961 If BUFFER is nil, the current buffer is used."
970 imap-current-message nil
971 imap-process nil)
973 t))
976 "Return a list of identifiers which server in BUFFER support.
977 If IDENTIFIER, return non-nil if it's among the servers capabilities.
978 If BUFFER is nil, the current buffer is assumed."
985 imap-capability)))
988 "Return a namespace hierarchy at server in BUFFER.
989 If BUFFER is nil, the current buffer is assumed."
994 imap-namespace))
999 \f
1000 ;; Mailbox functions:
1006 propname value)
1009 t))
1013 propname))
1028 imap-mailbox-data)
1029 result)))
1032 "Map a function across each mailbox in `imap-mailbox-data', returning a list.
1033 Function should take a mailbox name (a string) as
1034 the only argument."
1053 "Select MAILBOX on server in BUFFER.
1054 If EXAMINE is non-nil, do a read-only select."
1056 imap-current-mailbox
1064 imap-current-mailbox)
1065 ;; Failed SELECT/EXAMINE unselects current mailbox
1078 "Examine MAILBOX on server in BUFFER."
1082 "Close current folder in BUFFER, without expunging articles."
1089 imap-current-mailbox
1093 imap-message-data nil
1095 t)))
1098 "Expunge articles in current folder in BUFFER.
1099 If BUFFER is nil the current buffer is assumed."
1105 "Expunge articles and close current folder in BUFFER.
1106 If BUFFER is nil the current buffer is assumed."
1111 imap-message-data nil
1113 t)))
1119 "Create MAILBOX on server in BUFFER.
1120 If BUFFER is nil the current buffer is assumed."
1125 "Delete MAILBOX on server in BUFFER.
1126 If BUFFER is nil the current buffer is assumed."
1133 "Rename mailbox OLDNAME to NEWNAME on server in BUFFER.
1134 If BUFFER is nil the current buffer is assumed."
1143 "Return a list of subscribed mailboxes on server in BUFFER.
1144 If ROOT is non-nil, only list matching mailboxes. If ADD-DELIMITER is
1145 non-nil, a hierarchy delimiter is added to root. REFERENCE is a
1146 implementation-specific string that has to be passed to lsub command."
1148 ;; Make sure we know the hierarchy separator for root's hierarchy
1152 ;; clear list data (NB not delimiter and other stuff)
1167 "Return a list of mailboxes matching ROOT on server in BUFFER.
1168 If ADD-DELIMITER is non-nil, a hierarchy delimiter is added to
1169 root. REFERENCE is a implementation-specific string that has to be
1170 passed to list command."
1172 ;; Make sure we know the hierarchy separator for root's hierarchy
1176 ;; clear list data (NB not delimiter and other stuff)
1191 "Send the SUBSCRIBE command on the mailbox to server in BUFFER.
1192 Returns non-nil if successful."
1199 "Send the SUBSCRIBE command on the mailbox to server in BUFFER.
1200 Returns non-nil if successful."
1207 "Get status items ITEM in MAILBOX from server in BUFFER.
1208 ITEMS can be a symbol or a list of symbols, valid symbols are one of
1209 the STATUS data items -- ie 'messages, 'recent, 'uidnext, 'uidvalidity
1210 or 'unseen. If ITEMS is a list of symbols, a list of values is
1211 returned, if ITEMS is a symbol only it's value is returned."
1219 items
1224 items)
1228 "Get ACL on mailbox from server in BUFFER."
1238 "Change/set ACL for IDENTIFIER to RIGHTS in MAILBOX from server in BUFFER."
1245 identifier
1246 " "
1247 rights))))))
1250 "Removes any <identifier,rights> pair for IDENTIFIER in MAILBOX from server in BUFFER."
1257 identifier))))))
1259 \f
1260 ;; Message functions:
1264 imap-current-message))
1270 list
1283 range)
1291 uids)
1292 props))))
1295 "Fetch properties PROPS from message set UIDS from server in BUFFER.
1296 UIDS can be a string, number or a list of numbers. If RECEIVE
1297 is non-nil return theese properties."
1303 uids)
1304 props)))
1306 t
1312 receive)
1314 uids)
1321 propname value)
1324 t))
1329 propname)))
1332 "Map a function across each mailbox in `imap-message-data', returning a list."
1338 imap-message-data)
1339 result)))
1394 "Return t iff FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER."
1443 "Copy ARTICLES (a string message set) to MAILBOX on server in
1444 BUFFER, creating mailbox if it doesn't exist. If dont-create is
1445 non-nil, it will not create a mailbox. On success, return a list with
1446 the UIDVALIDITY of the mailbox the article(s) was copied to as the
1447 first element, rest of list contain the saved articles' UIDs."
1454 t
1483 "Append ARTICLE (a buffer) to MAILBOX on server in BUFFER.
1484 FLAGS and DATE-TIME is currently not used. Return a cons holding
1485 uidvalidity of MAILBOX and UID the newly created article got, or nil
1486 on failure."
1496 "Return number of lines in article by looking at the mime bodystructure BODY."
1510 "Return a from string line."
1515 "@"
1519 \f
1520 ;; Internal functions.
1536 cmd cmdstr)
1544 size)
1549 ;; XXX modifies buffer!
1569 imap-log)
1585 command)))
1591 tag)))
1602 'INCOMPLETE
1609 "Return point at end of current line, taking into account literals.
1610 Return nil if no complete line has arrived."
1612 imap-server-eol)
1613 nil t)
1616 nil
1622 "IMAP process filter."
1649 imap-state)))
1652 \f
1653 ;; Imap parser.
1658 ;; number = 1*DIGIT
1659 ;; ; Unsigned 32-bit integer
1660 ;; ; (0 <= n < 4,294,967,296)
1668 ;; literal = "{" number "}" CRLF *CHAR8
1669 ;; ; Number represents the number of CHAR8s
1676 nil
1680 ;; string = quoted / literal
1681 ;;
1682 ;; quoted = DQUOTE *QUOTED-CHAR DQUOTE
1683 ;;
1684 ;; QUOTED-CHAR = <any TEXT-CHAR except quoted-specials> /
1685 ;; "\" quoted-specials
1686 ;;
1687 ;; quoted-specials = DQUOTE / "\"
1688 ;;
1689 ;; TEXT-CHAR = <any CHAR except CR and LF>
1703 name))
1707 ;; nil = "NIL"
1713 ;; nstring = string / nil
1718 nil)))
1720 ;; astring = atom / string
1721 ;;
1722 ;; atom = 1*ATOM-CHAR
1723 ;;
1724 ;; ATOM-CHAR = <any CHAR except atom-specials>
1725 ;;
1726 ;; atom-specials = "(" / ")" / "{" / SP / CTL / list-wildcards /
1727 ;; quoted-specials
1728 ;;
1729 ;; list-wildcards = "%" / "*"
1730 ;;
1731 ;; quoted-specials = DQUOTE / "\"
1741 ;; address = "(" addr-name SP addr-adl SP addr-mailbox SP
1742 ;; addr-host ")"
1743 ;;
1744 ;; addr-adl = nstring
1745 ;; ; Holds route from [RFC-822] route-addr if
1746 ;; ; non-NIL
1747 ;;
1748 ;; addr-host = nstring
1749 ;; ; NIL indicates [RFC-822] group syntax.
1750 ;; ; Otherwise, holds [RFC-822] domain name
1751 ;;
1752 ;; addr-mailbox = nstring
1753 ;; ; NIL indicates end of [RFC-822] group; if
1754 ;; ; non-NIL and addr-host is NIL, holds
1755 ;; ; [RFC-822] group name.
1756 ;; ; Otherwise, holds [RFC-822] local-part
1757 ;; ; after removing [RFC-822] quoting
1758 ;;
1759 ;; addr-name = nstring
1760 ;; ; If non-NIL, holds phrase from [RFC-822]
1761 ;; ; mailbox after removing [RFC-822] quoting
1762 ;;
1777 address))))
1779 ;; address-list = "(" 1*address ")" / nil
1780 ;;
1781 ;; nil = "NIL"
1788 ;; next line for MS Exchange bug
1797 ;; mailbox = "INBOX" / astring
1798 ;; ; INBOX is case-insensitive. All case variants of
1799 ;; ; INBOX (e.g. "iNbOx") MUST be interpreted as INBOX
1800 ;; ; not as an astring. An astring which consists of
1801 ;; ; the case-insensitive sequence "I" "N" "B" "O" "X"
1802 ;; ; is considered to be INBOX and not an astring.
1803 ;; ; Refer to section 5.1 for further
1804 ;; ; semantic details of mailbox names.
1809 "INBOX"
1810 mailbox)))
1812 ;; greeting = "*" SP (resp-cond-auth / resp-cond-bye) CRLF
1813 ;;
1814 ;; resp-cond-auth = ("OK" / "PREAUTH") SP resp-text
1815 ;; ; Authentication condition
1816 ;;
1817 ;; resp-cond-bye = "BYE" SP resp-text
1820 "Parse a IMAP greeting."
1828 ;; response = *(continue-req / response-data) response-done
1829 ;;
1830 ;; continue-req = "+" SP (resp-text / base64) CRLF
1831 ;;
1832 ;; response-data = "*" SP (resp-cond-state / resp-cond-bye /
1833 ;; mailbox-data / message-data / capability-data) CRLF
1834 ;;
1835 ;; response-done = response-tagged / response-fatal
1836 ;;
1837 ;; response-fatal = "*" SP resp-cond-bye CRLF
1838 ;; ; Server closes connection immediately
1839 ;;
1840 ;; response-tagged = tag SP resp-cond-state CRLF
1841 ;;
1842 ;; resp-cond-state = ("OK" / "NO" / "BAD") SP resp-text
1843 ;; ; Status condition
1844 ;;
1845 ;; resp-cond-bye = "BYE" SP resp-text
1846 ;;
1847 ;; mailbox-data = "FLAGS" SP flag-list /
1848 ;; "LIST" SP mailbox-list /
1849 ;; "LSUB" SP mailbox-list /
1850 ;; "SEARCH" *(SP nz-number) /
1851 ;; "STATUS" SP mailbox SP "("
1852 ;; [status-att SP number *(SP status-att SP number)] ")" /
1853 ;; number SP "EXISTS" /
1854 ;; number SP "RECENT"
1855 ;;
1856 ;; message-data = nz-number SP ("EXPUNGE" / ("FETCH" SP msg-att))
1857 ;;
1858 ;; capability-data = "CAPABILITY" *(SP capability) SP "IMAP4rev1"
1859 ;; *(SP capability)
1860 ;; ; IMAP4rev1 servers which offer RFC 1730
1861 ;; ; compatibility MUST list "IMAP4" as the first
1862 ;; ; capability.
1865 "Parse a IMAP command response."
1871 t)))
1882 'search
1916 imap-failed-tags))))
1929 token status code text))))
1932 ;; resp-text = ["[" resp-text-code "]" SP] text
1933 ;;
1934 ;; text = 1*TEXT-CHAR
1935 ;;
1936 ;; TEXT-CHAR = <any CHAR except CR and LF>
1941 ;; resp-text-code = "ALERT" /
1942 ;; "BADCHARSET [SP "(" astring *(SP astring) ")" ] /
1943 ;; "NEWNAME" SP string SP string /
1944 ;; "PARSE" /
1945 ;; "PERMANENTFLAGS" SP "("
1946 ;; [flag-perm *(SP flag-perm)] ")" /
1947 ;; "READ-ONLY" /
1948 ;; "READ-WRITE" /
1949 ;; "TRYCREATE" /
1950 ;; "UIDNEXT" SP nz-number /
1951 ;; "UIDVALIDITY" SP nz-number /
1952 ;; "UNSEEN" SP nz-number /
1953 ;; resp-text-atom [SP 1*<any TEXT-CHAR except "]">]
1954 ;;
1955 ;; resp_code_apnd = "APPENDUID" SPACE nz_number SPACE uniqueid
1956 ;;
1957 ;; resp_code_copy = "COPYUID" SPACE nz_number SPACE set SPACE set
1958 ;;
1959 ;; set = sequence-num / (sequence-num ":" sequence-num) /
1960 ;; (set "," set)
1961 ;; ; Identifies a set of messages. For message
1962 ;; ; sequence numbers, these are consecutive
1963 ;; ; numbers from 1 to the number of messages in
1964 ;; ; the mailbox
1965 ;; ; Comma delimits individual numbers, colon
1966 ;; ; delimits between two numbers inclusive.
1967 ;; ; Example: 2,4:7,9,12:* is 2,4,5,6,7,9,12,13,
1968 ;; ; 14,15 for a mailbox with 15 messages.
1969 ;;
1970 ;; sequence-num = nz-number / "*"
1971 ;; ; * is the largest number in use. For message
1972 ;; ; sequence numbers, it is the number of messages
1973 ;; ; in the mailbox. For unique identifiers, it is
1974 ;; ; the unique identifier of the last message in
1975 ;; ; the mailbox.
1976 ;;
1977 ;; flag-perm = flag / "\*"
1978 ;;
1979 ;; flag = "\Answered" / "\Flagged" / "\Deleted" /
1980 ;; "\Seen" / "\Draft" / flag-keyword / flag-extension
1981 ;; ; Does not include "\Recent"
1982 ;;
1983 ;; flag-extension = "\" atom
1984 ;; ; Future expansion. Client implementations
1985 ;; ; MUST accept flag-extension flags. Server
1986 ;; ; implementations MUST NOT generate
1987 ;; ; flag-extension flags except as defined by
1988 ;; ; future standard or standards-track
1989 ;; ; revisions of this specification.
1990 ;;
1991 ;; flag-keyword = atom
1992 ;;
1993 ;; resp-text-atom = 1*<any ATOM-CHAR except "]">
2020 imap-current-target-mailbox))
2025 imap-current-target-mailbox))
2030 ;; mailbox-list = "(" [mbx-list-flags] ")" SP
2031 ;; (DQUOTE QUOTED-CHAR DQUOTE / nil) SP mailbox
2032 ;;
2033 ;; mbx-list-flags = *(mbx-list-oflag SP) mbx-list-sflag
2034 ;; *(SP mbx-list-oflag) /
2035 ;; mbx-list-oflag *(SP mbx-list-oflag)
2036 ;;
2037 ;; mbx-list-oflag = "\Noinferiors" / flag-extension
2038 ;; ; Other flags; multiple possible per LIST response
2039 ;;
2040 ;; mbx-list-sflag = "\Noselect" / "\Marked" / "\Unmarked"
2041 ;; ; Selectability flags; only one per LIST response
2042 ;;
2043 ;; QUOTED-CHAR = <any TEXT-CHAR except quoted-specials> /
2044 ;; "\" quoted-specials
2045 ;;
2046 ;; quoted-specials = DQUOTE / "\"
2059 ;; msg_att ::= "(" 1#("ENVELOPE" SPACE envelope /
2060 ;; "FLAGS" SPACE "(" #(flag / "\Recent") ")" /
2061 ;; "INTERNALDATE" SPACE date_time /
2062 ;; "RFC822" [".HEADER" / ".TEXT"] SPACE nstring /
2063 ;; "RFC822.SIZE" SPACE number /
2064 ;; "BODY" ["STRUCTURE"] SPACE body /
2065 ;; "BODY" section ["<" number ">"] SPACE nstring /
2066 ;; "UID" SPACE uniqueid) ")"
2067 ;;
2068 ;; date_time ::= <"> date_day_fixed "-" date_month "-" date_year
2069 ;; SPACE time SPACE zone <">
2070 ;;
2071 ;; section ::= "[" [section_text / (nz_number *["." nz_number]
2072 ;; ["." (section_text / "MIME")])] "]"
2073 ;;
2074 ;; section_text ::= "HEADER" / "HEADER.FIELDS" [".NOT"]
2075 ;; SPACE header_list / "TEXT"
2076 ;;
2077 ;; header_fld_name ::= astring
2078 ;;
2079 ;; header_list ::= "(" 1#header_fld_name ")"
2097 section)))
2102 rfc822size body bodydetail bodystructure)
2132 bodydetail)
2151 ;; mailbox-data = ...
2152 ;; "STATUS" SP mailbox SP "("
2153 ;; [status-att SP number
2154 ;; *(SP status-att SP number)] ")"
2155 ;; ...
2156 ;;
2157 ;; status-att = "MESSAGES" / "RECENT" / "UIDNEXT" / "UIDVALIDITY" /
2158 ;; "UNSEEN"
2179 token mailbox))))))))
2181 ;; acl_data ::= "ACL" SPACE mailbox *(SPACE identifier SPACE
2182 ;; rights)
2183 ;;
2184 ;; identifier ::= astring
2185 ;;
2186 ;; rights ::= astring
2190 identifier rights acl)
2199 ;; flag-list = "(" [flag *(SP flag)] ")"
2200 ;;
2201 ;; flag = "\Answered" / "\Flagged" / "\Deleted" /
2202 ;; "\Seen" / "\Draft" / flag-keyword / flag-extension
2203 ;; ; Does not include "\Recent"
2204 ;;
2205 ;; flag-keyword = atom
2206 ;;
2207 ;; flag-extension = "\" atom
2208 ;; ; Future expansion. Client implementations
2209 ;; ; MUST accept flag-extension flags. Server
2210 ;; ; implementations MUST NOT generate
2211 ;; ; flag-extension flags except as defined by
2212 ;; ; future standard or standards-track
2213 ;; ; revisions of this specification.
2226 ;; envelope = "(" env-date SP env-subject SP env-from SP env-sender SP
2227 ;; env-reply-to SP env-to SP env-cc SP env-bcc SP
2228 ;; env-in-reply-to SP env-message-id ")"
2229 ;;
2230 ;; env-bcc = "(" 1*address ")" / nil
2231 ;;
2232 ;; env-cc = "(" 1*address ")" / nil
2233 ;;
2234 ;; env-date = nstring
2235 ;;
2236 ;; env-from = "(" 1*address ")" / nil
2237 ;;
2238 ;; env-in-reply-to = nstring
2239 ;;
2240 ;; env-message-id = nstring
2241 ;;
2242 ;; env-reply-to = "(" 1*address ")" / nil
2243 ;;
2244 ;; env-sender = "(" 1*address ")" / nil
2245 ;;
2246 ;; env-subject = nstring
2247 ;;
2248 ;; env-to = "(" 1*address ")" / nil
2274 ;; body-fld-param = "(" string SP string *(SP string SP string) ")" / nil
2282 ;; buggy stalker communigate pro 3.0 doesn't print SPC
2283 ;; between body-fld-param's sometimes
2288 nil)))
2290 ;; body-extension = nstring / number /
2291 ;; "(" body-extension *(SP body-extension) ")"
2292 ;; ; Future expansion. Client implementations
2293 ;; ; MUST accept body-extension fields. Server
2294 ;; ; implementations MUST NOT generate
2295 ;; ; body-extension fields except as defined by
2296 ;; ; future standard or standards-track
2297 ;; ; revisions of this specification.
2313 ;; body-ext-1part = body-fld-md5 [SP body-fld-dsp [SP body-fld-lang
2314 ;; *(SP body-extension)]]
2315 ;; ; MUST NOT be returned on non-extensible
2316 ;; ; "BODY" fetch
2317 ;;
2318 ;; body-ext-mpart = body-fld-param [SP body-fld-dsp [SP body-fld-lang
2319 ;; *(SP body-extension)]]
2320 ;; ; MUST NOT be returned on non-extensible
2321 ;; ; "BODY" fetch
2345 ext))
2347 ;; body = "(" body-type-1part / body-type-mpart ")"
2348 ;;
2349 ;; body-ext-1part = body-fld-md5 [SP body-fld-dsp [SP body-fld-lang
2350 ;; *(SP body-extension)]]
2351 ;; ; MUST NOT be returned on non-extensible
2352 ;; ; "BODY" fetch
2353 ;;
2354 ;; body-ext-mpart = body-fld-param [SP body-fld-dsp [SP body-fld-lang
2355 ;; *(SP body-extension)]]
2356 ;; ; MUST NOT be returned on non-extensible
2357 ;; ; "BODY" fetch
2358 ;;
2359 ;; body-fields = body-fld-param SP body-fld-id SP body-fld-desc SP
2360 ;; body-fld-enc SP body-fld-octets
2361 ;;
2362 ;; body-fld-desc = nstring
2363 ;;
2364 ;; body-fld-dsp = "(" string SP body-fld-param ")" / nil
2365 ;;
2366 ;; body-fld-enc = (DQUOTE ("7BIT" / "8BIT" / "BINARY" / "BASE64"/
2367 ;; "QUOTED-PRINTABLE") DQUOTE) / string
2368 ;;
2369 ;; body-fld-id = nstring
2370 ;;
2371 ;; body-fld-lang = nstring / "(" string *(SP string) ")"
2372 ;;
2373 ;; body-fld-lines = number
2374 ;;
2375 ;; body-fld-md5 = nstring
2376 ;;
2377 ;; body-fld-octets = number
2378 ;;
2379 ;; body-fld-param = "(" string SP string *(SP string SP string) ")" / nil
2380 ;;
2381 ;; body-type-1part = (body-type-basic / body-type-msg / body-type-text)
2382 ;; [SP body-ext-1part]
2383 ;;
2384 ;; body-type-basic = media-basic SP body-fields
2385 ;; ; MESSAGE subtype MUST NOT be "RFC822"
2386 ;;
2387 ;; body-type-msg = media-message SP body-fields SP envelope
2388 ;; SP body SP body-fld-lines
2389 ;;
2390 ;; body-type-text = media-text SP body-fields SP body-fld-lines
2391 ;;
2392 ;; body-type-mpart = 1*body SP media-subtype
2393 ;; [SP body-ext-mpart]
2394 ;;
2395 ;; media-basic = ((DQUOTE ("APPLICATION" / "AUDIO" / "IMAGE" /
2396 ;; "MESSAGE" / "VIDEO") DQUOTE) / string) SP media-subtype
2397 ;; ; Defined in [MIME-IMT]
2398 ;;
2399 ;; media-message = DQUOTE "MESSAGE" DQUOTE SP DQUOTE "RFC822" DQUOTE
2400 ;; ; Defined in [MIME-IMT]
2401 ;;
2402 ;; media-subtype = string
2403 ;; ; Defined in [MIME-IMT]
2404 ;;
2405 ;; media-text = DQUOTE "TEXT" DQUOTE SP media-subtype
2406 ;; ; Defined in [MIME-IMT]
2416 ;; buggy stalker communigate pro 3.0 insert a SPC between
2417 ;; parts in multiparts
2439 ;; next line for Sun SIMS bug
2449 ;; next `or' for Sun SIMS bug, it regard body-fld-enc as a
2450 ;; nstring and return NIL instead of defaulting back to 7BIT
2451 ;; as the standard says.
2456 ;; ok, we're done parsing the required parts, what comes now is one
2457 ;; of three things:
2458 ;;
2459 ;; envelope (then we're parsing body-type-msg)
2460 ;; body-fld-lines (then we're parsing body-type-text)
2461 ;; body-ext-1part (then we're parsing body-type-basic)
2462 ;;
2463 ;; the problem is that the two first are in turn optionally followed
2464 ;; by the third. So we parse the first two here (if there are any)...
2473 ;; buggy stalker communigate pro 3.0 doesn't print
2474 ;; number of lines in message/rfc822 attachment
2484 ;; ...and then parse the third one here...
2499 '(
2500 imap-read-passwd
2501 imap-utf7-encode
2502 imap-utf7-decode
2503 imap-error-text
2504 imap-kerberos4s-p
2505 imap-kerberos4-open
2506 imap-ssl-p
2507 imap-ssl-open
2508 imap-network-p
2509 imap-network-open
2510 imap-interactive-login
2511 imap-kerberos4a-p
2512 imap-kerberos4-auth
2513 imap-cram-md5-p
2514 imap-cram-md5-auth
2515 imap-login-p
2516 imap-login-auth
2517 imap-anonymous-p
2518 imap-anonymous-auth
2519 imap-open-1
2520 imap-open
2521 imap-opened
2522 imap-authenticate
2523 imap-close
2524 imap-capability
2525 imap-namespace
2526 imap-send-command-wait
2527 imap-mailbox-put
2528 imap-mailbox-get
2529 imap-mailbox-map-1
2530 imap-mailbox-map
2531 imap-current-mailbox
2532 imap-current-mailbox-p-1
2533 imap-current-mailbox-p
2534 imap-mailbox-select-1
2535 imap-mailbox-select
2536 imap-mailbox-examine-1
2537 imap-mailbox-examine
2538 imap-mailbox-unselect
2539 imap-mailbox-expunge
2540 imap-mailbox-close
2541 imap-mailbox-create-1
2542 imap-mailbox-create
2543 imap-mailbox-delete
2544 imap-mailbox-rename
2545 imap-mailbox-lsub
2546 imap-mailbox-list
2547 imap-mailbox-subscribe
2548 imap-mailbox-unsubscribe
2549 imap-mailbox-status
2550 imap-mailbox-acl-get
2551 imap-mailbox-acl-set
2552 imap-mailbox-acl-delete
2553 imap-current-message
2554 imap-list-to-message-set
2555 imap-fetch-asynch
2556 imap-fetch
2557 imap-message-put
2558 imap-message-get
2559 imap-message-map
2560 imap-search
2561 imap-message-flag-permanent-p
2562 imap-message-flags-set
2563 imap-message-flags-del
2564 imap-message-flags-add
2565 imap-message-copyuid-1
2566 imap-message-copyuid
2567 imap-message-copy
2568 imap-message-appenduid-1
2569 imap-message-appenduid
2570 imap-message-append
2571 imap-body-lines
2572 imap-envelope-from
2573 imap-send-command-1
2574 imap-send-command
2575 imap-wait-for-tag
2576 imap-sentinel
2577 imap-find-next-line
2578 imap-arrival-filter
2579 imap-parse-greeting
2580 imap-parse-response
2581 imap-parse-resp-text
2582 imap-parse-resp-text-code
2583 imap-parse-data-list
2584 imap-parse-fetch
2585 imap-parse-status
2586 imap-parse-acl
2587 imap-parse-flag-list
2588 imap-parse-envelope
2589 imap-parse-body-extension
2590 imap-parse-body
2591 )))
2595 ;;; imap.el ends here