Mercurial > emacs
annotate lisp/net/imap.el @ 106176:64f03bed7d67
* net/browse-url.el (browse-url-default-windows-browser): Use
cygstart for cygwin.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 20 Nov 2009 21:49:46 +0000 |
parents | c31b6489ac68 |
children | 1d1d5d9bd884 |
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 | 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 | 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 | 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 | 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 | 79 ;; program starttls), and the GSSAPI / Kerberos V4 sections of RFC1731 |
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 | 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 | 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 | 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 | 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 | 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 | 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 | 219 in any case. The value takes effect when an IMAP server is |
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 | 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 | 236 information (such as e-mail) may be stored in the buffer. |
237 It is not written to disk, however. Do not enable this | |
238 variable unless you are comfortable with that. | |
239 | |
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 | 245 "If non-nil, trace imap- functions into `imap-debug-buffer'. |
246 Uses `trace-function-background', so you can turn it off with, | |
247 say, `untrace-all'. | |
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 | 250 information (such as e-mail) may be stored in the buffer. |
251 It is not written to disk, however. Do not enable this | |
252 variable unless you are comfortable with that. | |
253 | |
254 This variable only takes effect when loading the `imap' library. | |
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 | 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) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
383 (defvar imap-last-authenticator nil) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
384 (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
|
385 (defvar imap-state 'closed |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
386 "IMAP state. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
387 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
|
388 and `examine'.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
389 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
390 (defvar imap-server-eol "\r\n" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
391 "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
|
392 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
393 (defvar imap-client-eol "\r\n" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
394 "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
|
395 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
396 (defvar imap-current-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
397 "Current mailbox name.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
398 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
399 (defvar imap-current-target-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
400 "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
|
401 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
402 (defvar imap-mailbox-data nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
403 "Obarray with mailbox data.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
404 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
405 (defvar imap-mailbox-prime 997 |
100993 | 406 "Length of `imap-mailbox-data'.") |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
407 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
408 (defvar imap-current-message nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
409 "Current message number.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
410 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
411 (defvar imap-message-data nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
412 "Obarray with message data.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
413 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
414 (defvar imap-message-prime 997 |
100993 | 415 "Length of `imap-message-data'.") |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
416 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
417 (defvar imap-capability nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
418 "Capability for server.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
419 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
420 (defvar imap-id nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
421 "Identity of server. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
422 See RFC 2971.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
423 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
424 (defvar imap-namespace nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
425 "Namespace for current server.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
426 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
427 (defvar imap-reached-tag 0 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
428 "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
|
429 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
430 (defvar imap-failed-tags nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
431 "Alist of tags that failed. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
432 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
|
433 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
|
434 human readable response text (a string).") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
435 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
436 (defvar imap-tag 0 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
437 "Command tag number.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
438 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
439 (defvar imap-process nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
440 "Process.") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
441 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
442 (defvar imap-continuation nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
443 "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
|
444 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
|
445 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
446 (defvar imap-callbacks nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
447 "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
|
448 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
|
449 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
|
450 |
93820 | 451 (defvar imap-enable-exchange-bug-workaround nil |
452 "Send FETCH UID commands as *:* instead of *. | |
100993 | 453 |
454 When non-nil, use an alternative UIDS form. Enabling appears to | |
455 be required for some servers (e.g., Microsoft Exchange 2007) | |
456 which otherwise would trigger a response 'BAD The specified | |
457 message set is invalid.'. We don't unconditionally use this | |
458 form, since this is said to be significantly inefficient. | |
459 | |
460 This variable is set to t automatically per server if the | |
461 canonical form fails.") | |
93820 | 462 |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
463 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
464 ;; Utility functions: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
465 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
466 (defun imap-remassoc (key alist) |
100993 | 467 "Delete by side effect any elements of ALIST whose car is `equal' to KEY. |
468 The modified ALIST is returned. If the first member | |
469 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
|
470 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
|
471 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
|
472 (when alist |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
473 (if (equal key (caar alist)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
474 (cdr alist) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
475 (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
|
476 alist))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
477 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
478 (defsubst imap-disable-multibyte () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
479 "Enable multibyte in the current buffer." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
480 (when (fboundp 'set-buffer-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
481 (set-buffer-multibyte nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
482 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
483 (defsubst imap-utf7-encode (string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
484 (if imap-use-utf7 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
485 (and string |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
486 (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
487 (utf7-encode string t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
488 (error (message |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
489 "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
|
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 string)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
493 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
494 (defsubst imap-utf7-decode (string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
495 (if imap-use-utf7 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
496 (and string |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
497 (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
498 (utf7-decode string t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
499 (error (message |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
500 "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
|
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 string)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
504 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
505 (defsubst imap-ok-p (status) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
506 (if (eq status 'OK) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
507 t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
508 (setq imap-error status) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
509 nil)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
510 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
511 (defun imap-error-text (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
512 (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
|
513 (nth 3 (car imap-failed-tags)))) |
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 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
516 ;; Server functions; stream stuff: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
517 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
518 (defun imap-kerberos4-stream-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
519 (imap-capability 'AUTH=KERBEROS_V4 buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
520 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
521 (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
|
522 (let ((cmds imap-kerberos4-program) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
523 cmd done) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
524 (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
|
525 (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
|
526 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
527 (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
|
528 (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
|
529 (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
|
530 (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
|
531 (process (start-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
532 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
|
533 (format-spec |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
534 cmd |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
535 (format-spec-make |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
536 ?s server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
537 ?p (number-to-string port) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
538 ?l imap-default-user)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
539 response) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
540 (when process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
541 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
542 (setq imap-client-eol "\n" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
543 imap-calculate-literal-size-first t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
544 (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
|
545 (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
|
546 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
547 ;; 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
|
548 (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
|
549 (forward-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
550 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
551 (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
|
552 (forward-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
553 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
554 ;; 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
|
555 (or (while (looking-at "^C:") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
556 (forward-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
557 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
558 ;; 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
|
559 (or (not (looking-at "S: ")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
560 (forward-char 3) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
561 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
562 (not (and (imap-parse-greeting) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
563 ;; success in imtest < 1.6: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
564 (or (re-search-forward |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
565 "^__\\(.*\\)__\n" nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
566 ;; success in imtest 1.6: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
567 (re-search-forward |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
568 "^\\(Authenticat.*\\)" nil t)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
569 (setq response (match-string 1))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
570 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
571 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
572 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
573 (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
|
574 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
575 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
576 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
577 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
578 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
579 (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
|
580 (if response (concat "done, " response) "failed")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
581 (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
|
582 (not (string-match "failed" response)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
583 (setq done process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
584 (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
|
585 (imap-logout)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
586 (delete-process process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
587 nil))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
588 done)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
589 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
590 (defun imap-gssapi-stream-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
591 (imap-capability 'AUTH=GSSAPI buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
592 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
593 (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
|
594 (let ((cmds imap-gssapi-program) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
595 cmd done) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
596 (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
|
597 (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
|
598 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
599 (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
|
600 (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
|
601 (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
|
602 (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
|
603 (process (start-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
604 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
|
605 (format-spec |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
606 cmd |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
607 (format-spec-make |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
608 ?s server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
609 ?p (number-to-string port) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
610 ?l imap-default-user)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
611 response) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
612 (when process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
613 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
614 (setq imap-client-eol "\n" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
615 imap-calculate-literal-size-first t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
616 (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
|
617 (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
|
618 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
619 ;; 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
|
620 (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
|
621 (forward-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
622 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
623 (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
|
624 (forward-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
625 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
626 ;; 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
|
627 (or (while (looking-at "^C:") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
628 (forward-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
629 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
630 ;; 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
|
631 (or (not (looking-at "S: ")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
632 (forward-char 3) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
633 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
634 ;; GNU SASL may print 'Trying ...' first. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
635 (or (not (looking-at "Trying ")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
636 (forward-line) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
637 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
638 (not (and (imap-parse-greeting) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
639 ;; success in imtest 1.6: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
640 (re-search-forward |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
641 (concat "^\\(\\(Authenticat.*\\)\\|\\(" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
642 "Client authentication " |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
643 "finished.*\\)\\)") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
644 nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
645 (setq response (match-string 1))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
646 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
647 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
648 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
649 (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
|
650 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
651 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
652 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
653 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
654 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
655 (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
|
656 (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
|
657 (not (string-match "failed" response)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
658 (setq done process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
659 (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
|
660 (imap-logout)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
661 (delete-process process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
662 nil))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
663 done)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
664 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
665 (defun imap-ssl-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
666 nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
667 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
668 (defun imap-ssl-open (name buffer server port) |
100993 | 669 "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
|
670 (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
|
671 (list imap-ssl-program))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
672 cmd done) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
673 (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
|
674 (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
|
675 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
676 (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
|
677 (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
|
678 (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
|
679 (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
|
680 (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 (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
|
682 'set-process-query-on-exit-flag |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
683 'process-kill-without-query)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
684 process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
685 (when (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
686 (setq process (start-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
687 name buffer shell-file-name |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
688 shell-command-switch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
689 (format-spec cmd |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
690 (format-spec-make |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
691 ?s server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
692 ?p (number-to-string port))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
693 (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
|
694 process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
695 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
696 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
697 (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
|
698 (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
|
699 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
700 (forward-line -1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
701 (not (imap-parse-greeting))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
702 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
703 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
704 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
705 (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
|
706 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
707 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
708 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
709 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
710 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
711 (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
|
712 (setq done process)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
713 (if done |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
714 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
715 (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
|
716 done) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
717 (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
|
718 nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
719 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
720 (defun imap-tls-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
721 nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
722 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
723 (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
|
724 (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
|
725 (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
|
726 (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
|
727 (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
|
728 (when process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
729 (while (and (memq (process-status process) '(open run)) |
100993 | 730 ;; FIXME: Per the "blue moon" comment, the process/buffer |
731 ;; handling here, and elsewhere in functions which open | |
732 ;; streams, looks confused. Obviously we can change buffers | |
733 ;; if a different process handler kicks in from | |
734 ;; `accept-process-output' or `sit-for' below, and TRT seems | |
735 ;; to be to `save-buffer' around those calls. (I wonder why | |
736 ;; `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
|
737 (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
|
738 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
739 (forward-line -1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
740 (not (imap-parse-greeting))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
741 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
742 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
743 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
744 (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
|
745 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
746 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
747 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
748 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
749 (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
|
750 process)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
751 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
752 (defun imap-network-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
753 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
754 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
755 (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
|
756 (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
|
757 (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
|
758 (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
|
759 (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
|
760 (when process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
761 (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
|
762 (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
|
763 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
764 (not (imap-parse-greeting))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
765 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
766 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
767 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
768 (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
|
769 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
770 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
771 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
772 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
773 (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
|
774 process)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
775 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
776 (defun imap-shell-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
777 nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
778 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
779 (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
|
780 (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
|
781 (list imap-shell-program))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
782 cmd done) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
783 (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
|
784 (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
|
785 (setq imap-client-eol "\n") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
786 (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
|
787 (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
|
788 (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
|
789 (process (start-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
790 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
|
791 (format-spec |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
792 cmd |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
793 (format-spec-make |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
794 ?s server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
795 ?g imap-shell-host |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
796 ?p (number-to-string port) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
797 ?l imap-default-user))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
798 (when process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
799 (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
|
800 (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
|
801 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
802 (forward-line -1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
803 (not (imap-parse-greeting))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
804 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
805 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
806 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
807 (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
|
808 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
809 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
810 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
811 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
812 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
813 (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
|
814 (setq done process))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
815 (if done |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
816 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
817 (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
|
818 done) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
819 (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
|
820 nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
821 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
822 (defun imap-starttls-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
823 (imap-capability 'STARTTLS buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
824 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
825 (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
|
826 (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
|
827 (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
|
828 (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
|
829 (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
|
830 done tls-info) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
831 (message "imap: Connecting with STARTTLS...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
832 (when process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
833 (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
|
834 (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
|
835 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
836 (forward-line -1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
837 (not (imap-parse-greeting))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
838 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
839 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
840 (imap-send-command "STARTTLS") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
841 (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
|
842 (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
|
843 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
844 (forward-line -1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
845 (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
|
846 (accept-process-output process 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
847 (sit-for 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
848 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
849 (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
|
850 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
851 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
852 (insert-buffer-substring buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
853 (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
|
854 (memq (process-status process) '(open run))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
855 (setq done process))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
856 (if (stringp tls-info) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
857 (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
|
858 (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
|
859 done)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
860 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
861 ;; Server functions; authenticator stuff: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
862 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
863 (defun imap-interactive-login (buffer loginfunc) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
864 "Login to server in BUFFER. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
865 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
|
866 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
|
867 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
|
868 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
869 (make-local-variable 'imap-username) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
870 (make-local-variable 'imap-password) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
871 (let (user passwd ret) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
872 ;; (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
873 (while (or (not user) (not passwd)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
874 (setq user (or imap-username |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
875 (read-from-minibuffer |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
876 (concat "imap: username for " imap-server |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
877 " (using stream `" (symbol-name imap-stream) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
878 "'): ") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
879 (or user imap-default-user)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
880 (setq passwd (or imap-password |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
881 (read-passwd |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
882 (concat "imap: password for " user "@" |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
883 imap-server " (using authenticator `" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
884 (symbol-name imap-auth) "'): ")))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
885 (when (and user passwd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
886 (if (funcall loginfunc user passwd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
887 (progn |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
888 (message "imap: Login successful...") |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
889 (setq ret t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
890 imap-username user) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
891 (when (and (not imap-password) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
892 (or imap-store-password |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
893 (y-or-n-p "imap: Store password for this IMAP session? "))) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
894 (setq imap-password passwd))) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
895 (message "imap: Login failed...") |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
896 (setq passwd nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
897 (setq imap-password nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
898 (sit-for 1)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
899 ;; (quit (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
900 ;; (setq user nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
901 ;; passwd nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
902 ;; (error (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
903 ;; (setq user nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
904 ;; passwd nil)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
905 ret))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
906 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
907 (defun imap-gssapi-auth-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
908 (eq imap-stream 'gssapi)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
909 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
910 (defun imap-gssapi-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
911 (message "imap: Authenticating using GSSAPI...%s" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
912 (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
|
913 (eq imap-stream 'gssapi)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
914 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
915 (defun imap-kerberos4-auth-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
916 (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
|
917 (eq imap-stream 'kerberos4))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
918 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
919 (defun imap-kerberos4-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
920 (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
|
921 (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
|
922 (eq imap-stream 'kerberos4)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
923 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
924 (defun imap-cram-md5-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
925 (imap-capability 'AUTH=CRAM-MD5 buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
926 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
927 (defun imap-cram-md5-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
928 "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
|
929 (message "imap: Authenticating using CRAM-MD5...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
930 (let ((done (imap-interactive-login |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
931 buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
932 (lambda (user passwd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
933 (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
934 (imap-send-command-wait |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
935 (list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
936 "AUTHENTICATE CRAM-MD5" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
937 (lambda (challenge) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
938 (let* ((decoded (base64-decode-string challenge)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
939 (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
|
940 (response (concat user " " hash)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
941 (encoded (base64-encode-string response))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
942 encoded))))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
943 (if done |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
944 (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
|
945 (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
|
946 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
947 (defun imap-login-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
948 (and (not (imap-capability 'LOGINDISABLED buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
949 (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
|
950 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
951 (defun imap-quote-specials (string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
952 (with-temp-buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
953 (insert string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
954 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
955 (while (re-search-forward "[\\\"]" nil t) |
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 (insert "\\") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
958 (forward-char 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
959 (buffer-string))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
960 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
961 (defun imap-login-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
962 "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
|
963 (message "imap: Plaintext authentication...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
964 (imap-interactive-login buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
965 (lambda (user passwd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
966 (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
|
967 (concat "LOGIN \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
968 (imap-quote-specials user) |
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 (imap-quote-specials passwd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
971 "\"")))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
972 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
973 (defun imap-anonymous-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
974 t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
975 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
976 (defun imap-anonymous-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
977 (message "imap: Logging in anonymously...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
978 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
979 (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
|
980 (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
|
981 (system-name)) "\""))))) |
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 ;;; Compiler directives. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
984 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
985 (defvar imap-sasl-client) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
986 (defvar imap-sasl-step) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
987 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
988 (defun imap-sasl-make-mechanisms (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
989 (let ((mecs '())) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
990 (mapc (lambda (sym) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
991 (let ((name (symbol-name sym))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
992 (if (and (> (length name) 5) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
993 (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
|
994 (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
|
995 (imap-capability nil buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
996 mecs)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
997 |
86817
be7be23ea4b9
(sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents:
86442
diff
changeset
|
998 (declare-function sasl-find-mechanism "sasl" (mechanism)) |
be7be23ea4b9
(sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents:
86442
diff
changeset
|
999 (declare-function sasl-mechanism-name "sasl" (mechanism)) |
be7be23ea4b9
(sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents:
86442
diff
changeset
|
1000 (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
|
1001 (declare-function sasl-next-step "sasl" (client step)) |
be7be23ea4b9
(sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents:
86442
diff
changeset
|
1002 (declare-function sasl-step-data "sasl" (step)) |
be7be23ea4b9
(sasl-find-mechanism, sasl-mechanism-name)
Glenn Morris <rgm@gnu.org>
parents:
86442
diff
changeset
|
1003 (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
|
1004 |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1005 (defun imap-sasl-auth-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1006 (and (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1007 (require 'sasl) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1008 (error nil)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1009 (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
|
1010 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1011 (defun imap-sasl-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1012 "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
|
1013 (message "imap: Authenticating using SASL...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1014 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1015 (make-local-variable 'imap-username) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1016 (make-local-variable 'imap-sasl-client) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1017 (make-local-variable 'imap-sasl-step) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1018 (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
|
1019 logged user) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1020 (while (not logged) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1021 (setq user (or imap-username |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1022 (read-from-minibuffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1023 (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
|
1024 (sasl-mechanism-name mechanism) ": ") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1025 (or user imap-default-user)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1026 (when user |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1027 (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
|
1028 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
|
1029 (let ((tag (imap-send-command |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1030 (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
|
1031 (format "AUTHENTICATE %s %s" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1032 (sasl-mechanism-name mechanism) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1033 (sasl-step-data imap-sasl-step)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1034 (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
|
1035 buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1036 (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
|
1037 (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
|
1038 (setq imap-continuation nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1039 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
|
1040 (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
|
1041 (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
|
1042 ""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1043 (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
|
1044 (setq imap-username user |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1045 logged t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1046 (message "Login failed...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1047 (sit-for 1))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1048 logged))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1049 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1050 (defun imap-digest-md5-p (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1051 (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
|
1052 (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1053 (require 'digest-md5) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1054 (error nil)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1055 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1056 (defun imap-digest-md5-auth (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1057 "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
|
1058 (message "imap: Authenticating using DIGEST-MD5...") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1059 (imap-interactive-login |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1060 buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1061 (lambda (user passwd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1062 (let ((tag |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1063 (imap-send-command |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1064 (list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1065 "AUTHENTICATE DIGEST-MD5" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1066 (lambda (challenge) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1067 (digest-md5-parse-digest-challenge |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1068 (base64-decode-string challenge)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1069 (let* ((digest-uri |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1070 (digest-md5-digest-uri |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1071 "imap" (digest-md5-challenge 'realm))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1072 (response |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1073 (digest-md5-digest-response |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1074 user passwd digest-uri))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1075 (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
|
1076 ))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1077 (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
|
1078 nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1079 (setq imap-continuation nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1080 (imap-send-command-1 "") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1081 (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
|
1082 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1083 ;; Server functions: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1084 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1085 (defun imap-open-1 (buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1086 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1087 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1088 (setq imap-current-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1089 imap-current-message nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1090 imap-state 'initial |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1091 imap-process (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1092 (funcall (nth 2 (assq imap-stream |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1093 imap-stream-alist)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1094 "imap" buffer imap-server imap-port) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1095 ((error quit) nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1096 (when imap-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1097 (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
|
1098 (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
|
1099 (while (and (eq imap-state 'initial) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1100 (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
|
1101 (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
|
1102 (accept-process-output imap-process 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1103 (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
|
1104 (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
|
1105 imap-process)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1106 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1107 (defun imap-open (server &optional port stream auth buffer) |
100993 | 1108 "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
|
1109 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
|
1110 for SSL which use 993). |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1111 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
|
1112 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
|
1113 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
|
1114 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
|
1115 server is capable of. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1116 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
|
1117 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
|
1118 (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
|
1119 (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
|
1120 (if (imap-opened buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1121 (imap-close buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1122 (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
|
1123 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1124 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1125 (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
|
1126 (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
|
1127 (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
|
1128 (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
|
1129 (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
|
1130 (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
|
1131 (imap-open-1 buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1132 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1133 (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
|
1134 nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1135 (when (null imap-stream) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1136 ;; Need to choose stream. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1137 (let ((streams imap-streams)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1138 (while (setq stream (pop streams)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1139 ;; OK to use this stream? |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1140 (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
|
1141 ;; Stream changed? |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1142 (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
|
1143 (with-current-buffer (get-buffer-create |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1144 (generate-new-buffer-name " *temp*")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1145 (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
|
1146 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1147 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1148 (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
|
1149 (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
|
1150 (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
|
1151 (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
|
1152 (if (null (let ((imap-stream stream)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1153 (imap-open-1 (current-buffer)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1154 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1155 (kill-buffer (current-buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1156 (message |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1157 "imap: Reconnecting with stream `%s'...failed" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1158 stream)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1159 ;; 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
|
1160 (imap-close buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1161 (let ((name (if (stringp buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1162 buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1163 (buffer-name buffer)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1164 (kill-buffer buffer) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1165 (rename-buffer name) |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1166 ;; set the passed buffer to the current one, |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1167 ;; so that (imap-opened buffer) later will work |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1168 (setq buffer (current-buffer))) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1169 (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
|
1170 stream) |
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 ;; We're done |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1175 (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
|
1176 (setq imap-stream stream) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1177 (setq imap-capability nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1178 (setq streams nil)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1179 (when (imap-opened buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1180 (setq imap-mailbox-data (make-vector imap-mailbox-prime 0))) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1181 ;; (debug "opened+state+auth+buffer" (imap-opened buffer) imap-state imap-auth buffer) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1182 (when imap-stream |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1183 buffer)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1184 |
87859 | 1185 (defcustom imap-ping-server t |
1186 "If non-nil, check if IMAP is open. | |
1187 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
|
1188 :version "23.1" ;; No Gnus |
87859 | 1189 :group 'imap |
1190 :type 'boolean) | |
1191 | |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1192 (defun imap-opened (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1193 "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
|
1194 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
|
1195 (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
|
1196 (buffer-live-p buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1197 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1198 (and imap-process |
87859 | 1199 (memq (process-status imap-process) '(open run)) |
1200 (if imap-ping-server | |
1201 (imap-ping-server) | |
1202 t))))) | |
1203 | |
1204 (defun imap-ping-server (&optional buffer) | |
1205 "Ping the IMAP server in BUFFER with a \"NOOP\" command. | |
1206 Return non-nil if the server responds, and nil if it does not | |
1207 respond. If BUFFER is nil, the current buffer is used." | |
1208 (condition-case () | |
1209 (imap-ok-p (imap-send-command-wait "NOOP" buffer)) | |
1210 (error nil))) | |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1211 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1212 (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
|
1213 "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
|
1214 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
|
1215 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
|
1216 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
|
1217 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
|
1218 password is remembered in the buffer." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1219 (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
|
1220 (if (not (eq imap-state 'nonauth)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1221 (or (eq imap-state 'auth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1222 (eq imap-state 'selected) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1223 (eq imap-state 'examine)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1224 (make-local-variable 'imap-username) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1225 (make-local-variable 'imap-password) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1226 (make-local-variable 'imap-last-authenticator) |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1227 (when user (setq imap-username user)) |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1228 (when passwd (setq imap-password passwd)) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1229 (if imap-auth |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1230 (and (setq imap-last-authenticator |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1231 (assq imap-auth imap-authenticator-alist)) |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1232 (funcall (nth 2 imap-last-authenticator) (current-buffer)) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1233 (setq imap-state 'auth)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1234 ;; Choose authenticator. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1235 (let ((auths imap-authenticators) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1236 auth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1237 (while (setq auth (pop auths)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1238 ;; OK to use authenticator? |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1239 (setq imap-last-authenticator |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1240 (assq auth imap-authenticator-alist)) |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1241 (when (funcall (nth 1 imap-last-authenticator) (current-buffer)) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1242 (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
|
1243 imap-server auth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1244 (setq imap-auth auth) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1245 (if (funcall (nth 2 imap-last-authenticator) (current-buffer)) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1246 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1247 (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
|
1248 imap-server auth) |
105254
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1249 ;; set imap-state correctly on successful auth attempt |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1250 (setq imap-state 'auth) |
c31b6489ac68
Synch with Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104890
diff
changeset
|
1251 ;; stop iterating through the authenticator list |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1252 (setq auths nil)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1253 (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
|
1254 imap-server auth))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1255 imap-state)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1256 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1257 (defun imap-close (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1258 "Close connection to server in BUFFER. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1259 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
|
1260 (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
|
1261 (when (imap-opened) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1262 (condition-case nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1263 (imap-logout-wait) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1264 (quit nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1265 (when (and imap-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1266 (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
|
1267 (delete-process imap-process)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1268 (setq imap-current-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1269 imap-current-message nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1270 imap-process nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1271 (erase-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1272 t)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1273 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1274 (defun imap-capability (&optional identifier buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1275 "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
|
1276 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
|
1277 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
|
1278 (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
|
1279 (unless imap-capability |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1280 (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
|
1281 (setq imap-capability '(IMAP2)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1282 (if identifier |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1283 (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
|
1284 imap-capability))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1285 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1286 (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
|
1287 "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
|
1288 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
|
1289 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
|
1290 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1291 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
|
1292 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
|
1293 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1294 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
|
1295 (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
|
1296 (when (and (imap-capability 'ID) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1297 (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
|
1298 (if (null list-of-values) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1299 "ID NIL" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1300 (concat "ID (" (mapconcat (lambda (el) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1301 (concat "\"" el "\"")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1302 list-of-values |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1303 " ") ")"))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1304 imap-id))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1305 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1306 (defun imap-namespace (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1307 "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
|
1308 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
|
1309 (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
|
1310 (unless imap-namespace |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1311 (when (imap-capability 'NAMESPACE) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1312 (imap-send-command-wait "NAMESPACE"))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1313 imap-namespace)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1314 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1315 (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
|
1316 (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
|
1317 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1318 (defun imap-logout (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1319 (or buffer (setq buffer (current-buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1320 (if imap-logout-timeout |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1321 (with-timeout (imap-logout-timeout |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1322 (condition-case nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1323 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1324 (delete-process imap-process)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1325 (error))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1326 (imap-send-command "LOGOUT" buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1327 (imap-send-command "LOGOUT" buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1328 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1329 (defun imap-logout-wait (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1330 (or buffer (setq buffer (current-buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1331 (if imap-logout-timeout |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1332 (with-timeout (imap-logout-timeout |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1333 (condition-case nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1334 (with-current-buffer buffer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1335 (delete-process imap-process)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1336 (error))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1337 (imap-send-command-wait "LOGOUT" buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1338 (imap-send-command-wait "LOGOUT" buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1339 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1340 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1341 ;; Mailbox functions: |
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-put (propname value &optional mailbox buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1344 (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
|
1345 (if imap-mailbox-data |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1346 (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
|
1347 propname value) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1348 (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
|
1349 propname value mailbox (current-buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1350 t)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1351 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1352 (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
|
1353 (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
|
1354 propname)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1355 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1356 (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
|
1357 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1358 (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
|
1359 (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
|
1360 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1361 (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
|
1362 (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
|
1363 (let (result) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1364 (mapatoms |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1365 (lambda (s) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1366 (push (funcall func (if mailbox-decoder |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1367 (funcall mailbox-decoder (symbol-name s)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1368 (symbol-name s))) result)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1369 imap-mailbox-data) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1370 result))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1371 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1372 (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
|
1373 "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
|
1374 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
|
1375 the only argument." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1376 (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
|
1377 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1378 (defun imap-current-mailbox (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1379 (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
|
1380 (imap-utf7-decode imap-current-mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1381 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1382 (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
|
1383 (and (string= mailbox imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1384 (or (and examine |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1385 (eq imap-state 'examine)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1386 (and (not examine) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1387 (eq imap-state 'selected))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1388 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1389 (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
|
1390 (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
|
1391 (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
|
1392 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1393 (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
|
1394 "Select MAILBOX on server in BUFFER. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1395 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
|
1396 (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
|
1397 imap-current-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1398 (setq imap-current-mailbox mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1399 (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
|
1400 (concat (if examine "EXAMINE" "SELECT") " \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1401 mailbox "\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1402 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1403 (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
|
1404 imap-state (if examine 'examine 'selected)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1405 imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1406 ;; Failed SELECT/EXAMINE unselects current mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1407 (setq imap-current-mailbox nil)))) |
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-select (mailbox &optional examine buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1410 (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
|
1411 (imap-utf7-decode |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1412 (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
|
1413 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1414 (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
|
1415 (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
|
1416 (imap-mailbox-select-1 mailbox 'examine))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1417 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1418 (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
|
1419 "Examine MAILBOX on server in BUFFER." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1420 (imap-mailbox-select mailbox 'examine buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1421 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1422 (defun imap-mailbox-unselect (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1423 "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
|
1424 (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
|
1425 (when (or (eq imap-state 'auth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1426 (and (imap-capability 'UNSELECT) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1427 (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
|
1428 (and (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1429 (imap-send-command-wait (concat "EXAMINE \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1430 imap-current-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1431 "\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1432 (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
|
1433 (setq imap-current-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1434 imap-message-data nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1435 imap-state 'auth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1436 t))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1437 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1438 (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
|
1439 "Expunge articles in current folder in BUFFER. |
100993 | 1440 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
|
1441 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
|
1442 (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
|
1443 (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
|
1444 (if asynch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1445 (imap-send-command "EXPUNGE") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1446 (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
|
1447 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1448 (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
|
1449 "Expunge articles and close current folder in BUFFER. |
100993 | 1450 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
|
1451 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
|
1452 (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
|
1453 (when imap-current-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1454 (if asynch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1455 (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
|
1456 `(lambda (tag status) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1457 (message "IMAP mailbox `%s' closed... %s" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1458 imap-current-mailbox status) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1459 (when (eq ,imap-current-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1460 imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1461 ;; 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
|
1462 ;; was selected... |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1463 (setq imap-current-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1464 imap-message-data nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1465 imap-state 'auth)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1466 (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
|
1467 (setq imap-current-mailbox nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1468 imap-message-data nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1469 imap-state 'auth))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1470 t))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1471 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1472 (defun imap-mailbox-create-1 (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1473 (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
|
1474 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1475 (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
|
1476 "Create MAILBOX on server in BUFFER. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1477 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
|
1478 (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
|
1479 (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
|
1480 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1481 (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
|
1482 "Delete MAILBOX on server in BUFFER. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1483 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
|
1484 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1485 (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
|
1486 (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1487 (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
|
1488 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1489 (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
|
1490 "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
|
1491 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
|
1492 (let ((oldname (imap-utf7-encode oldname)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1493 (newname (imap-utf7-encode newname))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1494 (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
|
1495 (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1496 (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
|
1497 "\"" newname "\"")))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1498 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1499 (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
|
1500 "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
|
1501 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
|
1502 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
|
1503 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
|
1504 (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
|
1505 ;; 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
|
1506 (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
|
1507 (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
|
1508 (imap-utf7-encode root) "\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1509 ;; 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
|
1510 (imap-mailbox-map-1 (lambda (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1511 (imap-mailbox-put 'lsub nil mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1512 (when (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1513 (imap-send-command-wait |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1514 (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
|
1515 (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
|
1516 "%\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1517 (let (out) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1518 (imap-mailbox-map-1 (lambda (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1519 (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
|
1520 (push (imap-utf7-decode mailbox) out)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1521 (nreverse out))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1522 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1523 (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
|
1524 "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
|
1525 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
|
1526 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
|
1527 passed to list command." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1528 (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
|
1529 ;; 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
|
1530 (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
|
1531 (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
|
1532 (imap-utf7-encode root) "\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1533 ;; 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
|
1534 (imap-mailbox-map-1 (lambda (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1535 (imap-mailbox-put 'list nil mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1536 (when (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1537 (imap-send-command-wait |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1538 (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
|
1539 (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
|
1540 "%\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1541 (let (out) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1542 (imap-mailbox-map-1 (lambda (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1543 (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
|
1544 (push (imap-utf7-decode mailbox) out)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1545 (nreverse out))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1546 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1547 (defun imap-mailbox-subscribe (mailbox &optional buffer) |
100993 | 1548 "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
|
1549 Returns non-nil if successful." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1550 (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
|
1551 (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
|
1552 (imap-utf7-encode mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1553 "\""))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1554 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1555 (defun imap-mailbox-unsubscribe (mailbox &optional buffer) |
100993 | 1556 "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
|
1557 Returns non-nil if successful." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1558 (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
|
1559 (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
|
1560 (imap-utf7-encode mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1561 "\""))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1562 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1563 (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
|
1564 "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
|
1565 ITEMS can be a symbol or a list of symbols, valid symbols are one of |
100993 | 1566 the STATUS data items -- i.e. `messages', `recent', `uidnext', `uidvalidity', |
1567 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
|
1568 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
|
1569 (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
|
1570 (when (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1571 (imap-send-command-wait (list "STATUS \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1572 (imap-utf7-encode mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1573 "\" " |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1574 (upcase |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1575 (format "%s" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1576 (if (listp items) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1577 items |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1578 (list items))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1579 (if (listp items) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1580 (mapcar (lambda (item) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1581 (imap-mailbox-get item mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1582 items) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1583 (imap-mailbox-get items mailbox))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1584 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1585 (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
|
1586 "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
|
1587 ITEMS can be a symbol or a list of symbols, valid symbols are one of |
100993 | 1588 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
|
1589 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
|
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 (imap-send-command (list "STATUS \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1592 (imap-utf7-encode mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1593 "\" " |
87097 | 1594 (upcase |
1595 (format "%s" | |
1596 (if (listp items) | |
1597 items | |
1598 (list items)))))))) | |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1599 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1600 (defun imap-mailbox-acl-get (&optional mailbox buffer) |
100993 | 1601 "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
|
1602 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1603 (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
|
1604 (when (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1605 (imap-send-command-wait (list "GETACL \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1606 (or mailbox imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1607 "\""))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1608 (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
|
1609 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1610 (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
|
1611 "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
|
1612 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1613 (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
|
1614 (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1615 (imap-send-command-wait (list "SETACL \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1616 (or mailbox imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1617 "\" " |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1618 identifier |
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 rights)))))) |
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-mailbox-acl-delete (identifier &optional mailbox buffer) |
100993 | 1623 "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
|
1624 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1625 (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
|
1626 (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1627 (imap-send-command-wait (list "DELETEACL \"" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1628 (or mailbox imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1629 "\" " |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1630 identifier)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1631 |
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 ;; Message functions: |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1634 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1635 (defun imap-current-message (&optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1636 (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
|
1637 imap-current-message)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1638 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1639 (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
|
1640 (mapconcat (lambda (item) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1641 (number-to-string item)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1642 (if (listp list) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1643 list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1644 (list list)) |
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 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1647 (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
|
1648 (mapconcat |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1649 (lambda (item) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1650 (if (consp item) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1651 (format "%d:%d" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1652 (car item) (cdr item)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1653 (format "%d" item))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1654 (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
|
1655 (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
|
1656 range) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1657 ",")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1658 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1659 (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
|
1660 (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
|
1661 (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
|
1662 (if (listp uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1663 (imap-list-to-message-set uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1664 uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1665 props)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1666 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1667 (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
|
1668 "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
|
1669 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
|
1670 is non-nil return these properties." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1671 (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
|
1672 (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
|
1673 (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
|
1674 (if (listp uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1675 (imap-list-to-message-set uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1676 uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1677 props))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1678 (if (or (null receive) (stringp uids)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1679 t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1680 (if (listp uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1681 (mapcar (lambda (uid) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1682 (if (listp receive) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1683 (mapcar (lambda (prop) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1684 (imap-message-get uid prop)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1685 receive) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1686 (imap-message-get uid receive))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1687 uids) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1688 (imap-message-get uids receive)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1689 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1690 (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
|
1691 (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
|
1692 (if imap-message-data |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1693 (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
|
1694 propname value) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1695 (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
|
1696 uid propname value (current-buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1697 t)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1698 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1699 (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
|
1700 (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
|
1701 (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
|
1702 propname))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1703 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1704 (defun imap-message-map (func propname &optional buffer) |
104890
2e22af528b76
* calendar/time-date.el (autoload):
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
104734
diff
changeset
|
1705 "Map a function across each message in `imap-message-data', returning a list." |
86442
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 (let (result) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1708 (mapatoms |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1709 (lambda (s) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1710 (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
|
1711 imap-message-data) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1712 result))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1713 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1714 (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
|
1715 `(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
|
1716 (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
|
1717 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1718 (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
|
1719 `(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
|
1720 (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
|
1721 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1722 (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
|
1723 `(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
|
1724 (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
|
1725 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1726 (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
|
1727 `(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
|
1728 (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
|
1729 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1730 (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
|
1731 `(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
|
1732 (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
|
1733 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1734 (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
|
1735 `(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
|
1736 (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
|
1737 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1738 (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
|
1739 `(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
|
1740 (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
|
1741 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1742 (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
|
1743 `(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
|
1744 (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
|
1745 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1746 (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
|
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 (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
|
1749 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1750 (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
|
1751 `(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
|
1752 (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
|
1753 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1754 (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
|
1755 `(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
|
1756 (imap-message-get ,uid 'BODY))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1757 |
100993 | 1758 ;; 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
|
1759 (defun imap-search (predicate &optional buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1760 (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
|
1761 (imap-mailbox-put 'search 'dummy) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1762 (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
|
1763 (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
|
1764 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1765 (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
|
1766 nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1767 (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
|
1768 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1769 (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
|
1770 "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
|
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 (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
|
1773 (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
|
1774 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1775 (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
|
1776 (when (and articles flags) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1777 (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
|
1778 (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
|
1779 (concat "UID STORE " articles |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1780 " FLAGS" (if silent ".SILENT") " (" flags ")")))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1781 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1782 (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
|
1783 (when (and articles flags) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1784 (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
|
1785 (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
|
1786 (concat "UID STORE " articles |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1787 " -FLAGS" (if silent ".SILENT") " (" flags ")")))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1788 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1789 (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
|
1790 (when (and articles flags) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1791 (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
|
1792 (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
|
1793 (concat "UID STORE " articles |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1794 " +FLAGS" (if silent ".SILENT") " (" flags ")")))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1795 |
87209 | 1796 ;; Cf. http://thread.gmane.org/gmane.emacs.gnus.general/65317/focus=65343 |
1797 ;; Signal an error if we'd get an integer overflow. | |
1798 ;; | |
1799 ;; FIXME: Identify relevant calls to `string-to-number' and replace them with | |
1800 ;; `imap-string-to-integer'. | |
1801 (defun imap-string-to-integer (string &optional base) | |
1802 (let ((number (string-to-number string base))) | |
1803 (if (> number most-positive-fixnum) | |
1804 (error | |
100993 | 1805 (format "String %s cannot be converted to a Lisp integer" number)) |
87209 | 1806 number))) |
1807 | |
100993 | 1808 (defun imap-fetch-safe (uids props &optional receive nouidfetch buffer) |
1809 "Like `imap-fetch', but DTRT with Exchange 2007 bug. | |
1810 However, UIDS here is a cons, where the car is the canonical form | |
1811 of the UIDS specification, and the cdr is the one which works with | |
1812 Exchange 2007 or, potentially, other buggy servers. | |
1813 See `imap-enable-exchange-bug-workaround'." | |
101804 | 1814 ;; The first time we get here for a given, we'll try the canonical |
1815 ;; form. If we get the known error from the buggy server, set the | |
1816 ;; flag buffer-locally (to account for connections to multiple | |
1817 ;; servers), then re-try with the alternative UIDS spec. We don't | |
1818 ;; unconditionally use the alternative form, since the | |
1819 ;; currently-used alternatives are seriously inefficient with some | |
1820 ;; servers (although they are valid). | |
1821 ;; | |
1822 ;; FIXME: Maybe it would be cleaner to have a flag to not signal | |
1823 ;; the error (which otherwise gives a message), and test | |
1824 ;; `imap-failed-tags'. Also, Other IMAP clients use other forms of | |
1825 ;; request which work with Exchange, e.g. Claws does "UID FETCH 1:* | |
1826 ;; (UID)" rather than "FETCH UID 1,*". Is there a good reason not | |
1827 ;; to do the same? | |
100993 | 1828 (condition-case data |
101804 | 1829 ;; Binding `debug-on-error' allows us to get the error from |
1830 ;; `imap-parse-response' -- it's normally caught by Emacs around | |
1831 ;; execution of a process filter. | |
1832 (let ((debug-on-error t)) | |
1833 (imap-fetch (if imap-enable-exchange-bug-workaround | |
1834 (cdr uids) | |
1835 (car uids)) | |
1836 props receive nouidfetch buffer)) | |
100993 | 1837 (error |
1838 (if (and (not imap-enable-exchange-bug-workaround) | |
101804 | 1839 ;; This is the Exchange 2007 response. It may be more |
1840 ;; robust just to check for a BAD response to the | |
1841 ;; attempted fetch. | |
1842 (string-match "The specified message set is invalid" | |
1843 (cadr data))) | |
100993 | 1844 (with-current-buffer (or buffer (current-buffer)) |
101804 | 1845 (set (make-local-variable 'imap-enable-exchange-bug-workaround) |
100993 | 1846 t) |
1847 (imap-fetch (cdr uids) props receive nouidfetch)) | |
1848 (signal (car data) (cdr data)))))) | |
1849 | |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1850 (defun imap-message-copyuid-1 (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1851 (if (imap-capability 'UIDPLUS) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1852 (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
|
1853 (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
|
1854 (let ((old-mailbox imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1855 (state imap-state) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1856 (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
|
1857 (when (imap-mailbox-examine-1 mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1858 (prog1 |
100993 | 1859 (and (imap-fetch-safe '("*" . "*:*") "UID") |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1860 (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
|
1861 (apply 'max (imap-message-map |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1862 (lambda (uid prop) uid) 'UID)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1863 (if old-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1864 (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
|
1865 (imap-mailbox-unselect))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1866 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1867 (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
|
1868 (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
|
1869 (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
|
1870 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1871 (defun imap-message-copy (articles mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1872 &optional dont-create no-copyuid buffer) |
100993 | 1873 "Copy ARTICLES to MAILBOX on server in BUFFER. |
1874 ARTICLES is a string message set. Create mailbox if it doesn't exist, | |
1875 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
|
1876 the UIDVALIDITY of the mailbox the article(s) was copied to as the |
100993 | 1877 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
|
1878 (when articles |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1879 (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
|
1880 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1881 (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
|
1882 (imap-current-target-mailbox mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1883 (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
|
1884 t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1885 (when (and (not dont-create) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1886 ;; removed because of buggy Oracle server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1887 ;; 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
|
1888 ;; is a MUST according to specifications): |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1889 ;;(imap-mailbox-get-1 'trycreate mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1890 (imap-mailbox-create-1 mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1891 (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
|
1892 (or no-copyuid |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1893 (imap-message-copyuid-1 mailbox))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1894 |
100993 | 1895 ;; FIXME: Amalgamate with imap-message-copyuid-1, using an extra arg, since it |
1896 ;; 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
|
1897 (defun imap-message-appenduid-1 (mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1898 (if (imap-capability 'UIDPLUS) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1899 (imap-mailbox-get-1 'appenduid mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1900 (let ((old-mailbox imap-current-mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1901 (state imap-state) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1902 (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
|
1903 (when (imap-mailbox-examine-1 mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1904 (prog1 |
100993 | 1905 (and (imap-fetch-safe '("*" . "*:*") "UID") |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1906 (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
|
1907 (apply 'max (imap-message-map |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1908 (lambda (uid prop) uid) 'UID)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1909 (if old-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1910 (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
|
1911 (imap-mailbox-unselect))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1912 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1913 (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
|
1914 (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
|
1915 (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
|
1916 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1917 (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
|
1918 "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
|
1919 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
|
1920 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
|
1921 on failure." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1922 (let ((mailbox (imap-utf7-encode mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1923 (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
|
1924 (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
|
1925 (imap-ok-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1926 (imap-send-command-wait |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1927 (list "APPEND \"" mailbox "\" " article)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1928 (imap-message-appenduid-1 mailbox))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1929 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1930 (defun imap-body-lines (body) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1931 "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
|
1932 (if (listp body) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1933 (if (stringp (car body)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1934 (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
|
1935 (numberp (nth 7 body))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1936 (nth 7 body)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1937 ((and (string= (upcase (car body)) "MESSAGE") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1938 (numberp (nth 9 body))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1939 (nth 9 body)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1940 (t 0)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1941 (apply '+ (mapcar 'imap-body-lines body))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1942 0)) |
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-envelope-from (from) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1945 "Return a from string line." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1946 (and from |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1947 (concat (aref from 0) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1948 (if (aref from 0) " <") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1949 (aref from 2) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1950 "@" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1951 (aref from 3) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1952 (if (aref from 0) ">")))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1953 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1954 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1955 ;; Internal functions. |
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-add-callback (tag func) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1958 (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
|
1959 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1960 (defun imap-send-command-1 (cmdstr) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1961 (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
|
1962 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1963 (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
|
1964 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1965 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1966 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1967 (insert cmdstr))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1968 (process-send-string imap-process cmdstr)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1969 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1970 (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
|
1971 (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
|
1972 (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
|
1973 (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
|
1974 cmd cmdstr) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1975 (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
|
1976 (while (setq cmd (pop command)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1977 (cond ((stringp cmd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1978 (setq cmdstr (concat cmdstr cmd))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1979 ((bufferp cmd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1980 (let ((eol imap-client-eol) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1981 (calcfirst imap-calculate-literal-size-first) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1982 size) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1983 (with-current-buffer cmd |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1984 (if calcfirst |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1985 (setq size (buffer-size))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1986 (when (not (equal eol "\r\n")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1987 ;; XXX modifies buffer! |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1988 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1989 (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
|
1990 (replace-match eol))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1991 (if (not calcfirst) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1992 (setq size (buffer-size)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1993 (setq cmdstr |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1994 (concat cmdstr (format "{%d}" size)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1995 (unwind-protect |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1996 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1997 (imap-send-command-1 cmdstr) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1998 (setq cmdstr nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1999 (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
|
2000 (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
|
2001 (let ((process imap-process) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2002 (stream imap-stream) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2003 (eol imap-client-eol)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2004 (with-current-buffer cmd |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2005 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2006 (with-current-buffer (get-buffer-create |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2007 imap-log-buffer) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2008 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2009 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2010 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2011 (insert-buffer-substring cmd))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2012 (process-send-region process (point-min) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2013 (point-max))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2014 (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
|
2015 (setq imap-continuation nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2016 ((functionp cmd) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2017 (imap-send-command-1 cmdstr) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2018 (setq cmdstr nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2019 (unwind-protect |
104734
714ab1b8092b
(imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101804
diff
changeset
|
2020 (setq command |
714ab1b8092b
(imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101804
diff
changeset
|
2021 (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE)) |
714ab1b8092b
(imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101804
diff
changeset
|
2022 nil ;; abort command if no cont-req |
714ab1b8092b
(imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101804
diff
changeset
|
2023 (cons (funcall cmd imap-continuation) |
714ab1b8092b
(imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101804
diff
changeset
|
2024 command))) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2025 (setq imap-continuation nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2026 (t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2027 (error "Unknown command type")))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2028 (if cmdstr |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2029 (imap-send-command-1 cmdstr)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2030 tag))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2031 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2032 (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
|
2033 (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
|
2034 (let (imap-have-messaged) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2035 (while (and (null imap-continuation) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2036 (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
|
2037 (< imap-reached-tag tag)) |
104734
714ab1b8092b
(imap-send-command): Simplify.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101804
diff
changeset
|
2038 (let ((len (/ (buffer-size) 1024)) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2039 message-log-max) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2040 (unless (< len 10) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2041 (setq imap-have-messaged t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2042 (message "imap read: %dk" len)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2043 (accept-process-output imap-process |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2044 (truncate imap-read-timeout) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2045 (truncate (* (- imap-read-timeout |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2046 (truncate imap-read-timeout)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2047 1000))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2048 ;; 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
|
2049 ;; 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
|
2050 ;; 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
|
2051 ;; iteration of the loop above. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2052 (when (and (null imap-continuation) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2053 (< imap-reached-tag tag)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2054 (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
|
2055 (when imap-have-messaged |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2056 (message "")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2057 (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
|
2058 (or (assq tag imap-failed-tags) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2059 (if imap-continuation |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2060 'INCOMPLETE |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2061 'OK)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2062 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2063 (defun imap-sentinel (process string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2064 (delete-process process)) |
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-find-next-line () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2067 "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
|
2068 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
|
2069 (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
|
2070 imap-server-eol) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2071 nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2072 (if (match-string 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2073 (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
|
2074 nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2075 (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
|
2076 (imap-find-next-line)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2077 (point)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2078 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2079 (defun imap-arrival-filter (proc string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2080 "IMAP process filter." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2081 ;; 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
|
2082 ;; 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
|
2083 (when (buffer-name (process-buffer proc)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2084 (with-current-buffer (process-buffer proc) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2085 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2086 (insert string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2087 (and imap-log |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2088 (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
|
2089 (imap-disable-multibyte) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2090 (buffer-disable-undo) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2091 (goto-char (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2092 (insert string))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2093 (let (end) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2094 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2095 (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
|
2096 (save-restriction |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2097 (narrow-to-region (point-min) end) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2098 (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
|
2099 (goto-char (point-min)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2100 (unwind-protect |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2101 (cond ((eq imap-state 'initial) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2102 (imap-parse-greeting)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2103 ((or (eq imap-state 'auth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2104 (eq imap-state 'nonauth) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2105 (eq imap-state 'selected) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2106 (eq imap-state 'examine)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2107 (imap-parse-response)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2108 (t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2109 (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
|
2110 imap-state))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2111 (delete-region (point-min) (point-max))))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2112 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2113 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2114 ;; Imap parser. |
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 (defsubst imap-forward () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2117 (or (eobp) (forward-char))) |
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 ;; number = 1*DIGIT |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2120 ;; ; Unsigned 32-bit integer |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2121 ;; ; (0 <= n < 4,294,967,296) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2122 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2123 (defsubst imap-parse-number () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2124 (when (looking-at "[0-9]+") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2125 (prog1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2126 (string-to-number (match-string 0)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2127 (goto-char (match-end 0))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2128 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2129 ;; literal = "{" number "}" CRLF *CHAR8 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2130 ;; ; Number represents the number of CHAR8s |
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 (defsubst imap-parse-literal () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2133 (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
|
2134 (let ((pos (match-end 0)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2135 (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
|
2136 (if (< (point-max) (+ pos len)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2137 nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2138 (goto-char (+ pos len)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2139 (buffer-substring pos (+ pos len)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2140 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2141 ;; string = quoted / literal |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2142 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2143 ;; quoted = DQUOTE *QUOTED-CHAR DQUOTE |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2144 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2145 ;; 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
|
2146 ;; "\" quoted-specials |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2147 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2148 ;; quoted-specials = DQUOTE / "\" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2149 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2150 ;; 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
|
2151 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2152 (defsubst imap-parse-string () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2153 (cond ((eq (char-after) ?\") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2154 (forward-char 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2155 (let ((p (point)) (name "")) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2156 (skip-chars-forward "^\"\\\\") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2157 (setq name (buffer-substring p (point))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2158 (while (eq (char-after) ?\\) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2159 (setq p (1+ (point))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2160 (forward-char 2) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2161 (skip-chars-forward "^\"\\\\") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2162 (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
|
2163 (forward-char 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2164 name)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2165 ((eq (char-after) ?{) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2166 (imap-parse-literal)))) |
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 ;; nil = "NIL" |
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 (defsubst imap-parse-nil () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2171 (if (looking-at "NIL") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2172 (goto-char (match-end 0)))) |
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 ;; nstring = string / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2175 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2176 (defsubst imap-parse-nstring () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2177 (or (imap-parse-string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2178 (and (imap-parse-nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2179 nil))) |
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 ;; astring = atom / string |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2182 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2183 ;; atom = 1*ATOM-CHAR |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2184 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2185 ;; 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
|
2186 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2187 ;; atom-specials = "(" / ")" / "{" / SP / CTL / list-wildcards / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2188 ;; quoted-specials |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2189 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2190 ;; list-wildcards = "%" / "*" |
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 ;; quoted-specials = DQUOTE / "\" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2193 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2194 (defsubst imap-parse-astring () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2195 (or (imap-parse-string) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2196 (buffer-substring (point) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2197 (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
|
2198 (goto-char (1- (match-end 0))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2199 (end-of-line) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2200 (point))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2201 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2202 ;; 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
|
2203 ;; addr-host ")" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2204 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2205 ;; addr-adl = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2206 ;; ; 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
|
2207 ;; ; non-nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2208 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2209 ;; addr-host = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2210 ;; ; nil indicates [RFC-822] group syntax. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2211 ;; ; Otherwise, holds [RFC-822] domain name |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2212 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2213 ;; addr-mailbox = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2214 ;; ; 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
|
2215 ;; ; 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
|
2216 ;; ; [RFC-822] group name. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2217 ;; ; Otherwise, holds [RFC-822] local-part |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2218 ;; ; after removing [RFC-822] quoting |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2219 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2220 ;; addr-name = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2221 ;; ; 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
|
2222 ;; ; mailbox after removing [RFC-822] quoting |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2223 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2224 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2225 (defsubst imap-parse-address () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2226 (let (address) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2227 (when (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2228 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2229 (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
|
2230 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2231 (prog1 (imap-parse-nstring) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2232 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2233 (prog1 (imap-parse-nstring) |
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 (imap-parse-nstring))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2236 (when (eq (char-after) ?\)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2237 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2238 address)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2239 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2240 ;; address-list = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2241 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2242 ;; nil = "NIL" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2243 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2244 (defsubst imap-parse-address-list () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2245 (if (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2246 (let (address addresses) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2247 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2248 (while (and (not (eq (char-after) ?\))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2249 ;; next line for MS Exchange bug |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2250 (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
|
2251 (setq address (imap-parse-address))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2252 (setq addresses (cons address addresses))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2253 (when (eq (char-after) ?\)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2254 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2255 (nreverse addresses))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2256 ;; 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
|
2257 ;; (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
|
2258 (imap-parse-nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2259 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2260 ;; mailbox = "INBOX" / astring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2261 ;; ; 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
|
2262 ;; ; 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
|
2263 ;; ; 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
|
2264 ;; ; 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
|
2265 ;; ; 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
|
2266 ;; ; 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
|
2267 ;; ; semantic details of mailbox names. |
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 (defsubst imap-parse-mailbox () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2270 (let ((mailbox (imap-parse-astring))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2271 (if (string-equal "INBOX" (upcase mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2272 "INBOX" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2273 mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2274 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2275 ;; 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
|
2276 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2277 ;; 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
|
2278 ;; ; Authentication condition |
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 ;; 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
|
2281 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2282 (defun imap-parse-greeting () |
100993 | 2283 "Parse an IMAP greeting." |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2284 (cond ((looking-at "\\* OK ") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2285 (setq imap-state 'nonauth)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2286 ((looking-at "\\* PREAUTH ") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2287 (setq imap-state 'auth)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2288 ((looking-at "\\* BYE ") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2289 (setq imap-state 'closed)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2290 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2291 ;; 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
|
2292 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2293 ;; 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
|
2294 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2295 ;; 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
|
2296 ;; 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
|
2297 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2298 ;; response-done = response-tagged / response-fatal |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2299 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2300 ;; 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
|
2301 ;; ; Server closes connection immediately |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2302 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2303 ;; 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
|
2304 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2305 ;; 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
|
2306 ;; ; Status condition |
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 ;; 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
|
2309 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2310 ;; mailbox-data = "FLAGS" SP flag-list / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2311 ;; "LIST" SP mailbox-list / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2312 ;; "LSUB" SP mailbox-list / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2313 ;; "SEARCH" *(SP nz-number) / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2314 ;; "STATUS" SP mailbox SP "(" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2315 ;; [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
|
2316 ;; number SP "EXISTS" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2317 ;; number SP "RECENT" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2318 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2319 ;; 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
|
2320 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2321 ;; 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
|
2322 ;; *(SP capability) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2323 ;; ; IMAP4rev1 servers which offer RFC 1730 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2324 ;; ; 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
|
2325 ;; ; capability. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2326 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2327 (defun imap-parse-response () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2328 "Parse a IMAP command response." |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2329 (let (token) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2330 (case (setq token (read (current-buffer))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2331 (+ (setq imap-continuation |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2332 (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
|
2333 (point-max)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2334 t))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2335 (* (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
|
2336 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2337 (OK (imap-parse-resp-text)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2338 (NO (imap-parse-resp-text)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2339 (BAD (imap-parse-resp-text)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2340 (BYE (imap-parse-resp-text)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2341 (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
|
2342 (LIST (imap-parse-data-list 'list)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2343 (LSUB (imap-parse-data-list 'lsub)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2344 (SEARCH (imap-mailbox-put |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2345 'search |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2346 (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
|
2347 (STATUS (imap-parse-status)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2348 (CAPABILITY (setq imap-capability |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2349 (read (concat "(" (upcase (buffer-substring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2350 (point) (point-max))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2351 ")")))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2352 (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
|
2353 (point-max))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2354 (ACL (imap-parse-acl)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2355 (t (case (prog1 (read (current-buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2356 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2357 (EXISTS (imap-mailbox-put 'exists token)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2358 (RECENT (imap-mailbox-put 'recent token)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2359 (EXPUNGE t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2360 (FETCH (imap-parse-fetch token)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2361 (t (message "Garbage: %s" (buffer-string))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2362 (t (let (status) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2363 (if (not (integerp token)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2364 (message "Garbage: %s" (buffer-string)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2365 (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
|
2366 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2367 (OK (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2368 (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
|
2369 (imap-parse-resp-text))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2370 (NO (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2371 (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
|
2372 (save-excursion |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2373 (imap-parse-resp-text)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2374 (let (code text) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2375 (when (eq (char-after) ?\[) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2376 (setq code (buffer-substring (point) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2377 (search-forward "]"))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2378 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2379 (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
|
2380 (push (list token status code text) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2381 imap-failed-tags)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2382 (BAD (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2383 (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
|
2384 (save-excursion |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2385 (imap-parse-resp-text)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2386 (let (code text) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2387 (when (eq (char-after) ?\[) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2388 (setq code (buffer-substring (point) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2389 (search-forward "]"))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2390 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2391 (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
|
2392 (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
|
2393 (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
|
2394 token status code text)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2395 (t (message "Garbage: %s" (buffer-string)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2396 (when (assq token imap-callbacks) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2397 (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
|
2398 (setq imap-callbacks |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2399 (imap-remassoc token imap-callbacks))))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2400 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2401 ;; 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
|
2402 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2403 ;; text = 1*TEXT-CHAR |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2404 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2405 ;; 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
|
2406 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2407 (defun imap-parse-resp-text () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2408 (imap-parse-resp-text-code)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2409 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2410 ;; resp-text-code = "ALERT" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2411 ;; "BADCHARSET [SP "(" astring *(SP astring) ")" ] / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2412 ;; "NEWNAME" SP string SP string / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2413 ;; "PARSE" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2414 ;; "PERMANENTFLAGS" SP "(" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2415 ;; [flag-perm *(SP flag-perm)] ")" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2416 ;; "READ-ONLY" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2417 ;; "READ-WRITE" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2418 ;; "TRYCREATE" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2419 ;; "UIDNEXT" SP nz-number / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2420 ;; "UIDVALIDITY" SP nz-number / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2421 ;; "UNSEEN" SP nz-number / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2422 ;; 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
|
2423 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2424 ;; 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
|
2425 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2426 ;; 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
|
2427 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2428 ;; 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
|
2429 ;; (set "," set) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2430 ;; ; 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
|
2431 ;; ; sequence numbers, these are consecutive |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2432 ;; ; 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
|
2433 ;; ; the mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2434 ;; ; Comma delimits individual numbers, colon |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2435 ;; ; delimits between two numbers inclusive. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2436 ;; ; 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
|
2437 ;; ; 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
|
2438 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2439 ;; sequence-num = nz-number / "*" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2440 ;; ; * 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
|
2441 ;; ; 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
|
2442 ;; ; 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
|
2443 ;; ; 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
|
2444 ;; ; the mailbox. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2445 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2446 ;; flag-perm = flag / "\*" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2447 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2448 ;; flag = "\Answered" / "\Flagged" / "\Deleted" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2449 ;; "\Seen" / "\Draft" / flag-keyword / flag-extension |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2450 ;; ; Does not include "\Recent" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2451 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2452 ;; flag-extension = "\" atom |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2453 ;; ; Future expansion. Client implementations |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2454 ;; ; MUST accept flag-extension flags. Server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2455 ;; ; implementations MUST NOT generate |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2456 ;; ; 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
|
2457 ;; ; future standard or standards-track |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2458 ;; ; revisions of this specification. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2459 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2460 ;; flag-keyword = atom |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2461 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2462 ;; 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
|
2463 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2464 (defun imap-parse-resp-text-code () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2465 ;; 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
|
2466 (when (looking-at " \\[") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2467 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2468 (when (eq (char-after) ?\[) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2469 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2470 (cond ((search-forward "PERMANENTFLAGS " nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2471 (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
|
2472 ((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
|
2473 (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
|
2474 ((search-forward "UNSEEN " nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2475 (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
|
2476 ((looking-at "UIDVALIDITY \\([0-9]+\\)") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2477 (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
|
2478 ((search-forward "READ-ONLY" nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2479 (imap-mailbox-put 'read-only t)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2480 ((search-forward "NEWNAME " nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2481 (let (oldname newname) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2482 (setq oldname (imap-parse-string)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2483 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2484 (setq newname (imap-parse-string)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2485 (imap-mailbox-put 'newname newname oldname))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2486 ((search-forward "TRYCREATE" nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2487 (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
|
2488 ((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
|
2489 (imap-mailbox-put 'appenduid |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2490 (list (match-string 1) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2491 (string-to-number (match-string 2))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2492 imap-current-target-mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2493 ((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
|
2494 (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
|
2495 (match-string 2) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2496 (match-string 3)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2497 imap-current-target-mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2498 ((search-forward "ALERT] " nil t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2499 (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
|
2500 (buffer-substring (point) (point-max))))))) |
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 ;; mailbox-list = "(" [mbx-list-flags] ")" SP |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2503 ;; (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
|
2504 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2505 ;; 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
|
2506 ;; *(SP mbx-list-oflag) / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2507 ;; 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
|
2508 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2509 ;; mbx-list-oflag = "\Noinferiors" / flag-extension |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2510 ;; ; 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
|
2511 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2512 ;; mbx-list-sflag = "\Noselect" / "\Marked" / "\Unmarked" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2513 ;; ; 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
|
2514 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2515 ;; 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
|
2516 ;; "\" quoted-specials |
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 ;; quoted-specials = DQUOTE / "\" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2519 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2520 (defun imap-parse-data-list (type) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2521 (let (flags delimiter mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2522 (setq flags (imap-parse-flag-list)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2523 (when (looking-at " NIL\\| \"\\\\?\\(.\\)\"") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2524 (setq delimiter (match-string 1)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2525 (goto-char (1+ (match-end 0))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2526 (when (setq mailbox (imap-parse-mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2527 (imap-mailbox-put type t mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2528 (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
|
2529 (imap-mailbox-put 'delimiter delimiter mailbox))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2530 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2531 ;; msg_att ::= "(" 1#("ENVELOPE" SPACE envelope / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2532 ;; "FLAGS" SPACE "(" #(flag / "\Recent") ")" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2533 ;; "INTERNALDATE" SPACE date_time / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2534 ;; "RFC822" [".HEADER" / ".TEXT"] SPACE nstring / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2535 ;; "RFC822.SIZE" SPACE number / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2536 ;; "BODY" ["STRUCTURE"] SPACE body / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2537 ;; "BODY" section ["<" number ">"] SPACE nstring / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2538 ;; "UID" SPACE uniqueid) ")" |
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 ;; 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
|
2541 ;; SPACE time SPACE zone <"> |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2542 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2543 ;; 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
|
2544 ;; ["." (section_text / "MIME")])] "]" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2545 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2546 ;; section_text ::= "HEADER" / "HEADER.FIELDS" [".NOT"] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2547 ;; SPACE header_list / "TEXT" |
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 ;; header_fld_name ::= astring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2550 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2551 ;; header_list ::= "(" 1#header_fld_name ")" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2552 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2553 (defsubst imap-parse-header-list () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2554 (when (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2555 (let (strlist) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2556 (while (not (eq (char-after) ?\))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2557 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2558 (push (imap-parse-astring) strlist)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2559 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2560 (nreverse strlist)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2561 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2562 (defsubst imap-parse-fetch-body-section () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2563 (let ((section |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2564 (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
|
2565 (if (eq (char-before) ? ) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2566 (prog1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2567 (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
|
2568 (search-forward "]" nil t)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2569 section))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2570 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2571 (defun imap-parse-fetch (response) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2572 (when (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2573 (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
|
2574 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
|
2575 ;; 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
|
2576 ;; 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
|
2577 (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
|
2578 (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
|
2579 (unless (= moved 0) (backward-char)))) |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2580 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2581 (let ((token (read (current-buffer)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2582 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2583 (cond ((eq token 'UID) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2584 (setq uid (condition-case () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2585 (read (current-buffer)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2586 (error)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2587 ((eq token 'FLAGS) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2588 (setq flags (imap-parse-flag-list)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2589 (if (not flags) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2590 (setq flags-empty 't))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2591 ((eq token 'ENVELOPE) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2592 (setq envelope (imap-parse-envelope))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2593 ((eq token 'INTERNALDATE) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2594 (setq internaldate (imap-parse-string))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2595 ((eq token 'RFC822) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2596 (setq rfc822 (imap-parse-nstring))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2597 ((eq token 'RFC822.HEADER) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2598 (setq rfc822header (imap-parse-nstring))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2599 ((eq token 'RFC822.TEXT) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2600 (setq rfc822text (imap-parse-nstring))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2601 ((eq token 'RFC822.SIZE) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2602 (setq rfc822size (read (current-buffer)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2603 ((eq token 'BODY) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2604 (if (eq (char-before) ?\[) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2605 (push (list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2606 (upcase (imap-parse-fetch-body-section)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2607 (and (eq (char-after) ?<) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2608 (buffer-substring (1+ (point)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2609 (search-forward ">" nil t))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2610 (progn (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2611 (imap-parse-nstring))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2612 bodydetail) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2613 (setq body (imap-parse-body)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2614 ((eq token 'BODYSTRUCTURE) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2615 (setq bodystructure (imap-parse-body)))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2616 (when uid |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2617 (setq imap-current-message uid) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2618 (imap-message-put uid 'UID uid) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2619 (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
|
2620 (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
|
2621 (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
|
2622 (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
|
2623 (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
|
2624 (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
|
2625 (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
|
2626 (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
|
2627 (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
|
2628 (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
|
2629 (run-hooks 'imap-fetch-data-hook))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2630 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2631 ;; mailbox-data = ... |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2632 ;; "STATUS" SP mailbox SP "(" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2633 ;; [status-att SP number |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2634 ;; *(SP status-att SP number)] ")" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2635 ;; ... |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2636 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2637 ;; status-att = "MESSAGES" / "RECENT" / "UIDNEXT" / "UIDVALIDITY" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2638 ;; "UNSEEN" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2639 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2640 (defun imap-parse-status () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2641 (let ((mailbox (imap-parse-mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2642 (if (eq (char-after) ? ) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2643 (forward-char)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2644 (when (and mailbox (eq (char-after) ?\()) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2645 (while (and (not (eq (char-after) ?\))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2646 (or (forward-char) t) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2647 (looking-at "\\([A-Za-z]+\\) ")) |
87097 | 2648 (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
|
2649 (goto-char (match-end 0)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2650 (cond ((string= token "MESSAGES") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2651 (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
|
2652 ((string= token "RECENT") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2653 (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
|
2654 ((string= token "UIDNEXT") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2655 (and (looking-at "[0-9]+") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2656 (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
|
2657 (goto-char (match-end 0)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2658 ((string= token "UIDVALIDITY") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2659 (and (looking-at "[0-9]+") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2660 (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
|
2661 (goto-char (match-end 0)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2662 ((string= token "UNSEEN") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2663 (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
|
2664 (t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2665 (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
|
2666 token mailbox) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2667 (read (current-buffer))))))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2668 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2669 ;; 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
|
2670 ;; rights) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2671 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2672 ;; identifier ::= astring |
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 ;; rights ::= astring |
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 (defun imap-parse-acl () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2677 (let ((mailbox (imap-parse-mailbox)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2678 identifier rights acl) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2679 (while (eq (char-after) ?\ ) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2680 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2681 (setq identifier (imap-parse-astring)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2682 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2683 (setq rights (imap-parse-astring)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2684 (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
|
2685 (imap-mailbox-put 'acl acl mailbox))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2686 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2687 ;; flag-list = "(" [flag *(SP flag)] ")" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2688 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2689 ;; flag = "\Answered" / "\Flagged" / "\Deleted" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2690 ;; "\Seen" / "\Draft" / flag-keyword / flag-extension |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2691 ;; ; Does not include "\Recent" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2692 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2693 ;; flag-keyword = atom |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2694 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2695 ;; flag-extension = "\" atom |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2696 ;; ; Future expansion. Client implementations |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2697 ;; ; MUST accept flag-extension flags. Server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2698 ;; ; implementations MUST NOT generate |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2699 ;; ; 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
|
2700 ;; ; future standard or standards-track |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2701 ;; ; revisions of this specification. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2702 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2703 (defun imap-parse-flag-list () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2704 (let (flag-list start) |
100993 | 2705 (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
|
2706 (while (and (not (eq (char-after) ?\))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2707 (setq start (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2708 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2709 ;; next line for Courier IMAP bug. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2710 (skip-chars-forward " ") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2711 (point))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2712 (> (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
|
2713 (push (buffer-substring start (point)) flag-list)) |
100993 | 2714 (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
|
2715 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2716 (nreverse flag-list))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2717 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2718 ;; 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
|
2719 ;; 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
|
2720 ;; 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
|
2721 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2722 ;; env-bcc = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2723 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2724 ;; env-cc = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2725 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2726 ;; env-date = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2727 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2728 ;; env-from = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2729 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2730 ;; env-in-reply-to = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2731 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2732 ;; env-message-id = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2733 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2734 ;; env-reply-to = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2735 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2736 ;; env-sender = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2737 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2738 ;; env-subject = nstring |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2739 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2740 ;; env-to = "(" 1*address ")" / nil |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2741 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2742 (defun imap-parse-envelope () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2743 (when (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2744 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2745 (vector (prog1 (imap-parse-nstring) ;; date |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2746 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2747 (prog1 (imap-parse-nstring) ;; subject |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2748 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2749 (prog1 (imap-parse-address-list) ;; from |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2750 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2751 (prog1 (imap-parse-address-list) ;; sender |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2752 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2753 (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
|
2754 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2755 (prog1 (imap-parse-address-list) ;; to |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2756 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2757 (prog1 (imap-parse-address-list) ;; cc |
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 (prog1 (imap-parse-address-list) ;; bcc |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2760 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2761 (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
|
2762 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2763 (prog1 (imap-parse-nstring) ;; message-id |
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 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2766 ;; 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
|
2767 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2768 (defsubst imap-parse-string-list () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2769 (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
|
2770 (let (strlist str) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2771 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2772 (while (setq str (imap-parse-string)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2773 (push str strlist) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2774 ;; 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
|
2775 ;; between body-fld-param's sometimes |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2776 (or (eq (char-after) ?\") |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2777 (imap-forward))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2778 (nreverse strlist))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2779 ((imap-parse-nil) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2780 nil))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2781 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2782 ;; body-extension = nstring / number / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2783 ;; "(" body-extension *(SP body-extension) ")" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2784 ;; ; Future expansion. Client implementations |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2785 ;; ; MUST accept body-extension fields. Server |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2786 ;; ; implementations MUST NOT generate |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2787 ;; ; 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
|
2788 ;; ; future standard or standards-track |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2789 ;; ; revisions of this specification. |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2790 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2791 (defun imap-parse-body-extension () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2792 (if (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2793 (let (b-e) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2794 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2795 (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
|
2796 (while (eq (char-after) ?\ ) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2797 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2798 (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
|
2799 (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
|
2800 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2801 (nreverse b-e)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2802 (or (imap-parse-number) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2803 (imap-parse-nstring)))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2804 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2805 ;; 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
|
2806 ;; *(SP body-extension)]] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2807 ;; ; 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
|
2808 ;; ; "BODY" fetch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2809 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2810 ;; 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
|
2811 ;; *(SP body-extension)]] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2812 ;; ; 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
|
2813 ;; ; "BODY" fetch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2814 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2815 (defsubst imap-parse-body-ext () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2816 (let (ext) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2817 (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
|
2818 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2819 (let (dsp) |
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 (progn |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2822 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2823 (push (imap-parse-string) dsp) |
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 (push (imap-parse-string-list) dsp) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2826 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2827 ;; 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
|
2828 ;; (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
|
2829 (imap-parse-nil)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2830 (push (nreverse dsp) ext)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2831 (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
|
2832 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2833 (if (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2834 (push (imap-parse-string-list) ext) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2835 (push (imap-parse-nstring) ext)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2836 (while (eq (char-after) ?\ ) ;; body-extension |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2837 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2838 (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
|
2839 ext)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2840 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2841 ;; 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
|
2842 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2843 ;; 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
|
2844 ;; *(SP body-extension)]] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2845 ;; ; 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
|
2846 ;; ; "BODY" fetch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2847 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2848 ;; 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
|
2849 ;; *(SP body-extension)]] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2850 ;; ; 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
|
2851 ;; ; "BODY" fetch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2852 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2853 ;; 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
|
2854 ;; 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
|
2855 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2856 ;; body-fld-desc = 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-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
|
2859 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2860 ;; 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
|
2861 ;; "QUOTED-PRINTABLE") DQUOTE) / string |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2862 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2863 ;; body-fld-id = nstring |
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-fld-lang = nstring / "(" string *(SP string) ")" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2866 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2867 ;; body-fld-lines = number |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2868 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2869 ;; body-fld-md5 = nstring |
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-fld-octets = number |
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-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
|
2874 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2875 ;; 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
|
2876 ;; [SP body-ext-1part] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2877 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2878 ;; 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
|
2879 ;; ; MESSAGE subtype MUST NOT be "RFC822" |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2880 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2881 ;; 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
|
2882 ;; SP body SP body-fld-lines |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2883 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2884 ;; 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
|
2885 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2886 ;; 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
|
2887 ;; [SP body-ext-mpart] |
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 ;; media-basic = ((DQUOTE ("APPLICATION" / "AUDIO" / "IMAGE" / |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2890 ;; "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
|
2891 ;; ; Defined in [MIME-IMT] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2892 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2893 ;; 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
|
2894 ;; ; Defined in [MIME-IMT] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2895 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2896 ;; media-subtype = string |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2897 ;; ; Defined in [MIME-IMT] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2898 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2899 ;; 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
|
2900 ;; ; Defined in [MIME-IMT] |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2901 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2902 (defun imap-parse-body () |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2903 (let (body) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2904 (when (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2905 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2906 (if (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2907 (let (subbody) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2908 (while (and (eq (char-after) ?\() |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2909 (setq subbody (imap-parse-body))) |
100993 | 2910 ;; 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
|
2911 ;; parts in multiparts |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2912 (when (and (eq (char-after) ?\ ) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2913 (eq (char-after (1+ (point))) ?\()) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2914 (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2915 (push subbody body)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2916 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2917 (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
|
2918 (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
|
2919 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2920 (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
|
2921 (push (imap-parse-string-list) body) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2922 (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
|
2923 (setq body |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2924 (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
|
2925 (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
|
2926 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2927 (nreverse body)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2928 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2929 (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
|
2930 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2931 (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
|
2932 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2933 ;; next line for Sun SIMS bug |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2934 (and (eq (char-after) ? ) (imap-forward)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2935 (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
|
2936 (push (imap-parse-string-list) body) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2937 (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
|
2938 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2939 (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
|
2940 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2941 (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
|
2942 (imap-forward) |
100993 | 2943 ;; Next `or' for Sun SIMS bug. It regards body-fld-enc as a |
2944 ;; 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
|
2945 ;; as the standard says. |
100993 | 2946 ;; 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
|
2947 (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
|
2948 (imap-forward) |
100993 | 2949 ;; Exchange 2007 can return -1, contrary to the spec... |
2950 (if (eq (char-after) ?-) | |
2951 (progn | |
2952 (skip-chars-forward "-0-9") | |
2953 (push nil body)) | |
2954 (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
|
2955 |
100993 | 2956 ;; Ok, we're done parsing the required parts, what comes now is one of |
2957 ;; three things: | |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2958 ;; |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2959 ;; 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
|
2960 ;; 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
|
2961 ;; 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
|
2962 ;; |
100993 | 2963 ;; The problem is that the two first are in turn optionally followed |
2964 ;; 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
|
2965 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2966 (when (eq (char-after) ?\ ) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2967 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2968 (let (lines) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2969 (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
|
2970 (push (imap-parse-envelope) body) ;; envelope |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2971 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2972 (push (imap-parse-body) body) ;; body |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2973 ;; 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
|
2974 ;; 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
|
2975 (if (eq (char-after) ?\)) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2976 (push 0 body) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2977 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2978 (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
|
2979 ((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
|
2980 (push lines body)) ;; body-fld-lines |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2981 (t |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2982 (backward-char))))) ;; no match... |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2983 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2984 ;; ...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
|
2985 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2986 (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
|
2987 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2988 (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
|
2989 (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
|
2990 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2991 (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
|
2992 (imap-forward) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2993 (nreverse body))))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2994 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2995 (when imap-debug ; (untrace-all) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2996 (require 'trace) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
2997 (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
|
2998 (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
|
2999 '( |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3000 imap-utf7-encode |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3001 imap-utf7-decode |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3002 imap-error-text |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3003 imap-kerberos4s-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3004 imap-kerberos4-open |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3005 imap-ssl-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3006 imap-ssl-open |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3007 imap-network-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3008 imap-network-open |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3009 imap-interactive-login |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3010 imap-kerberos4a-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3011 imap-kerberos4-auth |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3012 imap-cram-md5-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3013 imap-cram-md5-auth |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3014 imap-login-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3015 imap-login-auth |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3016 imap-anonymous-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3017 imap-anonymous-auth |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3018 imap-open-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3019 imap-open |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3020 imap-opened |
92694 | 3021 imap-ping-server |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3022 imap-authenticate |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3023 imap-close |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3024 imap-capability |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3025 imap-namespace |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3026 imap-send-command-wait |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3027 imap-mailbox-put |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3028 imap-mailbox-get |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3029 imap-mailbox-map-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3030 imap-mailbox-map |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3031 imap-current-mailbox |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3032 imap-current-mailbox-p-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3033 imap-current-mailbox-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3034 imap-mailbox-select-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3035 imap-mailbox-select |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3036 imap-mailbox-examine-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3037 imap-mailbox-examine |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3038 imap-mailbox-unselect |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3039 imap-mailbox-expunge |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3040 imap-mailbox-close |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3041 imap-mailbox-create-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3042 imap-mailbox-create |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3043 imap-mailbox-delete |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3044 imap-mailbox-rename |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3045 imap-mailbox-lsub |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3046 imap-mailbox-list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3047 imap-mailbox-subscribe |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3048 imap-mailbox-unsubscribe |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3049 imap-mailbox-status |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3050 imap-mailbox-acl-get |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3051 imap-mailbox-acl-set |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3052 imap-mailbox-acl-delete |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3053 imap-current-message |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3054 imap-list-to-message-set |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3055 imap-fetch-asynch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3056 imap-fetch |
101804 | 3057 imap-fetch-safe |
86442
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3058 imap-message-put |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3059 imap-message-get |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3060 imap-message-map |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3061 imap-search |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3062 imap-message-flag-permanent-p |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3063 imap-message-flags-set |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3064 imap-message-flags-del |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3065 imap-message-flags-add |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3066 imap-message-copyuid-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3067 imap-message-copyuid |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3068 imap-message-copy |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3069 imap-message-appenduid-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3070 imap-message-appenduid |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3071 imap-message-append |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3072 imap-body-lines |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3073 imap-envelope-from |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3074 imap-send-command-1 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3075 imap-send-command |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3076 imap-wait-for-tag |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3077 imap-sentinel |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3078 imap-find-next-line |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3079 imap-arrival-filter |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3080 imap-parse-greeting |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3081 imap-parse-response |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3082 imap-parse-resp-text |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3083 imap-parse-resp-text-code |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3084 imap-parse-data-list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3085 imap-parse-fetch |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3086 imap-parse-status |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3087 imap-parse-acl |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3088 imap-parse-flag-list |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3089 imap-parse-envelope |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3090 imap-parse-body-extension |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3091 imap-parse-body |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3092 ))) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3093 |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3094 (provide 'imap) |
3082569ef3c5
Move imap.el from lisp/gnus/ to lisp/net/.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
3095 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93820
diff
changeset
|
3096 ;; 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
|
3097 ;;; imap.el ends here |