annotate lisp/net/imap.el @ 104849:15ac40f6056a

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Fri, 04 Sep 2009 07:00:22 +0000
parents 714ab1b8092b
children 2e22af528b76
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1 ;;; imap.el --- imap library
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100874
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
5
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
6 ;; Author: Simon Josefsson <simon@josefsson.org>
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
7 ;; Keywords: mail
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
8
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
10
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
14 ;; (at your option) any later version.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
15
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
19 ;; GNU General Public License for more details.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
20
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
23
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
24 ;;; Commentary:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
25
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
26 ;; imap.el is an elisp library providing an interface for talking to
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
27 ;; IMAP servers.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
28 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
29 ;; imap.el is roughly divided in two parts, one that parses IMAP
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
30 ;; responses from the server and storing data into buffer-local
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
31 ;; variables, and one for utility functions which send commands to
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
32 ;; server, waits for an answer, and return information. The latter
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
33 ;; part is layered on top of the previous.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
34 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
35 ;; The imap.el API consist of the following functions, other functions
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
36 ;; in this file should not be called directly and the result of doing
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
37 ;; so are at best undefined.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
38 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
39 ;; Global commands:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
40 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
41 ;; imap-open, imap-opened, imap-authenticate, imap-close,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
42 ;; imap-capability, imap-namespace, imap-error-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
43 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
44 ;; Mailbox commands:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
45 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
46 ;; imap-mailbox-get, imap-mailbox-map, imap-current-mailbox,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
47 ;; imap-current-mailbox-p, imap-search, imap-mailbox-select,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
48 ;; imap-mailbox-examine, imap-mailbox-unselect, imap-mailbox-expunge
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
49 ;; imap-mailbox-close, imap-mailbox-create, imap-mailbox-delete
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
50 ;; imap-mailbox-rename, imap-mailbox-lsub, imap-mailbox-list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
51 ;; imap-mailbox-subscribe, imap-mailbox-unsubscribe, imap-mailbox-status
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
52 ;; imap-mailbox-acl-get, imap-mailbox-acl-set, imap-mailbox-acl-delete
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
53 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
54 ;; Message commands:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
55 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
56 ;; imap-fetch-asynch, imap-fetch,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
57 ;; imap-current-message, imap-list-to-message-set,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
58 ;; imap-message-get, imap-message-map
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
59 ;; imap-message-envelope-date, imap-message-envelope-subject,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
60 ;; imap-message-envelope-from, imap-message-envelope-sender,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
61 ;; imap-message-envelope-reply-to, imap-message-envelope-to,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
62 ;; imap-message-envelope-cc, imap-message-envelope-bcc
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
63 ;; imap-message-envelope-in-reply-to, imap-message-envelope-message-id
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
64 ;; imap-message-body, imap-message-flag-permanent-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
65 ;; imap-message-flags-set, imap-message-flags-del
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
66 ;; imap-message-flags-add, imap-message-copyuid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
67 ;; imap-message-copy, imap-message-appenduid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
68 ;; imap-message-append, imap-envelope-from
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
69 ;; imap-body-lines
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
70 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
71 ;; It is my hope that these commands should be pretty self
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
72 ;; explanatory for someone that know IMAP. All functions have
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
73 ;; additional documentation on how to invoke them.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
74 ;;
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
75 ;; imap.el supports RFC1730/2060/RFC3501 (IMAP4/IMAP4rev1). The implemented
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
76 ;; IMAP extensions are RFC2195 (CRAM-MD5), RFC2086 (ACL), RFC2342
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
77 ;; (NAMESPACE), RFC2359 (UIDPLUS), the IMAP-part of RFC2595 (STARTTLS,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
78 ;; LOGINDISABLED) (with use of external library starttls.el and
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
79 ;; program starttls), and the GSSAPI / Kerberos V4 sections of RFC1731
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
80 ;; (with use of external program `imtest'), and RFC2971 (ID). It also
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
81 ;; takes advantage of the UNSELECT extension in Cyrus IMAPD.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
82 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
83 ;; Without the work of John McClary Prevost and Jim Radford this library
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
84 ;; would not have seen the light of day. Many thanks.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
85 ;;
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
86 ;; This is a transcript of a short interactive session for demonstration
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
87 ;; purposes.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
88 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
89 ;; (imap-open "my.mail.server")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
90 ;; => " *imap* my.mail.server:0"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
91 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
92 ;; The rest are invoked with current buffer as the buffer returned by
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
93 ;; `imap-open'. It is possible to do it all without this, but it would
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
94 ;; look ugly here since `buffer' is always the last argument for all
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
95 ;; imap.el API functions.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
96 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
97 ;; (imap-authenticate "myusername" "mypassword")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
98 ;; => auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
99 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
100 ;; (imap-mailbox-lsub "*")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
101 ;; => ("INBOX.sentmail" "INBOX.private" "INBOX.draft" "INBOX.spam")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
102 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
103 ;; (imap-mailbox-list "INBOX.n%")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
104 ;; => ("INBOX.namedroppers" "INBOX.nnimap" "INBOX.ntbugtraq")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
105 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
106 ;; (imap-mailbox-select "INBOX.nnimap")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
107 ;; => "INBOX.nnimap"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
108 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
109 ;; (imap-mailbox-get 'exists)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
110 ;; => 166
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
111 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
112 ;; (imap-mailbox-get 'uidvalidity)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
113 ;; => "908992622"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
114 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
115 ;; (imap-search "FLAGGED SINCE 18-DEC-98")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
116 ;; => (235 236)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
117 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
118 ;; (imap-fetch 235 "RFC822.PEEK" 'RFC822)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
119 ;; => "X-Sieve: cmu-sieve 1.3^M\nX-Username: <jas@pdc.kth.se>^M\r...."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
120 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
121 ;; Todo:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
122 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
123 ;; o Parse UIDs as strings? We need to overcome the 28 bit limit somehow.
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
124 ;; Use IEEE floats (which are effectively exact)? -- fx
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
125 ;; o Don't use `read' at all (important places already fixed)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
126 ;; o Accept list of articles instead of message set string in most
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
127 ;; imap-message-* functions.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
128 ;; o Send strings as literal if they contain, e.g., ".
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
129 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
130 ;; Revision history:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
131 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
132 ;; - 19991218 added starttls/digest-md5 patch,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
133 ;; by Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
134 ;; NB! you need SLIM for starttls.el and digest-md5.el
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
135 ;; - 19991023 committed to pgnus
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
136 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
137
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
138 ;;; Code:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
139
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
140 (eval-when-compile (require 'cl))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
141 (eval-and-compile
87186
b37f01064ecf * mail/hashcash.el (declare-function):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 87097
diff changeset
142 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
143 (autoload 'starttls-open-stream "starttls")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
144 (autoload 'starttls-negotiate "starttls")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
145 (autoload 'sasl-find-mechanism "sasl")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
146 (autoload 'digest-md5-parse-digest-challenge "digest-md5")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
147 (autoload 'digest-md5-digest-response "digest-md5")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
148 (autoload 'digest-md5-digest-uri "digest-md5")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
149 (autoload 'digest-md5-challenge "digest-md5")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
150 (autoload 'rfc2104-hash "rfc2104")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
151 (autoload 'utf7-encode "utf7")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
152 (autoload 'utf7-decode "utf7")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
153 (autoload 'format-spec "format-spec")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
154 (autoload 'format-spec-make "format-spec")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
155 (autoload 'open-tls-stream "tls"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
156
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
157 ;; User variables.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
158
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
159 (defgroup imap nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
160 "Low-level IMAP issues."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
161 :version "21.1"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
162 :group 'mail)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
163
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
164 (defcustom imap-kerberos4-program '("imtest -m kerberos_v4 -u %l -p %p %s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
165 "imtest -kp %s %p")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
166 "List of strings containing commands for Kerberos 4 authentication.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
167 %s is replaced with server hostname, %p with port to connect to, and
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
168 %l with the value of `imap-default-user'. The program should accept
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
169 IMAP commands on stdin and return responses to stdout. Each entry in
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
170 the list is tried until a successful connection is made."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
171 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
172 :type '(repeat string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
173
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
174 (defcustom imap-gssapi-program (list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
175 (concat "gsasl %s %p "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
176 "--mechanism GSSAPI "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
177 "--authentication-id %l")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
178 "imtest -m gssapi -u %l -p %p %s")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
179 "List of strings containing commands for GSSAPI (krb5) authentication.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
180 %s is replaced with server hostname, %p with port to connect to, and
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
181 %l with the value of `imap-default-user'. The program should accept
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
182 IMAP commands on stdin and return responses to stdout. Each entry in
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
183 the list is tried until a successful connection is made."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
184 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
185 :type '(repeat string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
186
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
187 (defcustom imap-ssl-program '("openssl s_client -quiet -ssl3 -connect %s:%p"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
188 "openssl s_client -quiet -ssl2 -connect %s:%p"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
189 "s_client -quiet -ssl3 -connect %s:%p"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
190 "s_client -quiet -ssl2 -connect %s:%p")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
191 "A string, or list of strings, containing commands for SSL connections.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
192 Within a string, %s is replaced with the server address and %p with
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
193 port number on server. The program should accept IMAP commands on
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
194 stdin and return responses to stdout. Each entry in the list is tried
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
195 until a successful connection is made."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
196 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
197 :type '(choice string
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
198 (repeat string)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
199
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
200 (defcustom imap-shell-program '("ssh %s imapd"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
201 "rsh %s imapd"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
202 "ssh %g ssh %s imapd"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
203 "rsh %g rsh %s imapd")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
204 "A list of strings, containing commands for IMAP connection.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
205 Within a string, %s is replaced with the server address, %p with port
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
206 number on server, %g with `imap-shell-host', and %l with
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
207 `imap-default-user'. The program should read IMAP commands from stdin
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
208 and write IMAP response to stdout. Each entry in the list is tried
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
209 until a successful connection is made."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
210 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
211 :type '(repeat string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
212
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
213 (defcustom imap-process-connection-type nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
214 "*Value for `process-connection-type' to use for Kerberos4, GSSAPI and SSL.
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
215 The `process-connection-type' variable controls the type of device
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
216 used to communicate with subprocesses. Values are nil to use a
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
217 pipe, or t or `pty' to use a pty. The value has no effect if the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
218 system has no ptys or if all ptys are busy: then a pipe is used
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
219 in any case. The value takes effect when an IMAP server is
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
220 opened; changing it after that has no effect."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
221 :version "22.1"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
222 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
223 :type 'boolean)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
224
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
225 (defcustom imap-use-utf7 t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
226 "If non-nil, do utf7 encoding/decoding of mailbox names.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
227 Since the UTF7 decoding currently only decodes into ISO-8859-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
228 characters, you may disable this decoding if you need to access UTF7
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
229 encoded mailboxes which doesn't translate into ISO-8859-1."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
230 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
231 :type 'boolean)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
232
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
233 (defcustom imap-log nil
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
234 "If non-nil, an imap session trace is placed in `imap-log-buffer'.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
235 Note that username, passwords and other privacy sensitive
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
236 information (such as e-mail) may be stored in the buffer.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
237 It is not written to disk, however. Do not enable this
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
238 variable unless you are comfortable with that.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
239
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
240 See also `imap-debug'."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
241 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
242 :type 'boolean)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
243
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
244 (defcustom imap-debug nil
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
245 "If non-nil, trace imap- functions into `imap-debug-buffer'.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
246 Uses `trace-function-background', so you can turn it off with,
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
247 say, `untrace-all'.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
248
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
249 Note that username, passwords and other privacy sensitive
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
250 information (such as e-mail) may be stored in the buffer.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
251 It is not written to disk, however. Do not enable this
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
252 variable unless you are comfortable with that.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
253
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
254 This variable only takes effect when loading the `imap' library.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
255 See also `imap-log'."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
256 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
257 :type 'boolean)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
258
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
259 (defcustom imap-shell-host "gateway"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
260 "Hostname of rlogin proxy."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
261 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
262 :type 'string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
263
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
264 (defcustom imap-default-user (user-login-name)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
265 "Default username to use."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
266 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
267 :type 'string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
268
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
269 (defcustom imap-read-timeout (if (string-match
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
270 "windows-nt\\|os/2\\|emx\\|cygwin"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
271 (symbol-name system-type))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
272 1.0
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
273 0.1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
274 "*How long to wait between checking for the end of output.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
275 Shorter values mean quicker response, but is more CPU intensive."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
276 :type 'number
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
277 :group 'imap)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
278
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
279 (defcustom imap-store-password nil
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
280 "If non-nil, store session password without prompting."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
281 :group 'imap
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
282 :type 'boolean)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
283
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
284 ;; Various variables.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
285
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
286 (defvar imap-fetch-data-hook nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
287 "Hooks called after receiving each FETCH response.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
288
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
289 (defvar imap-streams '(gssapi kerberos4 starttls tls ssl network shell)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
290 "Priority of streams to consider when opening connection to server.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
291
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
292 (defvar imap-stream-alist
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
293 '((gssapi imap-gssapi-stream-p imap-gssapi-open)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
294 (kerberos4 imap-kerberos4-stream-p imap-kerberos4-open)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
295 (tls imap-tls-p imap-tls-open)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
296 (ssl imap-ssl-p imap-ssl-open)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
297 (network imap-network-p imap-network-open)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
298 (shell imap-shell-p imap-shell-open)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
299 (starttls imap-starttls-p imap-starttls-open))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
300 "Definition of network streams.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
301
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
302 \(NAME CHECK OPEN)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
303
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
304 NAME names the stream, CHECK is a function returning non-nil if the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
305 server support the stream and OPEN is a function for opening the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
306 stream.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
307
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
308 (defvar imap-authenticators '(gssapi
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
309 kerberos4
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
310 digest-md5
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
311 cram-md5
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
312 ;;sasl
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
313 login
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
314 anonymous)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
315 "Priority of authenticators to consider when authenticating to server.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
316
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
317 (defvar imap-authenticator-alist
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
318 '((gssapi imap-gssapi-auth-p imap-gssapi-auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
319 (kerberos4 imap-kerberos4-auth-p imap-kerberos4-auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
320 (sasl imap-sasl-auth-p imap-sasl-auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
321 (cram-md5 imap-cram-md5-p imap-cram-md5-auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
322 (login imap-login-p imap-login-auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
323 (anonymous imap-anonymous-p imap-anonymous-auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
324 (digest-md5 imap-digest-md5-p imap-digest-md5-auth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
325 "Definition of authenticators.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
326
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
327 \(NAME CHECK AUTHENTICATE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
328
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
329 NAME names the authenticator. CHECK is a function returning non-nil if
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
330 the server support the authenticator and AUTHENTICATE is a function
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
331 for doing the actual authentication.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
332
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
333 (defvar imap-error nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
334 "Error codes from the last command.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
335
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
336 (defvar imap-logout-timeout nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
337 "Close server immediately if it can't logout in this number of seconds.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
338 If it is nil, never close server until logout completes. Normally,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
339 the value of this variable will be bound to a certain value to which
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
340 an application program that uses this module specifies on a per-server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
341 basis.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
342
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
343 ;; Internal constants. Change these and die.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
344
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
345 (defconst imap-default-port 143)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
346 (defconst imap-default-ssl-port 993)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
347 (defconst imap-default-tls-port 993)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
348 (defconst imap-default-stream 'network)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
349 (defconst imap-coding-system-for-read 'binary)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
350 (defconst imap-coding-system-for-write 'binary)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
351 (defconst imap-local-variables '(imap-server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
352 imap-port
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
353 imap-client-eol
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
354 imap-server-eol
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
355 imap-auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
356 imap-stream
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
357 imap-username
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
358 imap-password
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
359 imap-current-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
360 imap-current-target-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
361 imap-message-data
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
362 imap-capability
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
363 imap-id
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
364 imap-namespace
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
365 imap-state
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
366 imap-reached-tag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
367 imap-failed-tags
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
368 imap-tag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
369 imap-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
370 imap-calculate-literal-size-first
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
371 imap-mailbox-data))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
372 (defconst imap-log-buffer "*imap-log*")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
373 (defconst imap-debug-buffer "*imap-debug*")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
374
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
375 ;; Internal variables.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
376
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
377 (defvar imap-stream nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
378 (defvar imap-auth nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
379 (defvar imap-server nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
380 (defvar imap-port nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
381 (defvar imap-username nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
382 (defvar imap-password nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
383 (defvar imap-calculate-literal-size-first nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
384 (defvar imap-state 'closed
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
385 "IMAP state.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
386 Valid states are `closed', `initial', `nonauth', `auth', `selected'
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
387 and `examine'.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
388
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
389 (defvar imap-server-eol "\r\n"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
390 "The EOL string sent from the server.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
391
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
392 (defvar imap-client-eol "\r\n"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
393 "The EOL string we send to the server.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
394
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
395 (defvar imap-current-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
396 "Current mailbox name.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
397
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
398 (defvar imap-current-target-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
399 "Current target mailbox for COPY and APPEND commands.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
400
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
401 (defvar imap-mailbox-data nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
402 "Obarray with mailbox data.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
403
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
404 (defvar imap-mailbox-prime 997
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
405 "Length of `imap-mailbox-data'.")
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
406
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
407 (defvar imap-current-message nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
408 "Current message number.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
409
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
410 (defvar imap-message-data nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
411 "Obarray with message data.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
412
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
413 (defvar imap-message-prime 997
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
414 "Length of `imap-message-data'.")
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
415
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
416 (defvar imap-capability nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
417 "Capability for server.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
418
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
419 (defvar imap-id nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
420 "Identity of server.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
421 See RFC 2971.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
422
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
423 (defvar imap-namespace nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
424 "Namespace for current server.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
425
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
426 (defvar imap-reached-tag 0
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
427 "Lower limit on command tags that have been parsed.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
428
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
429 (defvar imap-failed-tags nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
430 "Alist of tags that failed.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
431 Each element is a list with four elements; tag (a integer), response
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
432 state (a symbol, `OK', `NO' or `BAD'), response code (a string), and
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
433 human readable response text (a string).")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
434
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
435 (defvar imap-tag 0
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
436 "Command tag number.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
437
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
438 (defvar imap-process nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
439 "Process.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
440
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
441 (defvar imap-continuation nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
442 "Non-nil indicates that the server emitted a continuation request.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
443 The actual value is really the text on the continuation line.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
444
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
445 (defvar imap-callbacks nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
446 "List of response tags and callbacks, on the form `(number . function)'.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
447 The function should take two arguments, the first the IMAP tag and the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
448 second the status (OK, NO, BAD etc) of the command.")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
449
93820
7c273495693a Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 92694
diff changeset
450 (defvar imap-enable-exchange-bug-workaround nil
7c273495693a Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 92694
diff changeset
451 "Send FETCH UID commands as *:* instead of *.
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
452
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
453 When non-nil, use an alternative UIDS form. Enabling appears to
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
454 be required for some servers (e.g., Microsoft Exchange 2007)
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
455 which otherwise would trigger a response 'BAD The specified
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
456 message set is invalid.'. We don't unconditionally use this
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
457 form, since this is said to be significantly inefficient.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
458
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
459 This variable is set to t automatically per server if the
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
460 canonical form fails.")
93820
7c273495693a Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 92694
diff changeset
461
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
462
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
463 ;; Utility functions:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
464
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
465 (defun imap-remassoc (key alist)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
466 "Delete by side effect any elements of ALIST whose car is `equal' to KEY.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
467 The modified ALIST is returned. If the first member
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
468 of ALIST has a car that is `equal' to KEY, there is no way to remove it
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
469 by side effect; therefore, write `(setq foo (remassoc key foo))' to be
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
470 sure of changing the value of `foo'."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
471 (when alist
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
472 (if (equal key (caar alist))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
473 (cdr alist)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
474 (setcdr alist (imap-remassoc key (cdr alist)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
475 alist)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
476
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
477 (defsubst imap-disable-multibyte ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
478 "Enable multibyte in the current buffer."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
479 (when (fboundp 'set-buffer-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
480 (set-buffer-multibyte nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
481
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
482 (defsubst imap-utf7-encode (string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
483 (if imap-use-utf7
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
484 (and string
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
485 (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
486 (utf7-encode string t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
487 (error (message
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
488 "imap: Could not UTF7 encode `%s', using it unencoded..."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
489 string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
490 string)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
491 string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
492
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
493 (defsubst imap-utf7-decode (string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
494 (if imap-use-utf7
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
495 (and string
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
496 (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
497 (utf7-decode string t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
498 (error (message
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
499 "imap: Could not UTF7 decode `%s', using it undecoded..."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
500 string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
501 string)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
502 string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
503
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
504 (defsubst imap-ok-p (status)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
505 (if (eq status 'OK)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
506 t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
507 (setq imap-error status)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
508 nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
509
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
510 (defun imap-error-text (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
511 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
512 (nth 3 (car imap-failed-tags))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
513
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
514
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
515 ;; Server functions; stream stuff:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
516
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
517 (defun imap-kerberos4-stream-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
518 (imap-capability 'AUTH=KERBEROS_V4 buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
519
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
520 (defun imap-kerberos4-open (name buffer server port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
521 (let ((cmds imap-kerberos4-program)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
522 cmd done)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
523 (while (and (not done) (setq cmd (pop cmds)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
524 (message "Opening Kerberos 4 IMAP connection with `%s'..." cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
525 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
526 (let* ((port (or port imap-default-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
527 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
528 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
529 (process-connection-type imap-process-connection-type)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
530 (process (start-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
531 name buffer shell-file-name shell-command-switch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
532 (format-spec
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
533 cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
534 (format-spec-make
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
535 ?s server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
536 ?p (number-to-string port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
537 ?l imap-default-user))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
538 response)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
539 (when process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
540 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
541 (setq imap-client-eol "\n"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
542 imap-calculate-literal-size-first t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
543 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
544 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
545 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
546 ;; Athena IMTEST can output SSL verify errors
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
547 (or (while (looking-at "^verify error:num=")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
548 (forward-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
549 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
550 (or (while (looking-at "^TLS connection established")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
551 (forward-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
552 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
553 ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
554 (or (while (looking-at "^C:")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
555 (forward-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
556 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
557 ;; cyrus 1.6 imtest print "S: " before server greeting
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
558 (or (not (looking-at "S: "))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
559 (forward-char 3)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
560 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
561 (not (and (imap-parse-greeting)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
562 ;; success in imtest < 1.6:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
563 (or (re-search-forward
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
564 "^__\\(.*\\)__\n" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
565 ;; success in imtest 1.6:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
566 (re-search-forward
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
567 "^\\(Authenticat.*\\)" nil t))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
568 (setq response (match-string 1)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
569 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
570 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
571 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
572 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
573 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
574 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
575 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
576 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
577 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
578 (message "Opening Kerberos 4 IMAP connection with `%s'...%s" cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
579 (if response (concat "done, " response) "failed"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
580 (if (and response (let ((case-fold-search nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
581 (not (string-match "failed" response))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
582 (setq done process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
583 (if (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
584 (imap-logout))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
585 (delete-process process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
586 nil)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
587 done))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
588
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
589 (defun imap-gssapi-stream-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
590 (imap-capability 'AUTH=GSSAPI buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
591
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
592 (defun imap-gssapi-open (name buffer server port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
593 (let ((cmds imap-gssapi-program)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
594 cmd done)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
595 (while (and (not done) (setq cmd (pop cmds)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
596 (message "Opening GSSAPI IMAP connection with `%s'..." cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
597 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
598 (let* ((port (or port imap-default-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
599 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
600 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
601 (process-connection-type imap-process-connection-type)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
602 (process (start-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
603 name buffer shell-file-name shell-command-switch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
604 (format-spec
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
605 cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
606 (format-spec-make
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
607 ?s server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
608 ?p (number-to-string port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
609 ?l imap-default-user))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
610 response)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
611 (when process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
612 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
613 (setq imap-client-eol "\n"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
614 imap-calculate-literal-size-first t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
615 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
616 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
617 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
618 ;; Athena IMTEST can output SSL verify errors
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
619 (or (while (looking-at "^verify error:num=")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
620 (forward-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
621 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
622 (or (while (looking-at "^TLS connection established")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
623 (forward-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
624 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
625 ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
626 (or (while (looking-at "^C:")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
627 (forward-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
628 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
629 ;; cyrus 1.6 imtest print "S: " before server greeting
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
630 (or (not (looking-at "S: "))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
631 (forward-char 3)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
632 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
633 ;; GNU SASL may print 'Trying ...' first.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
634 (or (not (looking-at "Trying "))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
635 (forward-line)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
636 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
637 (not (and (imap-parse-greeting)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
638 ;; success in imtest 1.6:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
639 (re-search-forward
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
640 (concat "^\\(\\(Authenticat.*\\)\\|\\("
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
641 "Client authentication "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
642 "finished.*\\)\\)")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
643 nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
644 (setq response (match-string 1)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
645 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
646 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
647 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
648 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
649 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
650 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
651 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
652 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
653 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
654 (message "GSSAPI IMAP connection: %s" (or response "failed"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
655 (if (and response (let ((case-fold-search nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
656 (not (string-match "failed" response))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
657 (setq done process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
658 (if (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
659 (imap-logout))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
660 (delete-process process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
661 nil)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
662 done))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
663
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
664 (defun imap-ssl-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
665 nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
666
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
667 (defun imap-ssl-open (name buffer server port)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
668 "Open an SSL connection to SERVER."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
669 (let ((cmds (if (listp imap-ssl-program) imap-ssl-program
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
670 (list imap-ssl-program)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
671 cmd done)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
672 (while (and (not done) (setq cmd (pop cmds)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
673 (message "imap: Opening SSL connection with `%s'..." cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
674 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
675 (let* ((port (or port imap-default-ssl-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
676 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
677 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
678 (process-connection-type imap-process-connection-type)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
679 (set-process-query-on-exit-flag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
680 (if (fboundp 'set-process-query-on-exit-flag)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
681 'set-process-query-on-exit-flag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
682 'process-kill-without-query))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
683 process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
684 (when (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
685 (setq process (start-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
686 name buffer shell-file-name
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
687 shell-command-switch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
688 (format-spec cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
689 (format-spec-make
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
690 ?s server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
691 ?p (number-to-string port)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
692 (funcall set-process-query-on-exit-flag process nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
693 process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
694 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
695 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
696 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
697 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
698 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
699 (forward-line -1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
700 (not (imap-parse-greeting)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
701 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
702 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
703 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
704 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
705 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
706 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
707 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
708 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
709 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
710 (when (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
711 (setq done process))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
712 (if done
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
713 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
714 (message "imap: Opening SSL connection with `%s'...done" cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
715 done)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
716 (message "imap: Opening SSL connection with `%s'...failed" cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
717 nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
718
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
719 (defun imap-tls-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
720 nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
721
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
722 (defun imap-tls-open (name buffer server port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
723 (let* ((port (or port imap-default-tls-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
724 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
725 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
726 (process (open-tls-stream name buffer server port)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
727 (when process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
728 (while (and (memq (process-status process) '(open run))
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
729 ;; FIXME: Per the "blue moon" comment, the process/buffer
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
730 ;; handling here, and elsewhere in functions which open
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
731 ;; streams, looks confused. Obviously we can change buffers
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
732 ;; if a different process handler kicks in from
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
733 ;; `accept-process-output' or `sit-for' below, and TRT seems
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
734 ;; to be to `save-buffer' around those calls. (I wonder why
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
735 ;; `sit-for' is used with a non-zero wait.) -- fx
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
736 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
737 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
738 (forward-line -1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
739 (not (imap-parse-greeting)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
740 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
741 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
742 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
743 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
744 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
745 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
746 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
747 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
748 (when (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
749 process))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
750
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
751 (defun imap-network-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
752 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
753
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
754 (defun imap-network-open (name buffer server port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
755 (let* ((port (or port imap-default-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
756 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
757 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
758 (process (open-network-stream name buffer server port)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
759 (when process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
760 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
761 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
762 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
763 (not (imap-parse-greeting)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
764 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
765 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
766 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
767 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
768 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
769 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
770 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
771 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
772 (when (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
773 process))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
774
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
775 (defun imap-shell-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
776 nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
777
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
778 (defun imap-shell-open (name buffer server port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
779 (let ((cmds (if (listp imap-shell-program) imap-shell-program
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
780 (list imap-shell-program)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
781 cmd done)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
782 (while (and (not done) (setq cmd (pop cmds)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
783 (message "imap: Opening IMAP connection with `%s'..." cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
784 (setq imap-client-eol "\n")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
785 (let* ((port (or port imap-default-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
786 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
787 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
788 (process (start-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
789 name buffer shell-file-name shell-command-switch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
790 (format-spec
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
791 cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
792 (format-spec-make
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
793 ?s server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
794 ?g imap-shell-host
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
795 ?p (number-to-string port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
796 ?l imap-default-user)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
797 (when process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
798 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
799 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
800 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
801 (forward-line -1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
802 (not (imap-parse-greeting)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
803 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
804 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
805 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
806 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
807 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
808 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
809 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
810 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
811 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
812 (when (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
813 (setq done process)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
814 (if done
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
815 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
816 (message "imap: Opening IMAP connection with `%s'...done" cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
817 done)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
818 (message "imap: Opening IMAP connection with `%s'...failed" cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
819 nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
820
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
821 (defun imap-starttls-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
822 (imap-capability 'STARTTLS buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
823
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
824 (defun imap-starttls-open (name buffer server port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
825 (let* ((port (or port imap-default-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
826 (coding-system-for-read imap-coding-system-for-read)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
827 (coding-system-for-write imap-coding-system-for-write)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
828 (process (starttls-open-stream name buffer server port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
829 done tls-info)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
830 (message "imap: Connecting with STARTTLS...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
831 (when process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
832 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
833 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
834 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
835 (forward-line -1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
836 (not (imap-parse-greeting)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
837 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
838 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
839 (imap-send-command "STARTTLS")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
840 (while (and (memq (process-status process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
841 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
842 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
843 (forward-line -1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
844 (not (re-search-forward "[0-9]+ OK.*\r?\n" nil t)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
845 (accept-process-output process 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
846 (sit-for 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
847 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
848 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
849 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
850 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
851 (insert-buffer-substring buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
852 (when (and (setq tls-info (starttls-negotiate process))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
853 (memq (process-status process) '(open run)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
854 (setq done process)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
855 (if (stringp tls-info)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
856 (message "imap: STARTTLS info: %s" tls-info))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
857 (message "imap: Connecting with STARTTLS...%s" (if done "done" "failed"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
858 done))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
859
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
860 ;; Server functions; authenticator stuff:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
861
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
862 (defun imap-interactive-login (buffer loginfunc)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
863 "Login to server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
864 LOGINFUNC is passed a username and a password, it should return t if
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
865 it where successful authenticating itself to the server, nil otherwise.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
866 Returns t if login was successful, nil otherwise."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
867 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
868 (make-local-variable 'imap-username)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
869 (make-local-variable 'imap-password)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
870 (let (user passwd ret)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
871 ;; (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
872 (while (or (not user) (not passwd))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
873 (setq user (or imap-username
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
874 (read-from-minibuffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
875 (concat "IMAP username for " imap-server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
876 " (using stream `" (symbol-name imap-stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
877 "'): ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
878 (or user imap-default-user))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
879 (setq passwd (or imap-password
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
880 (read-passwd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
881 (concat "IMAP password for " user "@"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
882 imap-server " (using authenticator `"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
883 (symbol-name imap-auth) "'): "))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
884 (when (and user passwd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
885 (if (funcall loginfunc user passwd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
886 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
887 (setq ret t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
888 imap-username user)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
889 (when (and (not imap-password)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
890 (or imap-store-password
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
891 (y-or-n-p "Store password for this session? ")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
892 (setq imap-password passwd)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
893 (message "Login failed...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
894 (setq passwd nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
895 (setq imap-password nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
896 (sit-for 1))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
897 ;; (quit (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
898 ;; (setq user nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
899 ;; passwd nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
900 ;; (error (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
901 ;; (setq user nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
902 ;; passwd nil))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
903 ret)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
904
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
905 (defun imap-gssapi-auth-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
906 (eq imap-stream 'gssapi))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
907
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
908 (defun imap-gssapi-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
909 (message "imap: Authenticating using GSSAPI...%s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
910 (if (eq imap-stream 'gssapi) "done" "failed"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
911 (eq imap-stream 'gssapi))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
912
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
913 (defun imap-kerberos4-auth-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
914 (and (imap-capability 'AUTH=KERBEROS_V4 buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
915 (eq imap-stream 'kerberos4)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
916
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
917 (defun imap-kerberos4-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
918 (message "imap: Authenticating using Kerberos 4...%s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
919 (if (eq imap-stream 'kerberos4) "done" "failed"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
920 (eq imap-stream 'kerberos4))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
921
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
922 (defun imap-cram-md5-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
923 (imap-capability 'AUTH=CRAM-MD5 buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
924
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
925 (defun imap-cram-md5-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
926 "Login to server using the AUTH CRAM-MD5 method."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
927 (message "imap: Authenticating using CRAM-MD5...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
928 (let ((done (imap-interactive-login
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
929 buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
930 (lambda (user passwd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
931 (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
932 (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
933 (list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
934 "AUTHENTICATE CRAM-MD5"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
935 (lambda (challenge)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
936 (let* ((decoded (base64-decode-string challenge))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
937 (hash (rfc2104-hash 'md5 64 16 passwd decoded))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
938 (response (concat user " " hash))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
939 (encoded (base64-encode-string response)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
940 encoded)))))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
941 (if done
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
942 (message "imap: Authenticating using CRAM-MD5...done")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
943 (message "imap: Authenticating using CRAM-MD5...failed"))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
944
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
945 (defun imap-login-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
946 (and (not (imap-capability 'LOGINDISABLED buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
947 (not (imap-capability 'X-LOGIN-CMD-DISABLED buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
948
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
949 (defun imap-quote-specials (string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
950 (with-temp-buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
951 (insert string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
952 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
953 (while (re-search-forward "[\\\"]" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
954 (forward-char -1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
955 (insert "\\")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
956 (forward-char 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
957 (buffer-string)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
958
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
959 (defun imap-login-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
960 "Login to server using the LOGIN command."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
961 (message "imap: Plaintext authentication...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
962 (imap-interactive-login buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
963 (lambda (user passwd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
964 (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
965 (concat "LOGIN \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
966 (imap-quote-specials user)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
967 "\" \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
968 (imap-quote-specials passwd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
969 "\""))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
970
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
971 (defun imap-anonymous-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
972 t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
973
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
974 (defun imap-anonymous-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
975 (message "imap: Logging in anonymously...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
976 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
977 (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
978 (concat "LOGIN anonymous \"" (concat (user-login-name) "@"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
979 (system-name)) "\"")))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
980
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
981 ;;; Compiler directives.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
982
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
983 (defvar imap-sasl-client)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
984 (defvar imap-sasl-step)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
985
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
986 (defun imap-sasl-make-mechanisms (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
987 (let ((mecs '()))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
988 (mapc (lambda (sym)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
989 (let ((name (symbol-name sym)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
990 (if (and (> (length name) 5)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
991 (string-equal "AUTH=" (substring name 0 5 )))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
992 (setq mecs (cons (substring name 5) mecs)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
993 (imap-capability nil buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
994 mecs))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
995
86817
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
996 (declare-function sasl-find-mechanism "sasl" (mechanism))
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
997 (declare-function sasl-mechanism-name "sasl" (mechanism))
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
998 (declare-function sasl-make-client "sasl" (mechanism name service server))
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
999 (declare-function sasl-next-step "sasl" (client step))
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
1000 (declare-function sasl-step-data "sasl" (step))
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
1001 (declare-function sasl-step-set-data "sasl" (step data))
be7be23ea4b9 (sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents: 86442
diff changeset
1002
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1003 (defun imap-sasl-auth-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1004 (and (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1005 (require 'sasl)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1006 (error nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1007 (sasl-find-mechanism (imap-sasl-make-mechanisms buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1008
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1009 (defun imap-sasl-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1010 "Login to server using the SASL method."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1011 (message "imap: Authenticating using SASL...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1012 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1013 (make-local-variable 'imap-username)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1014 (make-local-variable 'imap-sasl-client)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1015 (make-local-variable 'imap-sasl-step)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1016 (let ((mechanism (sasl-find-mechanism (imap-sasl-make-mechanisms buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1017 logged user)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1018 (while (not logged)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1019 (setq user (or imap-username
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1020 (read-from-minibuffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1021 (concat "IMAP username for " imap-server " using SASL "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1022 (sasl-mechanism-name mechanism) ": ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1023 (or user imap-default-user))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1024 (when user
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1025 (setq imap-sasl-client (sasl-make-client mechanism user "imap2" imap-server)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1026 imap-sasl-step (sasl-next-step imap-sasl-client nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1027 (let ((tag (imap-send-command
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1028 (if (sasl-step-data imap-sasl-step)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1029 (format "AUTHENTICATE %s %s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1030 (sasl-mechanism-name mechanism)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1031 (sasl-step-data imap-sasl-step))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1032 (format "AUTHENTICATE %s" (sasl-mechanism-name mechanism)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1033 buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1034 (while (eq (imap-wait-for-tag tag) 'INCOMPLETE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1035 (sasl-step-set-data imap-sasl-step (base64-decode-string imap-continuation))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1036 (setq imap-continuation nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1037 imap-sasl-step (sasl-next-step imap-sasl-client imap-sasl-step))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1038 (imap-send-command-1 (if (sasl-step-data imap-sasl-step)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1039 (base64-encode-string (sasl-step-data imap-sasl-step) t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1040 "")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1041 (if (imap-ok-p (imap-wait-for-tag tag))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1042 (setq imap-username user
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1043 logged t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1044 (message "Login failed...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1045 (sit-for 1)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1046 logged)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1047
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1048 (defun imap-digest-md5-p (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1049 (and (imap-capability 'AUTH=DIGEST-MD5 buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1050 (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1051 (require 'digest-md5)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1052 (error nil))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1053
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1054 (defun imap-digest-md5-auth (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1055 "Login to server using the AUTH DIGEST-MD5 method."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1056 (message "imap: Authenticating using DIGEST-MD5...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1057 (imap-interactive-login
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1058 buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1059 (lambda (user passwd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1060 (let ((tag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1061 (imap-send-command
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1062 (list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1063 "AUTHENTICATE DIGEST-MD5"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1064 (lambda (challenge)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1065 (digest-md5-parse-digest-challenge
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1066 (base64-decode-string challenge))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1067 (let* ((digest-uri
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1068 (digest-md5-digest-uri
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1069 "imap" (digest-md5-challenge 'realm)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1070 (response
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1071 (digest-md5-digest-response
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1072 user passwd digest-uri)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1073 (base64-encode-string response 'no-line-break))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1074 )))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1075 (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1076 nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1077 (setq imap-continuation nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1078 (imap-send-command-1 "")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1079 (imap-ok-p (imap-wait-for-tag tag)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1080
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1081 ;; Server functions:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1082
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1083 (defun imap-open-1 (buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1084 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1085 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1086 (setq imap-current-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1087 imap-current-message nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1088 imap-state 'initial
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1089 imap-process (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1090 (funcall (nth 2 (assq imap-stream
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1091 imap-stream-alist))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1092 "imap" buffer imap-server imap-port)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1093 ((error quit) nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1094 (when imap-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1095 (set-process-filter imap-process 'imap-arrival-filter)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1096 (set-process-sentinel imap-process 'imap-sentinel)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1097 (while (and (eq imap-state 'initial)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1098 (memq (process-status imap-process) '(open run)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1099 (message "Waiting for response from %s..." imap-server)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1100 (accept-process-output imap-process 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1101 (message "Waiting for response from %s...done" imap-server)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1102 (and (memq (process-status imap-process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1103 imap-process))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1104
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1105 (defun imap-open (server &optional port stream auth buffer)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1106 "Open an IMAP connection to host SERVER at PORT returning a buffer.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1107 If PORT is unspecified, a default value is used (143 except
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1108 for SSL which use 993).
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1109 STREAM indicates the stream to use, see `imap-streams' for available
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1110 streams. If nil, it choices the best stream the server is capable of.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1111 AUTH indicates authenticator to use, see `imap-authenticators' for
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1112 available authenticators. If nil, it choices the best stream the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1113 server is capable of.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1114 BUFFER can be a buffer or a name of a buffer, which is created if
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1115 necessary. If nil, the buffer name is generated."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1116 (setq buffer (or buffer (format " *imap* %s:%d" server (or port 0))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1117 (with-current-buffer (get-buffer-create buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1118 (if (imap-opened buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1119 (imap-close buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1120 (mapc 'make-local-variable imap-local-variables)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1121 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1122 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1123 (setq imap-server (or server imap-server))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1124 (setq imap-port (or port imap-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1125 (setq imap-auth (or auth imap-auth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1126 (setq imap-stream (or stream imap-stream))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1127 (message "imap: Connecting to %s..." imap-server)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1128 (if (null (let ((imap-stream (or imap-stream imap-default-stream)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1129 (imap-open-1 buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1130 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1131 (message "imap: Connecting to %s...failed" imap-server)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1132 nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1133 (when (null imap-stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1134 ;; Need to choose stream.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1135 (let ((streams imap-streams))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1136 (while (setq stream (pop streams))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1137 ;; OK to use this stream?
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1138 (when (funcall (nth 1 (assq stream imap-stream-alist)) buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1139 ;; Stream changed?
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1140 (if (not (eq imap-default-stream stream))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1141 (with-current-buffer (get-buffer-create
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1142 (generate-new-buffer-name " *temp*"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1143 (mapc 'make-local-variable imap-local-variables)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1144 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1145 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1146 (setq imap-server (or server imap-server))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1147 (setq imap-port (or port imap-port))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1148 (setq imap-auth (or auth imap-auth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1149 (message "imap: Reconnecting with stream `%s'..." stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1150 (if (null (let ((imap-stream stream))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1151 (imap-open-1 (current-buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1152 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1153 (kill-buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1154 (message
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1155 "imap: Reconnecting with stream `%s'...failed"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1156 stream))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1157 ;; We're done, kill the first connection
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1158 (imap-close buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1159 (let ((name (if (stringp buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1160 buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1161 (buffer-name buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1162 (kill-buffer buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1163 (rename-buffer name))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1164 (message "imap: Reconnecting with stream `%s'...done"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1165 stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1166 (setq imap-stream stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1167 (setq imap-capability nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1168 (setq streams nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1169 ;; We're done
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1170 (message "imap: Connecting to %s...done" imap-server)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1171 (setq imap-stream stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1172 (setq imap-capability nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1173 (setq streams nil))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1174 (when (imap-opened buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1175 (setq imap-mailbox-data (make-vector imap-mailbox-prime 0)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1176 (when imap-stream
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1177 buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1178
87859
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1179 (defcustom imap-ping-server t
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1180 "If non-nil, check if IMAP is open.
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1181 See the function `imap-ping-server'."
92334
9f0819c582f0 (imap-ping-server): Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents: 87859
diff changeset
1182 :version "23.1" ;; No Gnus
87859
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1183 :group 'imap
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1184 :type 'boolean)
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1185
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1186 (defun imap-opened (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1187 "Return non-nil if connection to imap server in BUFFER is open.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1188 If BUFFER is nil then the current buffer is used."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1189 (and (setq buffer (get-buffer (or buffer (current-buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1190 (buffer-live-p buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1191 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1192 (and imap-process
87859
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1193 (memq (process-status imap-process) '(open run))
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1194 (if imap-ping-server
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1195 (imap-ping-server)
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1196 t)))))
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1197
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1198 (defun imap-ping-server (&optional buffer)
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1199 "Ping the IMAP server in BUFFER with a \"NOOP\" command.
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1200 Return non-nil if the server responds, and nil if it does not
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1201 respond. If BUFFER is nil, the current buffer is used."
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1202 (condition-case ()
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1203 (imap-ok-p (imap-send-command-wait "NOOP" buffer))
1bb83c2fe524 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1204 (error nil)))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1205
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1206 (defun imap-authenticate (&optional user passwd buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1207 "Authenticate to server in BUFFER, using current buffer if nil.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1208 It uses the authenticator specified when opening the server. If the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1209 authenticator requires username/passwords, they are queried from the
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1210 user and optionally stored in the buffer. If USER and/or PASSWD is
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1211 specified, the user will not be questioned and the username and/or
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1212 password is remembered in the buffer."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1213 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1214 (if (not (eq imap-state 'nonauth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1215 (or (eq imap-state 'auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1216 (eq imap-state 'selected)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1217 (eq imap-state 'examine))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1218 (make-local-variable 'imap-username)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1219 (make-local-variable 'imap-password)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1220 (if user (setq imap-username user))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1221 (if passwd (setq imap-password passwd))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1222 (if imap-auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1223 (and (funcall (nth 2 (assq imap-auth
87454
0cbc451989a7 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87209
diff changeset
1224 imap-authenticator-alist)) (current-buffer))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1225 (setq imap-state 'auth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1226 ;; Choose authenticator.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1227 (let ((auths imap-authenticators)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1228 auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1229 (while (setq auth (pop auths))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1230 ;; OK to use authenticator?
87454
0cbc451989a7 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87209
diff changeset
1231 (when (funcall (nth 1 (assq auth imap-authenticator-alist)) (current-buffer))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1232 (message "imap: Authenticating to `%s' using `%s'..."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1233 imap-server auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1234 (setq imap-auth auth)
87454
0cbc451989a7 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87209
diff changeset
1235 (if (funcall (nth 2 (assq auth imap-authenticator-alist)) (current-buffer))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1236 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1237 (message "imap: Authenticating to `%s' using `%s'...done"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1238 imap-server auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1239 (setq auths nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1240 (message "imap: Authenticating to `%s' using `%s'...failed"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1241 imap-server auth)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1242 imap-state))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1243
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1244 (defun imap-close (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1245 "Close connection to server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1246 If BUFFER is nil, the current buffer is used."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1247 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1248 (when (imap-opened)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1249 (condition-case nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1250 (imap-logout-wait)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1251 (quit nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1252 (when (and imap-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1253 (memq (process-status imap-process) '(open run)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1254 (delete-process imap-process))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1255 (setq imap-current-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1256 imap-current-message nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1257 imap-process nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1258 (erase-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1259 t))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1260
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1261 (defun imap-capability (&optional identifier buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1262 "Return a list of identifiers which server in BUFFER support.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1263 If IDENTIFIER, return non-nil if it's among the servers capabilities.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1264 If BUFFER is nil, the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1265 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1266 (unless imap-capability
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1267 (unless (imap-ok-p (imap-send-command-wait "CAPABILITY"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1268 (setq imap-capability '(IMAP2))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1269 (if identifier
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1270 (memq (intern (upcase (symbol-name identifier))) imap-capability)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1271 imap-capability)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1272
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1273 (defun imap-id (&optional list-of-values buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1274 "Identify client to server in BUFFER, and return server identity.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1275 LIST-OF-VALUES is nil, or a plist with identifier and value
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1276 strings to send to the server to identify the client.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1277
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1278 Return a list of identifiers which server in BUFFER support, or
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1279 nil if it doesn't support ID or returns no information.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1280
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1281 If BUFFER is nil, the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1282 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1283 (when (and (imap-capability 'ID)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1284 (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1285 (if (null list-of-values)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1286 "ID NIL"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1287 (concat "ID (" (mapconcat (lambda (el)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1288 (concat "\"" el "\""))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1289 list-of-values
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1290 " ") ")")))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1291 imap-id)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1292
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1293 (defun imap-namespace (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1294 "Return a namespace hierarchy at server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1295 If BUFFER is nil, the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1296 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1297 (unless imap-namespace
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1298 (when (imap-capability 'NAMESPACE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1299 (imap-send-command-wait "NAMESPACE")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1300 imap-namespace))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1301
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1302 (defun imap-send-command-wait (command &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1303 (imap-wait-for-tag (imap-send-command command buffer) buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1304
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1305 (defun imap-logout (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1306 (or buffer (setq buffer (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1307 (if imap-logout-timeout
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1308 (with-timeout (imap-logout-timeout
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1309 (condition-case nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1310 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1311 (delete-process imap-process))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1312 (error)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1313 (imap-send-command "LOGOUT" buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1314 (imap-send-command "LOGOUT" buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1315
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1316 (defun imap-logout-wait (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1317 (or buffer (setq buffer (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1318 (if imap-logout-timeout
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1319 (with-timeout (imap-logout-timeout
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1320 (condition-case nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1321 (with-current-buffer buffer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1322 (delete-process imap-process))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1323 (error)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1324 (imap-send-command-wait "LOGOUT" buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1325 (imap-send-command-wait "LOGOUT" buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1326
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1327
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1328 ;; Mailbox functions:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1329
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1330 (defun imap-mailbox-put (propname value &optional mailbox buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1331 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1332 (if imap-mailbox-data
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1333 (put (intern (or mailbox imap-current-mailbox) imap-mailbox-data)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1334 propname value)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1335 (error "Imap-mailbox-data is nil, prop %s value %s mailbox %s buffer %s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1336 propname value mailbox (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1337 t))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1338
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1339 (defsubst imap-mailbox-get-1 (propname &optional mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1340 (get (intern-soft (or mailbox imap-current-mailbox) imap-mailbox-data)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1341 propname))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1342
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1343 (defun imap-mailbox-get (propname &optional mailbox buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1344 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1345 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1346 (imap-mailbox-get-1 propname (or mailbox imap-current-mailbox)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1347
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1348 (defun imap-mailbox-map-1 (func &optional mailbox-decoder buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1349 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1350 (let (result)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1351 (mapatoms
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1352 (lambda (s)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1353 (push (funcall func (if mailbox-decoder
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1354 (funcall mailbox-decoder (symbol-name s))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1355 (symbol-name s))) result))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1356 imap-mailbox-data)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1357 result)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1358
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1359 (defun imap-mailbox-map (func &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1360 "Map a function across each mailbox in `imap-mailbox-data', returning a list.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1361 Function should take a mailbox name (a string) as
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1362 the only argument."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1363 (imap-mailbox-map-1 func 'imap-utf7-decode buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1364
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1365 (defun imap-current-mailbox (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1366 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1367 (imap-utf7-decode imap-current-mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1368
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1369 (defun imap-current-mailbox-p-1 (mailbox &optional examine)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1370 (and (string= mailbox imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1371 (or (and examine
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1372 (eq imap-state 'examine))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1373 (and (not examine)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1374 (eq imap-state 'selected)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1375
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1376 (defun imap-current-mailbox-p (mailbox &optional examine buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1377 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1378 (imap-current-mailbox-p-1 (imap-utf7-encode mailbox) examine)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1379
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1380 (defun imap-mailbox-select-1 (mailbox &optional examine)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1381 "Select MAILBOX on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1382 If EXAMINE is non-nil, do a read-only select."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1383 (if (imap-current-mailbox-p-1 mailbox examine)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1384 imap-current-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1385 (setq imap-current-mailbox mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1386 (if (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1387 (concat (if examine "EXAMINE" "SELECT") " \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1388 mailbox "\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1389 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1390 (setq imap-message-data (make-vector imap-message-prime 0)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1391 imap-state (if examine 'examine 'selected))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1392 imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1393 ;; Failed SELECT/EXAMINE unselects current mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1394 (setq imap-current-mailbox nil))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1395
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1396 (defun imap-mailbox-select (mailbox &optional examine buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1397 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1398 (imap-utf7-decode
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1399 (imap-mailbox-select-1 (imap-utf7-encode mailbox) examine))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1400
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1401 (defun imap-mailbox-examine-1 (mailbox &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1402 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1403 (imap-mailbox-select-1 mailbox 'examine)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1404
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1405 (defun imap-mailbox-examine (mailbox &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1406 "Examine MAILBOX on server in BUFFER."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1407 (imap-mailbox-select mailbox 'examine buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1408
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1409 (defun imap-mailbox-unselect (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1410 "Close current folder in BUFFER, without expunging articles."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1411 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1412 (when (or (eq imap-state 'auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1413 (and (imap-capability 'UNSELECT)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1414 (imap-ok-p (imap-send-command-wait "UNSELECT")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1415 (and (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1416 (imap-send-command-wait (concat "EXAMINE \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1417 imap-current-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1418 "\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1419 (imap-ok-p (imap-send-command-wait "CLOSE"))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1420 (setq imap-current-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1421 imap-message-data nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1422 imap-state 'auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1423 t)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1424
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1425 (defun imap-mailbox-expunge (&optional asynch buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1426 "Expunge articles in current folder in BUFFER.
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1427 If ASYNCH, do not wait for successful completion of the command.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1428 If BUFFER is nil the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1429 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1430 (when (and imap-current-mailbox (not (eq imap-state 'examine)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1431 (if asynch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1432 (imap-send-command "EXPUNGE")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1433 (imap-ok-p (imap-send-command-wait "EXPUNGE"))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1434
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1435 (defun imap-mailbox-close (&optional asynch buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1436 "Expunge articles and close current folder in BUFFER.
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1437 If ASYNCH, do not wait for successful completion of the command.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1438 If BUFFER is nil the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1439 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1440 (when imap-current-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1441 (if asynch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1442 (imap-add-callback (imap-send-command "CLOSE")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1443 `(lambda (tag status)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1444 (message "IMAP mailbox `%s' closed... %s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1445 imap-current-mailbox status)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1446 (when (eq ,imap-current-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1447 imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1448 ;; Don't wipe out data if another mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1449 ;; was selected...
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1450 (setq imap-current-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1451 imap-message-data nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1452 imap-state 'auth))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1453 (when (imap-ok-p (imap-send-command-wait "CLOSE"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1454 (setq imap-current-mailbox nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1455 imap-message-data nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1456 imap-state 'auth)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1457 t)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1458
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1459 (defun imap-mailbox-create-1 (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1460 (imap-ok-p (imap-send-command-wait (list "CREATE \"" mailbox "\""))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1461
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1462 (defun imap-mailbox-create (mailbox &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1463 "Create MAILBOX on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1464 If BUFFER is nil the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1465 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1466 (imap-mailbox-create-1 (imap-utf7-encode mailbox))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1467
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1468 (defun imap-mailbox-delete (mailbox &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1469 "Delete MAILBOX on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1470 If BUFFER is nil the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1471 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1472 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1473 (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1474 (imap-send-command-wait (list "DELETE \"" mailbox "\""))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1475
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1476 (defun imap-mailbox-rename (oldname newname &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1477 "Rename mailbox OLDNAME to NEWNAME on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1478 If BUFFER is nil the current buffer is assumed."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1479 (let ((oldname (imap-utf7-encode oldname))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1480 (newname (imap-utf7-encode newname)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1481 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1482 (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1483 (imap-send-command-wait (list "RENAME \"" oldname "\" "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1484 "\"" newname "\""))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1485
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1486 (defun imap-mailbox-lsub (&optional root reference add-delimiter buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1487 "Return a list of subscribed mailboxes on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1488 If ROOT is non-nil, only list matching mailboxes. If ADD-DELIMITER is
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1489 non-nil, a hierarchy delimiter is added to root. REFERENCE is a
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1490 implementation-specific string that has to be passed to lsub command."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1491 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1492 ;; Make sure we know the hierarchy separator for root's hierarchy
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1493 (when (and add-delimiter (null (imap-mailbox-get-1 'delimiter root)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1494 (imap-send-command-wait (concat "LIST \"" reference "\" \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1495 (imap-utf7-encode root) "\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1496 ;; clear list data (NB not delimiter and other stuff)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1497 (imap-mailbox-map-1 (lambda (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1498 (imap-mailbox-put 'lsub nil mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1499 (when (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1500 (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1501 (concat "LSUB \"" reference "\" \"" (imap-utf7-encode root)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1502 (and add-delimiter (imap-mailbox-get-1 'delimiter root))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1503 "%\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1504 (let (out)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1505 (imap-mailbox-map-1 (lambda (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1506 (when (imap-mailbox-get-1 'lsub mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1507 (push (imap-utf7-decode mailbox) out))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1508 (nreverse out)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1509
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1510 (defun imap-mailbox-list (root &optional reference add-delimiter buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1511 "Return a list of mailboxes matching ROOT on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1512 If ADD-DELIMITER is non-nil, a hierarchy delimiter is added to
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1513 root. REFERENCE is a implementation-specific string that has to be
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1514 passed to list command."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1515 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1516 ;; Make sure we know the hierarchy separator for root's hierarchy
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1517 (when (and add-delimiter (null (imap-mailbox-get-1 'delimiter root)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1518 (imap-send-command-wait (concat "LIST \"" reference "\" \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1519 (imap-utf7-encode root) "\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1520 ;; clear list data (NB not delimiter and other stuff)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1521 (imap-mailbox-map-1 (lambda (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1522 (imap-mailbox-put 'list nil mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1523 (when (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1524 (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1525 (concat "LIST \"" reference "\" \"" (imap-utf7-encode root)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1526 (and add-delimiter (imap-mailbox-get-1 'delimiter root))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1527 "%\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1528 (let (out)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1529 (imap-mailbox-map-1 (lambda (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1530 (when (imap-mailbox-get-1 'list mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1531 (push (imap-utf7-decode mailbox) out))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1532 (nreverse out)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1533
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1534 (defun imap-mailbox-subscribe (mailbox &optional buffer)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1535 "Send the SUBSCRIBE command on the MAILBOX to server in BUFFER.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1536 Returns non-nil if successful."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1537 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1538 (imap-ok-p (imap-send-command-wait (concat "SUBSCRIBE \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1539 (imap-utf7-encode mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1540 "\"")))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1541
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1542 (defun imap-mailbox-unsubscribe (mailbox &optional buffer)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1543 "Send the SUBSCRIBE command on the MAILBOX to server in BUFFER.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1544 Returns non-nil if successful."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1545 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1546 (imap-ok-p (imap-send-command-wait (concat "UNSUBSCRIBE "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1547 (imap-utf7-encode mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1548 "\"")))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1549
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1550 (defun imap-mailbox-status (mailbox items &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1551 "Get status items ITEM in MAILBOX from server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1552 ITEMS can be a symbol or a list of symbols, valid symbols are one of
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1553 the STATUS data items -- i.e. `messages', `recent', `uidnext', `uidvalidity',
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1554 or `unseen'. If ITEMS is a list of symbols, a list of values is
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1555 returned, if ITEMS is a symbol only its value is returned."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1556 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1557 (when (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1558 (imap-send-command-wait (list "STATUS \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1559 (imap-utf7-encode mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1560 "\" "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1561 (upcase
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1562 (format "%s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1563 (if (listp items)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1564 items
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1565 (list items)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1566 (if (listp items)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1567 (mapcar (lambda (item)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1568 (imap-mailbox-get item mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1569 items)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1570 (imap-mailbox-get items mailbox)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1571
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1572 (defun imap-mailbox-status-asynch (mailbox items &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1573 "Send status item request ITEM on MAILBOX to server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1574 ITEMS can be a symbol or a list of symbols, valid symbols are one of
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1575 the STATUS data items -- i.e. 'messages, 'recent, 'uidnext, 'uidvalidity
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1576 or 'unseen. The IMAP command tag is returned."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1577 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1578 (imap-send-command (list "STATUS \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1579 (imap-utf7-encode mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1580 "\" "
87097
781256628613 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 86817
diff changeset
1581 (upcase
781256628613 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 86817
diff changeset
1582 (format "%s"
781256628613 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 86817
diff changeset
1583 (if (listp items)
781256628613 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 86817
diff changeset
1584 items
781256628613 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 86817
diff changeset
1585 (list items))))))))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1586
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1587 (defun imap-mailbox-acl-get (&optional mailbox buffer)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1588 "Get ACL on MAILBOX from server in BUFFER."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1589 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1590 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1591 (when (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1592 (imap-send-command-wait (list "GETACL \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1593 (or mailbox imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1594 "\"")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1595 (imap-mailbox-get-1 'acl (or mailbox imap-current-mailbox))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1596
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1597 (defun imap-mailbox-acl-set (identifier rights &optional mailbox buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1598 "Change/set ACL for IDENTIFIER to RIGHTS in MAILBOX from server in BUFFER."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1599 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1600 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1601 (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1602 (imap-send-command-wait (list "SETACL \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1603 (or mailbox imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1604 "\" "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1605 identifier
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1606 " "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1607 rights))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1608
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1609 (defun imap-mailbox-acl-delete (identifier &optional mailbox buffer)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1610 "Remove any <identifier,rights> pair for IDENTIFIER in MAILBOX from server in BUFFER."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1611 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1612 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1613 (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1614 (imap-send-command-wait (list "DELETEACL \""
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1615 (or mailbox imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1616 "\" "
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1617 identifier))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1618
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1619
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1620 ;; Message functions:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1621
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1622 (defun imap-current-message (&optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1623 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1624 imap-current-message))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1625
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1626 (defun imap-list-to-message-set (list)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1627 (mapconcat (lambda (item)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1628 (number-to-string item))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1629 (if (listp list)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1630 list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1631 (list list))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1632 ","))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1633
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1634 (defun imap-range-to-message-set (range)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1635 (mapconcat
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1636 (lambda (item)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1637 (if (consp item)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1638 (format "%d:%d"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1639 (car item) (cdr item))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1640 (format "%d" item)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1641 (if (and (listp range) (not (listp (cdr range))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1642 (list range) ;; make (1 . 2) into ((1 . 2))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1643 range)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1644 ","))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1645
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1646 (defun imap-fetch-asynch (uids props &optional nouidfetch buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1647 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1648 (imap-send-command (format "%sFETCH %s %s" (if nouidfetch "" "UID ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1649 (if (listp uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1650 (imap-list-to-message-set uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1651 uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1652 props))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1653
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1654 (defun imap-fetch (uids props &optional receive nouidfetch buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1655 "Fetch properties PROPS from message set UIDS from server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1656 UIDS can be a string, number or a list of numbers. If RECEIVE
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1657 is non-nil return these properties."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1658 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1659 (when (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1660 (format "%sFETCH %s %s" (if nouidfetch "" "UID ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1661 (if (listp uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1662 (imap-list-to-message-set uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1663 uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1664 props)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1665 (if (or (null receive) (stringp uids))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1666 t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1667 (if (listp uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1668 (mapcar (lambda (uid)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1669 (if (listp receive)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1670 (mapcar (lambda (prop)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1671 (imap-message-get uid prop))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1672 receive)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1673 (imap-message-get uid receive)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1674 uids)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1675 (imap-message-get uids receive))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1676
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1677 (defun imap-message-put (uid propname value &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1678 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1679 (if imap-message-data
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1680 (put (intern (number-to-string uid) imap-message-data)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1681 propname value)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1682 (error "Imap-message-data is nil, uid %s prop %s value %s buffer %s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1683 uid propname value (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1684 t))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1685
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1686 (defun imap-message-get (uid propname &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1687 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1688 (get (intern-soft (number-to-string uid) imap-message-data)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1689 propname)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1690
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1691 (defun imap-message-map (func propname &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1692 "Map a function across each mailbox in `imap-message-data', returning a list."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1693 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1694 (let (result)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1695 (mapatoms
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1696 (lambda (s)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1697 (push (funcall func (get s 'UID) (get s propname)) result))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1698 imap-message-data)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1699 result)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1700
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1701 (defmacro imap-message-envelope-date (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1702 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1703 (elt (imap-message-get ,uid 'ENVELOPE) 0)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1704
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1705 (defmacro imap-message-envelope-subject (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1706 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1707 (elt (imap-message-get ,uid 'ENVELOPE) 1)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1708
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1709 (defmacro imap-message-envelope-from (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1710 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1711 (elt (imap-message-get ,uid 'ENVELOPE) 2)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1712
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1713 (defmacro imap-message-envelope-sender (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1714 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1715 (elt (imap-message-get ,uid 'ENVELOPE) 3)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1716
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1717 (defmacro imap-message-envelope-reply-to (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1718 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1719 (elt (imap-message-get ,uid 'ENVELOPE) 4)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1720
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1721 (defmacro imap-message-envelope-to (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1722 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1723 (elt (imap-message-get ,uid 'ENVELOPE) 5)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1724
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1725 (defmacro imap-message-envelope-cc (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1726 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1727 (elt (imap-message-get ,uid 'ENVELOPE) 6)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1728
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1729 (defmacro imap-message-envelope-bcc (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1730 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1731 (elt (imap-message-get ,uid 'ENVELOPE) 7)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1732
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1733 (defmacro imap-message-envelope-in-reply-to (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1734 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1735 (elt (imap-message-get ,uid 'ENVELOPE) 8)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1736
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1737 (defmacro imap-message-envelope-message-id (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1738 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1739 (elt (imap-message-get ,uid 'ENVELOPE) 9)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1740
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1741 (defmacro imap-message-body (uid &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1742 `(with-current-buffer (or ,buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1743 (imap-message-get ,uid 'BODY)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1744
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1745 ;; FIXME: Should this try to use CHARSET? -- fx
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1746 (defun imap-search (predicate &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1747 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1748 (imap-mailbox-put 'search 'dummy)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1749 (when (imap-ok-p (imap-send-command-wait (concat "UID SEARCH " predicate)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1750 (if (eq (imap-mailbox-get-1 'search imap-current-mailbox) 'dummy)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1751 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1752 (message "Missing SEARCH response to a SEARCH command (server not RFC compliant)...")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1753 nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1754 (imap-mailbox-get-1 'search imap-current-mailbox)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1755
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1756 (defun imap-message-flag-permanent-p (flag &optional mailbox buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1757 "Return t if FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1758 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1759 (or (member "\\*" (imap-mailbox-get 'permanentflags mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1760 (member flag (imap-mailbox-get 'permanentflags mailbox)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1761
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1762 (defun imap-message-flags-set (articles flags &optional silent buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1763 (when (and articles flags)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1764 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1765 (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1766 (concat "UID STORE " articles
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1767 " FLAGS" (if silent ".SILENT") " (" flags ")"))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1768
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1769 (defun imap-message-flags-del (articles flags &optional silent buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1770 (when (and articles flags)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1771 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1772 (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1773 (concat "UID STORE " articles
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1774 " -FLAGS" (if silent ".SILENT") " (" flags ")"))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1775
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1776 (defun imap-message-flags-add (articles flags &optional silent buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1777 (when (and articles flags)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1778 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1779 (imap-ok-p (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1780 (concat "UID STORE " articles
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1781 " +FLAGS" (if silent ".SILENT") " (" flags ")"))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1782
87209
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1783 ;; Cf. http://thread.gmane.org/gmane.emacs.gnus.general/65317/focus=65343
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1784 ;; Signal an error if we'd get an integer overflow.
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1785 ;;
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1786 ;; FIXME: Identify relevant calls to `string-to-number' and replace them with
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1787 ;; `imap-string-to-integer'.
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1788 (defun imap-string-to-integer (string &optional base)
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1789 (let ((number (string-to-number string base)))
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1790 (if (> number most-positive-fixnum)
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1791 (error
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1792 (format "String %s cannot be converted to a Lisp integer" number))
87209
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1793 number)))
bc4976b7380e Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 87186
diff changeset
1794
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1795 (defun imap-fetch-safe (uids props &optional receive nouidfetch buffer)
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1796 "Like `imap-fetch', but DTRT with Exchange 2007 bug.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1797 However, UIDS here is a cons, where the car is the canonical form
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1798 of the UIDS specification, and the cdr is the one which works with
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1799 Exchange 2007 or, potentially, other buggy servers.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1800 See `imap-enable-exchange-bug-workaround'."
101804
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1801 ;; The first time we get here for a given, we'll try the canonical
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1802 ;; form. If we get the known error from the buggy server, set the
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1803 ;; flag buffer-locally (to account for connections to multiple
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1804 ;; servers), then re-try with the alternative UIDS spec. We don't
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1805 ;; unconditionally use the alternative form, since the
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1806 ;; currently-used alternatives are seriously inefficient with some
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1807 ;; servers (although they are valid).
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1808 ;;
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1809 ;; FIXME: Maybe it would be cleaner to have a flag to not signal
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1810 ;; the error (which otherwise gives a message), and test
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1811 ;; `imap-failed-tags'. Also, Other IMAP clients use other forms of
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1812 ;; request which work with Exchange, e.g. Claws does "UID FETCH 1:*
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1813 ;; (UID)" rather than "FETCH UID 1,*". Is there a good reason not
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1814 ;; to do the same?
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1815 (condition-case data
101804
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1816 ;; Binding `debug-on-error' allows us to get the error from
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1817 ;; `imap-parse-response' -- it's normally caught by Emacs around
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1818 ;; execution of a process filter.
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1819 (let ((debug-on-error t))
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1820 (imap-fetch (if imap-enable-exchange-bug-workaround
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1821 (cdr uids)
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1822 (car uids))
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1823 props receive nouidfetch buffer))
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1824 (error
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1825 (if (and (not imap-enable-exchange-bug-workaround)
101804
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1826 ;; This is the Exchange 2007 response. It may be more
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1827 ;; robust just to check for a BAD response to the
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1828 ;; attempted fetch.
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1829 (string-match "The specified message set is invalid"
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1830 (cadr data)))
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1831 (with-current-buffer (or buffer (current-buffer))
101804
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
1832 (set (make-local-variable 'imap-enable-exchange-bug-workaround)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1833 t)
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1834 (imap-fetch (cdr uids) props receive nouidfetch))
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1835 (signal (car data) (cdr data))))))
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1836
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1837 (defun imap-message-copyuid-1 (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1838 (if (imap-capability 'UIDPLUS)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1839 (list (nth 0 (imap-mailbox-get-1 'copyuid mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1840 (string-to-number (nth 2 (imap-mailbox-get-1 'copyuid mailbox))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1841 (let ((old-mailbox imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1842 (state imap-state)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1843 (imap-message-data (make-vector 2 0)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1844 (when (imap-mailbox-examine-1 mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1845 (prog1
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1846 (and (imap-fetch-safe '("*" . "*:*") "UID")
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1847 (list (imap-mailbox-get-1 'uidvalidity mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1848 (apply 'max (imap-message-map
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1849 (lambda (uid prop) uid) 'UID))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1850 (if old-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1851 (imap-mailbox-select old-mailbox (eq state 'examine))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1852 (imap-mailbox-unselect)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1853
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1854 (defun imap-message-copyuid (mailbox &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1855 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1856 (imap-message-copyuid-1 (imap-utf7-decode mailbox))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1857
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1858 (defun imap-message-copy (articles mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1859 &optional dont-create no-copyuid buffer)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1860 "Copy ARTICLES to MAILBOX on server in BUFFER.
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1861 ARTICLES is a string message set. Create mailbox if it doesn't exist,
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1862 unless DONT-CREATE is non-nil. On success, return a list with
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1863 the UIDVALIDITY of the mailbox the article(s) was copied to as the
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1864 first element. The rest of list contains the saved articles' UIDs."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1865 (when articles
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1866 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1867 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1868 (if (let ((cmd (concat "UID COPY " articles " \"" mailbox "\""))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1869 (imap-current-target-mailbox mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1870 (if (imap-ok-p (imap-send-command-wait cmd))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1871 t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1872 (when (and (not dont-create)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1873 ;; removed because of buggy Oracle server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1874 ;; that doesn't send TRYCREATE tags (which
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1875 ;; is a MUST according to specifications):
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1876 ;;(imap-mailbox-get-1 'trycreate mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1877 (imap-mailbox-create-1 mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1878 (imap-ok-p (imap-send-command-wait cmd)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1879 (or no-copyuid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1880 (imap-message-copyuid-1 mailbox)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1881
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1882 ;; FIXME: Amalgamate with imap-message-copyuid-1, using an extra arg, since it
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1883 ;; shares most of the code? -- fx
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1884 (defun imap-message-appenduid-1 (mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1885 (if (imap-capability 'UIDPLUS)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1886 (imap-mailbox-get-1 'appenduid mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1887 (let ((old-mailbox imap-current-mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1888 (state imap-state)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1889 (imap-message-data (make-vector 2 0)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1890 (when (imap-mailbox-examine-1 mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1891 (prog1
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
1892 (and (imap-fetch-safe '("*" . "*:*") "UID")
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1893 (list (imap-mailbox-get-1 'uidvalidity mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1894 (apply 'max (imap-message-map
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1895 (lambda (uid prop) uid) 'UID))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1896 (if old-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1897 (imap-mailbox-select old-mailbox (eq state 'examine))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1898 (imap-mailbox-unselect)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1899
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1900 (defun imap-message-appenduid (mailbox &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1901 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1902 (imap-message-appenduid-1 (imap-utf7-encode mailbox))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1903
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1904 (defun imap-message-append (mailbox article &optional flags date-time buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1905 "Append ARTICLE (a buffer) to MAILBOX on server in BUFFER.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1906 FLAGS and DATE-TIME is currently not used. Return a cons holding
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1907 uidvalidity of MAILBOX and UID the newly created article got, or nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1908 on failure."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1909 (let ((mailbox (imap-utf7-encode mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1910 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1911 (and (let ((imap-current-target-mailbox mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1912 (imap-ok-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1913 (imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1914 (list "APPEND \"" mailbox "\" " article))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1915 (imap-message-appenduid-1 mailbox)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1916
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1917 (defun imap-body-lines (body)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1918 "Return number of lines in article by looking at the mime bodystructure BODY."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1919 (if (listp body)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1920 (if (stringp (car body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1921 (cond ((and (string= (upcase (car body)) "TEXT")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1922 (numberp (nth 7 body)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1923 (nth 7 body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1924 ((and (string= (upcase (car body)) "MESSAGE")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1925 (numberp (nth 9 body)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1926 (nth 9 body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1927 (t 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1928 (apply '+ (mapcar 'imap-body-lines body)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1929 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1930
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1931 (defun imap-envelope-from (from)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1932 "Return a from string line."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1933 (and from
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1934 (concat (aref from 0)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1935 (if (aref from 0) " <")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1936 (aref from 2)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1937 "@"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1938 (aref from 3)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1939 (if (aref from 0) ">"))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1940
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1941
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1942 ;; Internal functions.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1943
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1944 (defun imap-add-callback (tag func)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1945 (setq imap-callbacks (append (list (cons tag func)) imap-callbacks)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1946
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1947 (defun imap-send-command-1 (cmdstr)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1948 (setq cmdstr (concat cmdstr imap-client-eol))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1949 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1950 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1951 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1952 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1953 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1954 (insert cmdstr)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1955 (process-send-string imap-process cmdstr))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1956
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1957 (defun imap-send-command (command &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1958 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1959 (if (not (listp command)) (setq command (list command)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1960 (let ((tag (setq imap-tag (1+ imap-tag)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1961 cmd cmdstr)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1962 (setq cmdstr (concat (number-to-string imap-tag) " "))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1963 (while (setq cmd (pop command))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1964 (cond ((stringp cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1965 (setq cmdstr (concat cmdstr cmd)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1966 ((bufferp cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1967 (let ((eol imap-client-eol)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1968 (calcfirst imap-calculate-literal-size-first)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1969 size)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1970 (with-current-buffer cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1971 (if calcfirst
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1972 (setq size (buffer-size)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1973 (when (not (equal eol "\r\n"))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1974 ;; XXX modifies buffer!
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1975 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1976 (while (search-forward "\r\n" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1977 (replace-match eol)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1978 (if (not calcfirst)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1979 (setq size (buffer-size))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1980 (setq cmdstr
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1981 (concat cmdstr (format "{%d}" size))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1982 (unwind-protect
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1983 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1984 (imap-send-command-1 cmdstr)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1985 (setq cmdstr nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1986 (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1987 (setq command nil) ;; abort command if no cont-req
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1988 (let ((process imap-process)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1989 (stream imap-stream)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1990 (eol imap-client-eol))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1991 (with-current-buffer cmd
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1992 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1993 (with-current-buffer (get-buffer-create
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1994 imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1995 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1996 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1997 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1998 (insert-buffer-substring cmd)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
1999 (process-send-region process (point-min)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2000 (point-max)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2001 (process-send-string process imap-client-eol))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2002 (setq imap-continuation nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2003 ((functionp cmd)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2004 (imap-send-command-1 cmdstr)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2005 (setq cmdstr nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2006 (unwind-protect
104734
714ab1b8092b (imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101804
diff changeset
2007 (setq command
714ab1b8092b (imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101804
diff changeset
2008 (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE))
714ab1b8092b (imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101804
diff changeset
2009 nil ;; abort command if no cont-req
714ab1b8092b (imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101804
diff changeset
2010 (cons (funcall cmd imap-continuation)
714ab1b8092b (imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101804
diff changeset
2011 command)))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2012 (setq imap-continuation nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2013 (t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2014 (error "Unknown command type"))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2015 (if cmdstr
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2016 (imap-send-command-1 cmdstr))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2017 tag)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2018
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2019 (defun imap-wait-for-tag (tag &optional buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2020 (with-current-buffer (or buffer (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2021 (let (imap-have-messaged)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2022 (while (and (null imap-continuation)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2023 (memq (process-status imap-process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2024 (< imap-reached-tag tag))
104734
714ab1b8092b (imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101804
diff changeset
2025 (let ((len (/ (buffer-size) 1024))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2026 message-log-max)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2027 (unless (< len 10)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2028 (setq imap-have-messaged t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2029 (message "imap read: %dk" len))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2030 (accept-process-output imap-process
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2031 (truncate imap-read-timeout)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2032 (truncate (* (- imap-read-timeout
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2033 (truncate imap-read-timeout))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2034 1000)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2035 ;; A process can die _before_ we have processed everything it
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2036 ;; has to say. Moreover, this can happen in between the call to
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2037 ;; accept-process-output and the call to process-status in an
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2038 ;; iteration of the loop above.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2039 (when (and (null imap-continuation)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2040 (< imap-reached-tag tag))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2041 (accept-process-output imap-process 0 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2042 (when imap-have-messaged
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2043 (message ""))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2044 (and (memq (process-status imap-process) '(open run))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2045 (or (assq tag imap-failed-tags)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2046 (if imap-continuation
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2047 'INCOMPLETE
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2048 'OK))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2049
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2050 (defun imap-sentinel (process string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2051 (delete-process process))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2052
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2053 (defun imap-find-next-line ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2054 "Return point at end of current line, taking into account literals.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2055 Return nil if no complete line has arrived."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2056 (when (re-search-forward (concat imap-server-eol "\\|{\\([0-9]+\\)}"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2057 imap-server-eol)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2058 nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2059 (if (match-string 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2060 (if (< (point-max) (+ (point) (string-to-number (match-string 1))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2061 nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2062 (goto-char (+ (point) (string-to-number (match-string 1))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2063 (imap-find-next-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2064 (point))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2065
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2066 (defun imap-arrival-filter (proc string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2067 "IMAP process filter."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2068 ;; Sometimes, we are called even though the process has died.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2069 ;; Better abstain from doing stuff in that case.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2070 (when (buffer-name (process-buffer proc))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2071 (with-current-buffer (process-buffer proc)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2072 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2073 (insert string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2074 (and imap-log
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2075 (with-current-buffer (get-buffer-create imap-log-buffer)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2076 (imap-disable-multibyte)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2077 (buffer-disable-undo)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2078 (goto-char (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2079 (insert string)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2080 (let (end)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2081 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2082 (while (setq end (imap-find-next-line))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2083 (save-restriction
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2084 (narrow-to-region (point-min) end)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2085 (delete-backward-char (length imap-server-eol))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2086 (goto-char (point-min))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2087 (unwind-protect
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2088 (cond ((eq imap-state 'initial)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2089 (imap-parse-greeting))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2090 ((or (eq imap-state 'auth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2091 (eq imap-state 'nonauth)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2092 (eq imap-state 'selected)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2093 (eq imap-state 'examine))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2094 (imap-parse-response))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2095 (t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2096 (message "Unknown state %s in arrival filter"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2097 imap-state)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2098 (delete-region (point-min) (point-max)))))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2099
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2100
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2101 ;; Imap parser.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2102
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2103 (defsubst imap-forward ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2104 (or (eobp) (forward-char)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2105
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2106 ;; number = 1*DIGIT
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2107 ;; ; Unsigned 32-bit integer
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2108 ;; ; (0 <= n < 4,294,967,296)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2109
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2110 (defsubst imap-parse-number ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2111 (when (looking-at "[0-9]+")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2112 (prog1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2113 (string-to-number (match-string 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2114 (goto-char (match-end 0)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2115
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2116 ;; literal = "{" number "}" CRLF *CHAR8
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2117 ;; ; Number represents the number of CHAR8s
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2118
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2119 (defsubst imap-parse-literal ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2120 (when (looking-at "{\\([0-9]+\\)}\r\n")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2121 (let ((pos (match-end 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2122 (len (string-to-number (match-string 1))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2123 (if (< (point-max) (+ pos len))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2124 nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2125 (goto-char (+ pos len))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2126 (buffer-substring pos (+ pos len))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2127
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2128 ;; string = quoted / literal
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2129 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2130 ;; quoted = DQUOTE *QUOTED-CHAR DQUOTE
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2131 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2132 ;; QUOTED-CHAR = <any TEXT-CHAR except quoted-specials> /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2133 ;; "\" quoted-specials
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2134 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2135 ;; quoted-specials = DQUOTE / "\"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2136 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2137 ;; TEXT-CHAR = <any CHAR except CR and LF>
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2138
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2139 (defsubst imap-parse-string ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2140 (cond ((eq (char-after) ?\")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2141 (forward-char 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2142 (let ((p (point)) (name ""))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2143 (skip-chars-forward "^\"\\\\")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2144 (setq name (buffer-substring p (point)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2145 (while (eq (char-after) ?\\)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2146 (setq p (1+ (point)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2147 (forward-char 2)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2148 (skip-chars-forward "^\"\\\\")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2149 (setq name (concat name (buffer-substring p (point)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2150 (forward-char 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2151 name))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2152 ((eq (char-after) ?{)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2153 (imap-parse-literal))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2154
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2155 ;; nil = "NIL"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2156
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2157 (defsubst imap-parse-nil ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2158 (if (looking-at "NIL")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2159 (goto-char (match-end 0))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2160
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2161 ;; nstring = string / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2162
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2163 (defsubst imap-parse-nstring ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2164 (or (imap-parse-string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2165 (and (imap-parse-nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2166 nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2167
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2168 ;; astring = atom / string
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2169 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2170 ;; atom = 1*ATOM-CHAR
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2171 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2172 ;; ATOM-CHAR = <any CHAR except atom-specials>
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2173 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2174 ;; atom-specials = "(" / ")" / "{" / SP / CTL / list-wildcards /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2175 ;; quoted-specials
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2176 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2177 ;; list-wildcards = "%" / "*"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2178 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2179 ;; quoted-specials = DQUOTE / "\"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2180
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2181 (defsubst imap-parse-astring ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2182 (or (imap-parse-string)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2183 (buffer-substring (point)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2184 (if (re-search-forward "[(){ \r\n%*\"\\]" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2185 (goto-char (1- (match-end 0)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2186 (end-of-line)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2187 (point)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2188
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2189 ;; address = "(" addr-name SP addr-adl SP addr-mailbox SP
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2190 ;; addr-host ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2191 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2192 ;; addr-adl = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2193 ;; ; Holds route from [RFC-822] route-addr if
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2194 ;; ; non-nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2195 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2196 ;; addr-host = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2197 ;; ; nil indicates [RFC-822] group syntax.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2198 ;; ; Otherwise, holds [RFC-822] domain name
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2199 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2200 ;; addr-mailbox = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2201 ;; ; nil indicates end of [RFC-822] group; if
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2202 ;; ; non-nil and addr-host is nil, holds
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2203 ;; ; [RFC-822] group name.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2204 ;; ; Otherwise, holds [RFC-822] local-part
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2205 ;; ; after removing [RFC-822] quoting
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2206 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2207 ;; addr-name = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2208 ;; ; If non-nil, holds phrase from [RFC-822]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2209 ;; ; mailbox after removing [RFC-822] quoting
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2210 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2211
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2212 (defsubst imap-parse-address ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2213 (let (address)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2214 (when (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2215 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2216 (setq address (vector (prog1 (imap-parse-nstring)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2217 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2218 (prog1 (imap-parse-nstring)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2219 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2220 (prog1 (imap-parse-nstring)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2221 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2222 (imap-parse-nstring)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2223 (when (eq (char-after) ?\))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2224 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2225 address))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2226
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2227 ;; address-list = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2228 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2229 ;; nil = "NIL"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2230
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2231 (defsubst imap-parse-address-list ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2232 (if (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2233 (let (address addresses)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2234 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2235 (while (and (not (eq (char-after) ?\)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2236 ;; next line for MS Exchange bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2237 (progn (and (eq (char-after) ? ) (imap-forward)) t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2238 (setq address (imap-parse-address)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2239 (setq addresses (cons address addresses)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2240 (when (eq (char-after) ?\))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2241 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2242 (nreverse addresses)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2243 ;; With assert, the code might not be eval'd.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2244 ;; (assert (imap-parse-nil) t "In imap-parse-address-list")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2245 (imap-parse-nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2246
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2247 ;; mailbox = "INBOX" / astring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2248 ;; ; INBOX is case-insensitive. All case variants of
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2249 ;; ; INBOX (e.g. "iNbOx") MUST be interpreted as INBOX
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2250 ;; ; not as an astring. An astring which consists of
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2251 ;; ; the case-insensitive sequence "I" "N" "B" "O" "X"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2252 ;; ; is considered to be INBOX and not an astring.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2253 ;; ; Refer to section 5.1 for further
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2254 ;; ; semantic details of mailbox names.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2255
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2256 (defsubst imap-parse-mailbox ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2257 (let ((mailbox (imap-parse-astring)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2258 (if (string-equal "INBOX" (upcase mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2259 "INBOX"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2260 mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2261
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2262 ;; greeting = "*" SP (resp-cond-auth / resp-cond-bye) CRLF
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2263 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2264 ;; resp-cond-auth = ("OK" / "PREAUTH") SP resp-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2265 ;; ; Authentication condition
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2266 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2267 ;; resp-cond-bye = "BYE" SP resp-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2268
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2269 (defun imap-parse-greeting ()
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2270 "Parse an IMAP greeting."
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2271 (cond ((looking-at "\\* OK ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2272 (setq imap-state 'nonauth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2273 ((looking-at "\\* PREAUTH ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2274 (setq imap-state 'auth))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2275 ((looking-at "\\* BYE ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2276 (setq imap-state 'closed))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2277
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2278 ;; response = *(continue-req / response-data) response-done
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2279 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2280 ;; continue-req = "+" SP (resp-text / base64) CRLF
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2281 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2282 ;; response-data = "*" SP (resp-cond-state / resp-cond-bye /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2283 ;; mailbox-data / message-data / capability-data) CRLF
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2284 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2285 ;; response-done = response-tagged / response-fatal
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2286 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2287 ;; response-fatal = "*" SP resp-cond-bye CRLF
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2288 ;; ; Server closes connection immediately
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2289 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2290 ;; response-tagged = tag SP resp-cond-state CRLF
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2291 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2292 ;; resp-cond-state = ("OK" / "NO" / "BAD") SP resp-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2293 ;; ; Status condition
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2294 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2295 ;; resp-cond-bye = "BYE" SP resp-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2296 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2297 ;; mailbox-data = "FLAGS" SP flag-list /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2298 ;; "LIST" SP mailbox-list /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2299 ;; "LSUB" SP mailbox-list /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2300 ;; "SEARCH" *(SP nz-number) /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2301 ;; "STATUS" SP mailbox SP "("
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2302 ;; [status-att SP number *(SP status-att SP number)] ")" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2303 ;; number SP "EXISTS" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2304 ;; number SP "RECENT"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2305 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2306 ;; message-data = nz-number SP ("EXPUNGE" / ("FETCH" SP msg-att))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2307 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2308 ;; capability-data = "CAPABILITY" *(SP capability) SP "IMAP4rev1"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2309 ;; *(SP capability)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2310 ;; ; IMAP4rev1 servers which offer RFC 1730
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2311 ;; ; compatibility MUST list "IMAP4" as the first
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2312 ;; ; capability.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2313
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2314 (defun imap-parse-response ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2315 "Parse a IMAP command response."
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2316 (let (token)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2317 (case (setq token (read (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2318 (+ (setq imap-continuation
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2319 (or (buffer-substring (min (point-max) (1+ (point)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2320 (point-max))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2321 t)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2322 (* (case (prog1 (setq token (read (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2323 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2324 (OK (imap-parse-resp-text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2325 (NO (imap-parse-resp-text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2326 (BAD (imap-parse-resp-text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2327 (BYE (imap-parse-resp-text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2328 (FLAGS (imap-mailbox-put 'flags (imap-parse-flag-list)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2329 (LIST (imap-parse-data-list 'list))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2330 (LSUB (imap-parse-data-list 'lsub))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2331 (SEARCH (imap-mailbox-put
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2332 'search
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2333 (read (concat "(" (buffer-substring (point) (point-max)) ")"))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2334 (STATUS (imap-parse-status))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2335 (CAPABILITY (setq imap-capability
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2336 (read (concat "(" (upcase (buffer-substring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2337 (point) (point-max)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2338 ")"))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2339 (ID (setq imap-id (read (buffer-substring (point)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2340 (point-max)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2341 (ACL (imap-parse-acl))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2342 (t (case (prog1 (read (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2343 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2344 (EXISTS (imap-mailbox-put 'exists token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2345 (RECENT (imap-mailbox-put 'recent token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2346 (EXPUNGE t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2347 (FETCH (imap-parse-fetch token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2348 (t (message "Garbage: %s" (buffer-string)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2349 (t (let (status)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2350 (if (not (integerp token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2351 (message "Garbage: %s" (buffer-string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2352 (case (prog1 (setq status (read (current-buffer)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2353 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2354 (OK (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2355 (setq imap-reached-tag (max imap-reached-tag token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2356 (imap-parse-resp-text)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2357 (NO (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2358 (setq imap-reached-tag (max imap-reached-tag token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2359 (save-excursion
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2360 (imap-parse-resp-text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2361 (let (code text)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2362 (when (eq (char-after) ?\[)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2363 (setq code (buffer-substring (point)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2364 (search-forward "]")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2365 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2366 (setq text (buffer-substring (point) (point-max)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2367 (push (list token status code text)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2368 imap-failed-tags))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2369 (BAD (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2370 (setq imap-reached-tag (max imap-reached-tag token))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2371 (save-excursion
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2372 (imap-parse-resp-text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2373 (let (code text)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2374 (when (eq (char-after) ?\[)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2375 (setq code (buffer-substring (point)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2376 (search-forward "]")))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2377 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2378 (setq text (buffer-substring (point) (point-max)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2379 (push (list token status code text) imap-failed-tags)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2380 (error "Internal error, tag %s status %s code %s text %s"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2381 token status code text))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2382 (t (message "Garbage: %s" (buffer-string))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2383 (when (assq token imap-callbacks)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2384 (funcall (cdr (assq token imap-callbacks)) token status)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2385 (setq imap-callbacks
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2386 (imap-remassoc token imap-callbacks)))))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2387
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2388 ;; resp-text = ["[" resp-text-code "]" SP] text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2389 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2390 ;; text = 1*TEXT-CHAR
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2391 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2392 ;; TEXT-CHAR = <any CHAR except CR and LF>
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2393
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2394 (defun imap-parse-resp-text ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2395 (imap-parse-resp-text-code))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2396
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2397 ;; resp-text-code = "ALERT" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2398 ;; "BADCHARSET [SP "(" astring *(SP astring) ")" ] /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2399 ;; "NEWNAME" SP string SP string /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2400 ;; "PARSE" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2401 ;; "PERMANENTFLAGS" SP "("
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2402 ;; [flag-perm *(SP flag-perm)] ")" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2403 ;; "READ-ONLY" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2404 ;; "READ-WRITE" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2405 ;; "TRYCREATE" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2406 ;; "UIDNEXT" SP nz-number /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2407 ;; "UIDVALIDITY" SP nz-number /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2408 ;; "UNSEEN" SP nz-number /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2409 ;; resp-text-atom [SP 1*<any TEXT-CHAR except "]">]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2410 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2411 ;; resp_code_apnd = "APPENDUID" SPACE nz_number SPACE uniqueid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2412 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2413 ;; resp_code_copy = "COPYUID" SPACE nz_number SPACE set SPACE set
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2414 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2415 ;; set = sequence-num / (sequence-num ":" sequence-num) /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2416 ;; (set "," set)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2417 ;; ; Identifies a set of messages. For message
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2418 ;; ; sequence numbers, these are consecutive
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2419 ;; ; numbers from 1 to the number of messages in
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2420 ;; ; the mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2421 ;; ; Comma delimits individual numbers, colon
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2422 ;; ; delimits between two numbers inclusive.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2423 ;; ; Example: 2,4:7,9,12:* is 2,4,5,6,7,9,12,13,
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2424 ;; ; 14,15 for a mailbox with 15 messages.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2425 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2426 ;; sequence-num = nz-number / "*"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2427 ;; ; * is the largest number in use. For message
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2428 ;; ; sequence numbers, it is the number of messages
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2429 ;; ; in the mailbox. For unique identifiers, it is
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2430 ;; ; the unique identifier of the last message in
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2431 ;; ; the mailbox.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2432 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2433 ;; flag-perm = flag / "\*"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2434 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2435 ;; flag = "\Answered" / "\Flagged" / "\Deleted" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2436 ;; "\Seen" / "\Draft" / flag-keyword / flag-extension
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2437 ;; ; Does not include "\Recent"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2438 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2439 ;; flag-extension = "\" atom
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2440 ;; ; Future expansion. Client implementations
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2441 ;; ; MUST accept flag-extension flags. Server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2442 ;; ; implementations MUST NOT generate
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2443 ;; ; flag-extension flags except as defined by
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2444 ;; ; future standard or standards-track
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2445 ;; ; revisions of this specification.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2446 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2447 ;; flag-keyword = atom
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2448 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2449 ;; resp-text-atom = 1*<any ATOM-CHAR except "]">
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2450
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2451 (defun imap-parse-resp-text-code ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2452 ;; xxx next line for stalker communigate pro 3.3.1 bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2453 (when (looking-at " \\[")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2454 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2455 (when (eq (char-after) ?\[)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2456 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2457 (cond ((search-forward "PERMANENTFLAGS " nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2458 (imap-mailbox-put 'permanentflags (imap-parse-flag-list)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2459 ((search-forward "UIDNEXT \\([0-9]+\\)" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2460 (imap-mailbox-put 'uidnext (match-string 1)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2461 ((search-forward "UNSEEN " nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2462 (imap-mailbox-put 'first-unseen (read (current-buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2463 ((looking-at "UIDVALIDITY \\([0-9]+\\)")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2464 (imap-mailbox-put 'uidvalidity (match-string 1)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2465 ((search-forward "READ-ONLY" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2466 (imap-mailbox-put 'read-only t))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2467 ((search-forward "NEWNAME " nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2468 (let (oldname newname)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2469 (setq oldname (imap-parse-string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2470 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2471 (setq newname (imap-parse-string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2472 (imap-mailbox-put 'newname newname oldname)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2473 ((search-forward "TRYCREATE" nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2474 (imap-mailbox-put 'trycreate t imap-current-target-mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2475 ((looking-at "APPENDUID \\([0-9]+\\) \\([0-9]+\\)")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2476 (imap-mailbox-put 'appenduid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2477 (list (match-string 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2478 (string-to-number (match-string 2)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2479 imap-current-target-mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2480 ((looking-at "COPYUID \\([0-9]+\\) \\([0-9,:]+\\) \\([0-9,:]+\\)")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2481 (imap-mailbox-put 'copyuid (list (match-string 1)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2482 (match-string 2)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2483 (match-string 3))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2484 imap-current-target-mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2485 ((search-forward "ALERT] " nil t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2486 (message "Imap server %s information: %s" imap-server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2487 (buffer-substring (point) (point-max)))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2488
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2489 ;; mailbox-list = "(" [mbx-list-flags] ")" SP
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2490 ;; (DQUOTE QUOTED-CHAR DQUOTE / nil) SP mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2491 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2492 ;; mbx-list-flags = *(mbx-list-oflag SP) mbx-list-sflag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2493 ;; *(SP mbx-list-oflag) /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2494 ;; mbx-list-oflag *(SP mbx-list-oflag)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2495 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2496 ;; mbx-list-oflag = "\Noinferiors" / flag-extension
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2497 ;; ; Other flags; multiple possible per LIST response
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2498 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2499 ;; mbx-list-sflag = "\Noselect" / "\Marked" / "\Unmarked"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2500 ;; ; Selectability flags; only one per LIST response
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2501 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2502 ;; QUOTED-CHAR = <any TEXT-CHAR except quoted-specials> /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2503 ;; "\" quoted-specials
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2504 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2505 ;; quoted-specials = DQUOTE / "\"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2506
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2507 (defun imap-parse-data-list (type)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2508 (let (flags delimiter mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2509 (setq flags (imap-parse-flag-list))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2510 (when (looking-at " NIL\\| \"\\\\?\\(.\\)\"")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2511 (setq delimiter (match-string 1))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2512 (goto-char (1+ (match-end 0)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2513 (when (setq mailbox (imap-parse-mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2514 (imap-mailbox-put type t mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2515 (imap-mailbox-put 'list-flags flags mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2516 (imap-mailbox-put 'delimiter delimiter mailbox)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2517
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2518 ;; msg_att ::= "(" 1#("ENVELOPE" SPACE envelope /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2519 ;; "FLAGS" SPACE "(" #(flag / "\Recent") ")" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2520 ;; "INTERNALDATE" SPACE date_time /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2521 ;; "RFC822" [".HEADER" / ".TEXT"] SPACE nstring /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2522 ;; "RFC822.SIZE" SPACE number /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2523 ;; "BODY" ["STRUCTURE"] SPACE body /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2524 ;; "BODY" section ["<" number ">"] SPACE nstring /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2525 ;; "UID" SPACE uniqueid) ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2526 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2527 ;; date_time ::= <"> date_day_fixed "-" date_month "-" date_year
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2528 ;; SPACE time SPACE zone <">
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2529 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2530 ;; section ::= "[" [section_text / (nz_number *["." nz_number]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2531 ;; ["." (section_text / "MIME")])] "]"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2532 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2533 ;; section_text ::= "HEADER" / "HEADER.FIELDS" [".NOT"]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2534 ;; SPACE header_list / "TEXT"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2535 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2536 ;; header_fld_name ::= astring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2537 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2538 ;; header_list ::= "(" 1#header_fld_name ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2539
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2540 (defsubst imap-parse-header-list ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2541 (when (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2542 (let (strlist)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2543 (while (not (eq (char-after) ?\)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2544 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2545 (push (imap-parse-astring) strlist))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2546 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2547 (nreverse strlist))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2548
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2549 (defsubst imap-parse-fetch-body-section ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2550 (let ((section
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2551 (buffer-substring (point) (1- (re-search-forward "[] ]" nil t)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2552 (if (eq (char-before) ? )
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2553 (prog1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2554 (mapconcat 'identity (cons section (imap-parse-header-list)) " ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2555 (search-forward "]" nil t))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2556 section)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2557
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2558 (defun imap-parse-fetch (response)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2559 (when (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2560 (let (uid flags envelope internaldate rfc822 rfc822header rfc822text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2561 rfc822size body bodydetail bodystructure flags-empty)
100874
8698a8bb7d0e Gnus: Add explanations for recent changes to the code itself.
Michael Olson <mwolson@gnu.org>
parents: 100871
diff changeset
2562 ;; Courier can insert spurious blank characters which will
8698a8bb7d0e Gnus: Add explanations for recent changes to the code itself.
Michael Olson <mwolson@gnu.org>
parents: 100871
diff changeset
2563 ;; confuse `read', so skip past them.
100871
1d5b4a08955f Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents: 94677
diff changeset
2564 (while (let ((moved (skip-chars-forward " \t")))
1d5b4a08955f Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents: 94677
diff changeset
2565 (prog1 (not (eq (char-after) ?\)))
1d5b4a08955f Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents: 94677
diff changeset
2566 (unless (= moved 0) (backward-char))))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2567 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2568 (let ((token (read (current-buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2569 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2570 (cond ((eq token 'UID)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2571 (setq uid (condition-case ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2572 (read (current-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2573 (error))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2574 ((eq token 'FLAGS)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2575 (setq flags (imap-parse-flag-list))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2576 (if (not flags)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2577 (setq flags-empty 't)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2578 ((eq token 'ENVELOPE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2579 (setq envelope (imap-parse-envelope)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2580 ((eq token 'INTERNALDATE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2581 (setq internaldate (imap-parse-string)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2582 ((eq token 'RFC822)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2583 (setq rfc822 (imap-parse-nstring)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2584 ((eq token 'RFC822.HEADER)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2585 (setq rfc822header (imap-parse-nstring)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2586 ((eq token 'RFC822.TEXT)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2587 (setq rfc822text (imap-parse-nstring)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2588 ((eq token 'RFC822.SIZE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2589 (setq rfc822size (read (current-buffer))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2590 ((eq token 'BODY)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2591 (if (eq (char-before) ?\[)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2592 (push (list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2593 (upcase (imap-parse-fetch-body-section))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2594 (and (eq (char-after) ?<)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2595 (buffer-substring (1+ (point))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2596 (search-forward ">" nil t)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2597 (progn (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2598 (imap-parse-nstring)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2599 bodydetail)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2600 (setq body (imap-parse-body))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2601 ((eq token 'BODYSTRUCTURE)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2602 (setq bodystructure (imap-parse-body))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2603 (when uid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2604 (setq imap-current-message uid)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2605 (imap-message-put uid 'UID uid)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2606 (and (or flags flags-empty) (imap-message-put uid 'FLAGS flags))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2607 (and envelope (imap-message-put uid 'ENVELOPE envelope))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2608 (and internaldate (imap-message-put uid 'INTERNALDATE internaldate))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2609 (and rfc822 (imap-message-put uid 'RFC822 rfc822))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2610 (and rfc822header (imap-message-put uid 'RFC822.HEADER rfc822header))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2611 (and rfc822text (imap-message-put uid 'RFC822.TEXT rfc822text))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2612 (and rfc822size (imap-message-put uid 'RFC822.SIZE rfc822size))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2613 (and body (imap-message-put uid 'BODY body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2614 (and bodydetail (imap-message-put uid 'BODYDETAIL bodydetail))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2615 (and bodystructure (imap-message-put uid 'BODYSTRUCTURE bodystructure))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2616 (run-hooks 'imap-fetch-data-hook)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2617
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2618 ;; mailbox-data = ...
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2619 ;; "STATUS" SP mailbox SP "("
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2620 ;; [status-att SP number
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2621 ;; *(SP status-att SP number)] ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2622 ;; ...
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2623 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2624 ;; status-att = "MESSAGES" / "RECENT" / "UIDNEXT" / "UIDVALIDITY" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2625 ;; "UNSEEN"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2626
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2627 (defun imap-parse-status ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2628 (let ((mailbox (imap-parse-mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2629 (if (eq (char-after) ? )
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2630 (forward-char))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2631 (when (and mailbox (eq (char-after) ?\())
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2632 (while (and (not (eq (char-after) ?\)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2633 (or (forward-char) t)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2634 (looking-at "\\([A-Za-z]+\\) "))
87097
781256628613 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 86817
diff changeset
2635 (let ((token (upcase (match-string 1))))
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2636 (goto-char (match-end 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2637 (cond ((string= token "MESSAGES")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2638 (imap-mailbox-put 'messages (read (current-buffer)) mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2639 ((string= token "RECENT")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2640 (imap-mailbox-put 'recent (read (current-buffer)) mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2641 ((string= token "UIDNEXT")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2642 (and (looking-at "[0-9]+")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2643 (imap-mailbox-put 'uidnext (match-string 0) mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2644 (goto-char (match-end 0))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2645 ((string= token "UIDVALIDITY")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2646 (and (looking-at "[0-9]+")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2647 (imap-mailbox-put 'uidvalidity (match-string 0) mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2648 (goto-char (match-end 0))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2649 ((string= token "UNSEEN")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2650 (imap-mailbox-put 'unseen (read (current-buffer)) mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2651 (t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2652 (message "Unknown status data %s in mailbox %s ignored"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2653 token mailbox)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2654 (read (current-buffer)))))))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2655
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2656 ;; acl_data ::= "ACL" SPACE mailbox *(SPACE identifier SPACE
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2657 ;; rights)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2658 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2659 ;; identifier ::= astring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2660 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2661 ;; rights ::= astring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2662
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2663 (defun imap-parse-acl ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2664 (let ((mailbox (imap-parse-mailbox))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2665 identifier rights acl)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2666 (while (eq (char-after) ?\ )
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2667 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2668 (setq identifier (imap-parse-astring))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2669 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2670 (setq rights (imap-parse-astring))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2671 (setq acl (append acl (list (cons identifier rights)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2672 (imap-mailbox-put 'acl acl mailbox)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2673
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2674 ;; flag-list = "(" [flag *(SP flag)] ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2675 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2676 ;; flag = "\Answered" / "\Flagged" / "\Deleted" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2677 ;; "\Seen" / "\Draft" / flag-keyword / flag-extension
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2678 ;; ; Does not include "\Recent"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2679 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2680 ;; flag-keyword = atom
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2681 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2682 ;; flag-extension = "\" atom
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2683 ;; ; Future expansion. Client implementations
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2684 ;; ; MUST accept flag-extension flags. Server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2685 ;; ; implementations MUST NOT generate
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2686 ;; ; flag-extension flags except as defined by
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2687 ;; ; future standard or standards-track
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2688 ;; ; revisions of this specification.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2689
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2690 (defun imap-parse-flag-list ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2691 (let (flag-list start)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2692 (assert (eq (char-after) ?\() nil "In imap-parse-flag-list 1")
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2693 (while (and (not (eq (char-after) ?\)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2694 (setq start (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2695 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2696 ;; next line for Courier IMAP bug.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2697 (skip-chars-forward " ")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2698 (point)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2699 (> (skip-chars-forward "^ )" (point-at-eol)) 0))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2700 (push (buffer-substring start (point)) flag-list))
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2701 (assert (eq (char-after) ?\)) nil "In imap-parse-flag-list 2")
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2702 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2703 (nreverse flag-list)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2704
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2705 ;; envelope = "(" env-date SP env-subject SP env-from SP env-sender SP
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2706 ;; env-reply-to SP env-to SP env-cc SP env-bcc SP
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2707 ;; env-in-reply-to SP env-message-id ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2708 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2709 ;; env-bcc = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2710 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2711 ;; env-cc = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2712 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2713 ;; env-date = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2714 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2715 ;; env-from = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2716 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2717 ;; env-in-reply-to = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2718 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2719 ;; env-message-id = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2720 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2721 ;; env-reply-to = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2722 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2723 ;; env-sender = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2724 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2725 ;; env-subject = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2726 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2727 ;; env-to = "(" 1*address ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2728
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2729 (defun imap-parse-envelope ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2730 (when (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2731 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2732 (vector (prog1 (imap-parse-nstring) ;; date
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2733 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2734 (prog1 (imap-parse-nstring) ;; subject
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2735 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2736 (prog1 (imap-parse-address-list) ;; from
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2737 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2738 (prog1 (imap-parse-address-list) ;; sender
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2739 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2740 (prog1 (imap-parse-address-list) ;; reply-to
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2741 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2742 (prog1 (imap-parse-address-list) ;; to
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2743 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2744 (prog1 (imap-parse-address-list) ;; cc
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2745 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2746 (prog1 (imap-parse-address-list) ;; bcc
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2747 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2748 (prog1 (imap-parse-nstring) ;; in-reply-to
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2749 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2750 (prog1 (imap-parse-nstring) ;; message-id
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2751 (imap-forward)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2752
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2753 ;; body-fld-param = "(" string SP string *(SP string SP string) ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2754
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2755 (defsubst imap-parse-string-list ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2756 (cond ((eq (char-after) ?\() ;; body-fld-param
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2757 (let (strlist str)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2758 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2759 (while (setq str (imap-parse-string))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2760 (push str strlist)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2761 ;; buggy stalker communigate pro 3.0 doesn't print SPC
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2762 ;; between body-fld-param's sometimes
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2763 (or (eq (char-after) ?\")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2764 (imap-forward)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2765 (nreverse strlist)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2766 ((imap-parse-nil)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2767 nil)))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2768
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2769 ;; body-extension = nstring / number /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2770 ;; "(" body-extension *(SP body-extension) ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2771 ;; ; Future expansion. Client implementations
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2772 ;; ; MUST accept body-extension fields. Server
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2773 ;; ; implementations MUST NOT generate
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2774 ;; ; body-extension fields except as defined by
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2775 ;; ; future standard or standards-track
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2776 ;; ; revisions of this specification.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2777
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2778 (defun imap-parse-body-extension ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2779 (if (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2780 (let (b-e)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2781 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2782 (push (imap-parse-body-extension) b-e)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2783 (while (eq (char-after) ?\ )
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2784 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2785 (push (imap-parse-body-extension) b-e))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2786 (assert (eq (char-after) ?\)) nil "In imap-parse-body-extension")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2787 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2788 (nreverse b-e))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2789 (or (imap-parse-number)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2790 (imap-parse-nstring))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2791
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2792 ;; body-ext-1part = body-fld-md5 [SP body-fld-dsp [SP body-fld-lang
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2793 ;; *(SP body-extension)]]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2794 ;; ; MUST NOT be returned on non-extensible
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2795 ;; ; "BODY" fetch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2796 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2797 ;; body-ext-mpart = body-fld-param [SP body-fld-dsp [SP body-fld-lang
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2798 ;; *(SP body-extension)]]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2799 ;; ; MUST NOT be returned on non-extensible
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2800 ;; ; "BODY" fetch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2801
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2802 (defsubst imap-parse-body-ext ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2803 (let (ext)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2804 (when (eq (char-after) ?\ ) ;; body-fld-dsp
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2805 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2806 (let (dsp)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2807 (if (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2808 (progn
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2809 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2810 (push (imap-parse-string) dsp)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2811 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2812 (push (imap-parse-string-list) dsp)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2813 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2814 ;; With assert, the code might not be eval'd.
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2815 ;; (assert (imap-parse-nil) t "In imap-parse-body-ext")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2816 (imap-parse-nil))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2817 (push (nreverse dsp) ext))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2818 (when (eq (char-after) ?\ ) ;; body-fld-lang
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2819 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2820 (if (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2821 (push (imap-parse-string-list) ext)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2822 (push (imap-parse-nstring) ext))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2823 (while (eq (char-after) ?\ ) ;; body-extension
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2824 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2825 (setq ext (append (imap-parse-body-extension) ext)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2826 ext))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2827
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2828 ;; body = "(" body-type-1part / body-type-mpart ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2829 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2830 ;; body-ext-1part = body-fld-md5 [SP body-fld-dsp [SP body-fld-lang
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2831 ;; *(SP body-extension)]]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2832 ;; ; MUST NOT be returned on non-extensible
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2833 ;; ; "BODY" fetch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2834 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2835 ;; body-ext-mpart = body-fld-param [SP body-fld-dsp [SP body-fld-lang
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2836 ;; *(SP body-extension)]]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2837 ;; ; MUST NOT be returned on non-extensible
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2838 ;; ; "BODY" fetch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2839 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2840 ;; body-fields = body-fld-param SP body-fld-id SP body-fld-desc SP
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2841 ;; body-fld-enc SP body-fld-octets
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2842 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2843 ;; body-fld-desc = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2844 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2845 ;; body-fld-dsp = "(" string SP body-fld-param ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2846 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2847 ;; body-fld-enc = (DQUOTE ("7BIT" / "8BIT" / "BINARY" / "BASE64"/
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2848 ;; "QUOTED-PRINTABLE") DQUOTE) / string
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2849 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2850 ;; body-fld-id = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2851 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2852 ;; body-fld-lang = nstring / "(" string *(SP string) ")"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2853 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2854 ;; body-fld-lines = number
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2855 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2856 ;; body-fld-md5 = nstring
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2857 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2858 ;; body-fld-octets = number
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2859 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2860 ;; body-fld-param = "(" string SP string *(SP string SP string) ")" / nil
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2861 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2862 ;; body-type-1part = (body-type-basic / body-type-msg / body-type-text)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2863 ;; [SP body-ext-1part]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2864 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2865 ;; body-type-basic = media-basic SP body-fields
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2866 ;; ; MESSAGE subtype MUST NOT be "RFC822"
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2867 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2868 ;; body-type-msg = media-message SP body-fields SP envelope
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2869 ;; SP body SP body-fld-lines
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2870 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2871 ;; body-type-text = media-text SP body-fields SP body-fld-lines
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2872 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2873 ;; body-type-mpart = 1*body SP media-subtype
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2874 ;; [SP body-ext-mpart]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2875 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2876 ;; media-basic = ((DQUOTE ("APPLICATION" / "AUDIO" / "IMAGE" /
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2877 ;; "MESSAGE" / "VIDEO") DQUOTE) / string) SP media-subtype
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2878 ;; ; Defined in [MIME-IMT]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2879 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2880 ;; media-message = DQUOTE "MESSAGE" DQUOTE SP DQUOTE "RFC822" DQUOTE
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2881 ;; ; Defined in [MIME-IMT]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2882 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2883 ;; media-subtype = string
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2884 ;; ; Defined in [MIME-IMT]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2885 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2886 ;; media-text = DQUOTE "TEXT" DQUOTE SP media-subtype
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2887 ;; ; Defined in [MIME-IMT]
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2888
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2889 (defun imap-parse-body ()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2890 (let (body)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2891 (when (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2892 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2893 (if (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2894 (let (subbody)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2895 (while (and (eq (char-after) ?\()
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2896 (setq subbody (imap-parse-body)))
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2897 ;; buggy stalker communigate pro 3.0 inserts a SPC between
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2898 ;; parts in multiparts
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2899 (when (and (eq (char-after) ?\ )
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2900 (eq (char-after (1+ (point))) ?\())
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2901 (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2902 (push subbody body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2903 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2904 (push (imap-parse-string) body) ;; media-subtype
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2905 (when (eq (char-after) ?\ ) ;; body-ext-mpart:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2906 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2907 (if (eq (char-after) ?\() ;; body-fld-param
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2908 (push (imap-parse-string-list) body)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2909 (push (and (imap-parse-nil) nil) body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2910 (setq body
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2911 (append (imap-parse-body-ext) body))) ;; body-ext-...
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2912 (assert (eq (char-after) ?\)) nil "In imap-parse-body")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2913 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2914 (nreverse body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2915
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2916 (push (imap-parse-string) body) ;; media-type
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2917 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2918 (push (imap-parse-string) body) ;; media-subtype
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2919 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2920 ;; next line for Sun SIMS bug
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2921 (and (eq (char-after) ? ) (imap-forward))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2922 (if (eq (char-after) ?\() ;; body-fld-param
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2923 (push (imap-parse-string-list) body)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2924 (push (and (imap-parse-nil) nil) body))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2925 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2926 (push (imap-parse-nstring) body) ;; body-fld-id
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2927 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2928 (push (imap-parse-nstring) body) ;; body-fld-desc
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2929 (imap-forward)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2930 ;; Next `or' for Sun SIMS bug. It regards body-fld-enc as a
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2931 ;; nstring and returns nil instead of defaulting back to 7BIT
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2932 ;; as the standard says.
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2933 ;; Exchange (2007, at least) does this as well.
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2934 (push (or (imap-parse-nstring) "7BIT") body) ;; body-fld-enc
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2935 (imap-forward)
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2936 ;; Exchange 2007 can return -1, contrary to the spec...
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2937 (if (eq (char-after) ?-)
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2938 (progn
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2939 (skip-chars-forward "-0-9")
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2940 (push nil body))
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2941 (push (imap-parse-number) body)) ;; body-fld-octets
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2942
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2943 ;; Ok, we're done parsing the required parts, what comes now is one of
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2944 ;; three things:
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2945 ;;
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2946 ;; envelope (then we're parsing body-type-msg)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2947 ;; body-fld-lines (then we're parsing body-type-text)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2948 ;; body-ext-1part (then we're parsing body-type-basic)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2949 ;;
100993
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2950 ;; The problem is that the two first are in turn optionally followed
a16e9f7c2536 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100908
diff changeset
2951 ;; by the third. So we parse the first two here (if there are any)...
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2952
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2953 (when (eq (char-after) ?\ )
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2954 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2955 (let (lines)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2956 (cond ((eq (char-after) ?\() ;; body-type-msg:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2957 (push (imap-parse-envelope) body) ;; envelope
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2958 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2959 (push (imap-parse-body) body) ;; body
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2960 ;; buggy stalker communigate pro 3.0 doesn't print
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2961 ;; number of lines in message/rfc822 attachment
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2962 (if (eq (char-after) ?\))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2963 (push 0 body)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2964 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2965 (push (imap-parse-number) body))) ;; body-fld-lines
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2966 ((setq lines (imap-parse-number)) ;; body-type-text:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2967 (push lines body)) ;; body-fld-lines
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2968 (t
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2969 (backward-char))))) ;; no match...
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2970
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2971 ;; ...and then parse the third one here...
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2972
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2973 (when (eq (char-after) ?\ ) ;; body-ext-1part:
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2974 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2975 (push (imap-parse-nstring) body) ;; body-fld-md5
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2976 (setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part..
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2977
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2978 (assert (eq (char-after) ?\)) nil "In imap-parse-body 2")
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2979 (imap-forward)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2980 (nreverse body)))))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2981
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2982 (when imap-debug ; (untrace-all)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2983 (require 'trace)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2984 (buffer-disable-undo (get-buffer-create imap-debug-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2985 (mapc (lambda (f) (trace-function-background f imap-debug-buffer))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2986 '(
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2987 imap-utf7-encode
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2988 imap-utf7-decode
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2989 imap-error-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2990 imap-kerberos4s-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2991 imap-kerberos4-open
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2992 imap-ssl-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2993 imap-ssl-open
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2994 imap-network-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2995 imap-network-open
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2996 imap-interactive-login
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2997 imap-kerberos4a-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2998 imap-kerberos4-auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
2999 imap-cram-md5-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3000 imap-cram-md5-auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3001 imap-login-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3002 imap-login-auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3003 imap-anonymous-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3004 imap-anonymous-auth
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3005 imap-open-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3006 imap-open
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3007 imap-opened
92694
d3767aa9ae49 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 92334
diff changeset
3008 imap-ping-server
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3009 imap-authenticate
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3010 imap-close
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3011 imap-capability
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3012 imap-namespace
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3013 imap-send-command-wait
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3014 imap-mailbox-put
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3015 imap-mailbox-get
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3016 imap-mailbox-map-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3017 imap-mailbox-map
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3018 imap-current-mailbox
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3019 imap-current-mailbox-p-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3020 imap-current-mailbox-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3021 imap-mailbox-select-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3022 imap-mailbox-select
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3023 imap-mailbox-examine-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3024 imap-mailbox-examine
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3025 imap-mailbox-unselect
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3026 imap-mailbox-expunge
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3027 imap-mailbox-close
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3028 imap-mailbox-create-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3029 imap-mailbox-create
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3030 imap-mailbox-delete
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3031 imap-mailbox-rename
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3032 imap-mailbox-lsub
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3033 imap-mailbox-list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3034 imap-mailbox-subscribe
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3035 imap-mailbox-unsubscribe
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3036 imap-mailbox-status
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3037 imap-mailbox-acl-get
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3038 imap-mailbox-acl-set
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3039 imap-mailbox-acl-delete
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3040 imap-current-message
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3041 imap-list-to-message-set
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3042 imap-fetch-asynch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3043 imap-fetch
101804
d775b84fdd71 Merge from gnus--devo--0
Miles Bader <miles@gnu.org>
parents: 100993
diff changeset
3044 imap-fetch-safe
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3045 imap-message-put
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3046 imap-message-get
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3047 imap-message-map
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3048 imap-search
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3049 imap-message-flag-permanent-p
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3050 imap-message-flags-set
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3051 imap-message-flags-del
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3052 imap-message-flags-add
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3053 imap-message-copyuid-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3054 imap-message-copyuid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3055 imap-message-copy
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3056 imap-message-appenduid-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3057 imap-message-appenduid
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3058 imap-message-append
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3059 imap-body-lines
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3060 imap-envelope-from
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3061 imap-send-command-1
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3062 imap-send-command
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3063 imap-wait-for-tag
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3064 imap-sentinel
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3065 imap-find-next-line
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3066 imap-arrival-filter
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3067 imap-parse-greeting
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3068 imap-parse-response
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3069 imap-parse-resp-text
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3070 imap-parse-resp-text-code
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3071 imap-parse-data-list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3072 imap-parse-fetch
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3073 imap-parse-status
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3074 imap-parse-acl
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3075 imap-parse-flag-list
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3076 imap-parse-envelope
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3077 imap-parse-body-extension
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3078 imap-parse-body
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3079 )))
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3080
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3081 (provide 'imap)
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3082
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93820
diff changeset
3083 ;; arch-tag: 27369ed6-33e4-482f-96f1-8bb906ba70f7
86442
3082569ef3c5 Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff changeset
3084 ;;; imap.el ends here