Mercurial > emacs
annotate lisp/gnus/nnimap.el @ 107427:ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
The general approach is to autoload rather than require, and to
require in the specific functions rather than the file. (Bug#5642)
* url/url.el: Move mailcap require earlier in the file.
* gnus/gmm-utils.el: Don't require wid-edit.
(widget-create-child-value, widget-convert, widget-default-get):
Autoload.
* gnus/gnus-util.el: Don't require time-date, netrc.
(message-fetch-field, gnus-group-name-decode): Declare rather than
autoloading.
(gnus-fetch-field): Require message.
(gnus-decode-newsgroups): Require gnus-group.
* gnus/ietf-drums.el: Don't require time-date.
* gnus/message.el: Don't require hashcash, canlock, ecomplete.
Do require mail-utils. Require nnheader only when compiling.
(smtpmail-default-smtp-server): Remove declaration.
(message-send-mail-function): Check smtpmail-default-smtp-server
is bound rather than requiring smtpmail.
(message-auto-save-directory, message-insert-signature): Use
expand-file-name rather than nnheader-concat.
(nnheader-insert-file-contents): Autoload.
(hashcash-wait-async): Declare.
(message-send-mail): Only call gnus-setup-posting-charset if
gnus-group-posting-charset-alist is bound. Require hashcash if needed.
(message-send-mail-with-sendmail): Require sendmail.
(canlock-password, canlock-password-for-verify): Declare.
(message-canlock-password): Require canlock.
(nnheader-get-report): Autoload.
(gnus-setup-posting-charset): Declare.
(message-send-news): Require gnus-msg.
(message-make-references, message-make-in-reply-to): Use mail-header-id
rather than the alias mail-header-message-id.
(ecomplete-add-item, ecomplete-save): Declare.
(message-put-addresses-in-ecomplete): Require ecomplete.
(ecomplete-display-matches): Autoload.
* gnus/mm-decode.el: Don't require mailcap, gnus-util.
(gnus-map-function, gnus-replace-in-string, gnus-read-shell-command)
(message-fetch-field, mailcap-parse-mailcaps, mailcap-mime-info):
Autoload.
(mailcap-mime-extensions): Declare.
* gnus/mm-encode.el: Don't require mailcap.
(mailcap-extension-to-mime): Autoload.
* gnus/mml-sec.el: Don't require password-cache.
* gnus/mml.el (gnus-setup-posting-charset): Declare rather than autoload.
(mailcap-parse-mimetypes, mailcap-mime-types): Declare.
(mml-minibuffer-read-type): Require mailcap.
(mml-preview): Require gnus-msg.
* gnus/mml1991.el: Require password-cache.
(password-cache-expiry): Remove declaration.
* gnus/mml2015.el: Require password-cache.
(password-cache-expiry): Remove declaration.
* gnus/nneething.el (mailcap): Require mailcap.
* gnus/nnheader.el: (declare-function): Add compatibility stub.
(message-remove-header): Declare rather than autoload.
(nnheader-replace-header): Require message.
* gnus/nnimap.el (declare-function): Add compatibility stub.
(netrc-parse, netrc-machine-user-or-password): Declare.
(nnimap-open-connection): Require netrc.
* gnus/nntp.el (declare-function): Add compatibility stub.
(netrc-parse, netrc-machine, netrc-get): Declare.
(nntp-send-authinfo): Require netrc.
* gnus/rfc2047.el: Don't require qp.
(quoted-printable-encode-region, quoted-printable-decode-string):
Autoload.
* gnus/sieve-mode.el: Don't require easymenu.
(easy-menu-add-item): Autoload it.
* gnus/spam-stat.el (time-to-number-of-days): Autoload it.
* password-cache.el (password-cache, password-cache-expiry):
Autoload.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 18 Mar 2010 19:55:37 -0700 |
parents | 1d1d5d9bd884 |
children | 0fe940324254 |
rev | line source |
---|---|
31717 | 1 ;;; nnimap.el --- imap backend for Gnus |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
2 |
95820
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
94980
diff
changeset
|
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
106815 | 4 ;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
31717 | 5 |
100993 | 6 ;; Author: Simon Josefsson <simon@josefsson.org> |
31717 | 7 ;; Jim Radford <radford@robby.caltech.edu> |
8 ;; Keywords: mail | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93820
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
31717 | 13 ;; it under the terms of the GNU General Public License as published by |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93820
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93820
diff
changeset
|
15 ;; (at your option) any later version. |
31717 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93820
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
31717 | 20 ;; GNU General Public License for more details. |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93820
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
31717 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; Todo, major things: | |
28 ;; | |
29 ;; o Fix Gnus to view correct number of unread/total articles in group buffer | |
30 ;; o Fix Gnus to handle leading '.' in group names (fixed?) | |
31 ;; o Finish disconnected mode (moving articles between mailboxes unplugged) | |
32 ;; o Sieve | |
33 ;; o MIME (partial article fetches) | |
34 ;; o Split to other backends, different split rules for different | |
35 ;; servers/inboxes | |
36 ;; | |
37 ;; Todo, minor things: | |
38 ;; | |
39 ;; o Don't require half of Gnus -- backends should be standalone | |
40 ;; o Verify that we don't use IMAP4rev1 specific things (RFC2060 App B) | |
41 ;; o Dont uid fetch 1,* in nnimap-retrive-groups (slow) | |
42 ;; o Split up big fetches (1,* header especially) in smaller chunks | |
43 ;; o What do I do with gnus-newsgroup-*? | |
44 ;; o Tell Gnus about new groups (how can we tell?) | |
48588 | 45 ;; o Respooling (fix Gnus?) (unnecessary?) |
31717 | 46 ;; o Add support for the following: (if applicable) |
47 ;; request-list-newsgroups, request-regenerate | |
48 ;; list-active-group, | |
49 ;; request-associate-buffer, request-restore-buffer, | |
50 ;; o Do The Right Thing when UIDVALIDITY changes (what's the right thing?) | |
51 ;; o Support RFC2221 (Login referrals) | |
52 ;; o IMAP2BIS compatibility? (RFC2061) | |
53 ;; o ACAP stuff (perhaps a different project, would be nice to ACAPify | |
54 ;; .newsrc.eld) | |
55 ;; o What about Gnus's article editing, can we support it? NO! | |
56 ;; o Use \Draft to support the draft group?? | |
57 ;; o Duplicate suppression | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
58 ;; o Rewrite UID SEARCH UID X as UID FETCH X (UID) for those with slow servers |
31717 | 59 |
60 ;;; Code: | |
61 | |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
62 ;; For Emacs < 22.2. |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
63 (eval-and-compile |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
64 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
65 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
66 (require 'imap) |
31717 | 67 (require 'nnoo) |
68 (require 'nnmail) | |
69 (require 'nnheader) | |
70 (require 'mm-util) | |
71 (require 'gnus) | |
72 (require 'gnus-range) | |
73 (require 'gnus-start) | |
74 (require 'gnus-int) | |
75 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
76 (eval-when-compile (require 'cl)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
77 |
95820
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
94980
diff
changeset
|
78 (autoload 'auth-source-user-or-password "auth-source") |
94837 | 79 |
31717 | 80 (nnoo-declare nnimap) |
81 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
82 (defconst nnimap-version "nnimap 1.0") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
83 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
84 (defgroup nnimap nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
85 "Reading IMAP mail with Gnus." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
86 :group 'gnus) |
31717 | 87 |
88 (defvoo nnimap-address nil | |
89 "Address of physical IMAP server. If nil, use the virtual server's name.") | |
90 | |
91 (defvoo nnimap-server-port nil | |
92 "Port number on physical IMAP server. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
93 If nil, defaults to 993 for TLS/SSL connections and 143 otherwise.") |
31717 | 94 |
95 ;; Splitting variables | |
96 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
97 (defcustom nnimap-split-crosspost t |
31717 | 98 "If non-nil, do crossposting if several split methods match the mail. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
99 If nil, the first match found will be used." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
100 :group 'nnimap |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
101 :type 'boolean) |
31717 | 102 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
103 (defcustom nnimap-split-inbox nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
104 "Name of mailbox to split mail from. |
31717 | 105 |
106 Mail is read from this mailbox and split according to rules in | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
107 `nnimap-split-rule'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
108 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
109 This can be a string or a list of strings." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
110 :group 'nnimap |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
111 :type '(choice (string) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
112 (repeat string))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
113 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
114 (define-widget 'nnimap-strict-function 'function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
115 "This widget only matches values that are functionp. |
31717 | 116 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
117 Warning: This means that a value that is the symbol of a not yet |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
118 loaded function will not match. Use with care." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
119 :match 'nnimap-strict-function-match) |
31717 | 120 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
121 (defun nnimap-strict-function-match (widget value) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
122 "Ignoring WIDGET, match if VALUE is a function." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
123 (functionp value)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
124 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
125 (defcustom nnimap-split-rule nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
126 "Mail will be split according to these rules. |
31717 | 127 |
128 Mail is read from mailbox(es) specified in `nnimap-split-inbox'. | |
129 | |
130 If you'd like, for instance, one mail group for mail from the | |
131 \"gnus-imap\" mailing list, one group for junk mail and leave | |
132 everything else in the incoming mailbox, you could do something like | |
133 this: | |
134 | |
48216
e5026995ea82
(nnimap-split-rule): Doc fix - escape open parens in column 0.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
44512
diff
changeset
|
135 \(setq nnimap-split-rule '((\"INBOX.gnus-imap\" \"From:.*gnus-imap\") |
31717 | 136 (\"INBOX.junk\" \"Subject:.*buy\"))) |
137 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
138 As you can see, `nnimap-split-rule' is a list of lists, where the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
139 first element in each \"rule\" is the name of the IMAP mailbox (or the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
140 symbol `junk' if you want to remove the mail), and the second is a |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
141 regexp that nnimap will try to match on the header to find a fit. |
31717 | 142 |
143 The second element can also be a function. In that case, it will be | |
144 called narrowed to the headers with the first element of the rule as | |
145 the argument. It should return a non-nil value if it thinks that the | |
146 mail belongs in that group. | |
147 | |
148 This variable can also have a function as its value, the function will | |
149 be called with the headers narrowed and should return a group where it | |
150 thinks the article should be splitted to. See `nnimap-split-fancy'. | |
151 | |
152 To allow for different split rules on different virtual servers, and | |
153 even different split rules in different inboxes on the same server, | |
154 the syntax of this variable have been extended along the lines of: | |
155 | |
48216
e5026995ea82
(nnimap-split-rule): Doc fix - escape open parens in column 0.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
44512
diff
changeset
|
156 \(setq nnimap-split-rule |
31717 | 157 '((\"my1server\" (\".*\" ((\"ding\" \"ding@gnus.org\") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
158 (\"junk\" \"From:.*Simon\"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
159 (\"my2server\" (\"INBOX\" nnimap-split-fancy)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
160 (\"my[34]server\" (\".*\" ((\"private\" \"To:.*Simon\") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
161 (\"junk\" my-junk-func))))) |
31717 | 162 |
163 The virtual server name is in fact a regexp, so that the same rules | |
164 may apply to several servers. In the example, the servers | |
165 \"my3server\" and \"my4server\" both use the same rules. Similarly, | |
166 the inbox string is also a regexp. The actual splitting rules are as | |
167 before, either a function, or a list with group/regexp or | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
168 group/function elements." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
169 :group 'nnimap |
100993 | 170 ;; FIXME: Doesn't allow `("my2server" ("INBOX" nnimap-split-fancy))' |
171 ;; per example above. -- fx | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
172 :type '(choice :tag "Rule type" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
173 (repeat :menu-tag "Single-server" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
174 :tag "Single-server list" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
175 (list (string :tag "Mailbox") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
176 (choice :tag "Predicate" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
177 (regexp :tag "A regexp") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
178 (nnimap-strict-function :tag "A function")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
179 (choice :menu-tag "A function" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
180 :tag "A function" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
181 (function-item nnimap-split-fancy) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
182 (function-item nnmail-split-fancy) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
183 (nnimap-strict-function :tag "User-defined function")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
184 (repeat :menu-tag "Multi-server (extended)" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
185 :tag "Multi-server list" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
186 (list (regexp :tag "Server regexp") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
187 (list (regexp :tag "Incoming Mailbox regexp") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
188 (repeat :tag "Rules for matching server(s) and mailbox(es)" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
189 (list (string :tag "Destination mailbox") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
190 (choice :tag "Predicate" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
191 (regexp :tag "A Regexp") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
192 (nnimap-strict-function :tag "A Function"))))))))) |
31717 | 193 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
194 (defcustom nnimap-split-predicate "UNSEEN UNDELETED" |
31717 | 195 "The predicate used to find articles to split. |
196 If you use another IMAP client to peek on articles but always would | |
197 like nnimap to split them once it's started, you could change this to | |
198 \"UNDELETED\". Other available predicates are available in | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
199 RFC2060 section 6.4.4." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
200 :group 'nnimap |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
201 :type 'string) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
202 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
203 (defcustom nnimap-split-fancy nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
204 "Like the variable `nnmail-split-fancy'." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
205 :group 'nnimap |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
206 :type 'sexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
207 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
208 (defvar nnimap-split-download-body-default nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
209 "Internal variable with default value for `nnimap-split-download-body'.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
210 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
211 (defcustom nnimap-split-download-body 'default |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
212 "Whether to download entire articles during splitting. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
213 This is generally not required, and will slow things down considerably. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
214 You may need it if you want to use an advanced splitting function that |
63617
f02351c457a6
(nnimap-split-download-body): Fix spellings.
Juanma Barranquero <lekktu@gmail.com>
parents:
61463
diff
changeset
|
215 analyzes the body before splitting the article. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
216 If this variable is nil, bodies will not be downloaded; if this |
79419
12805c0f0e4e
(nnimap-split-download-body): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
78486
diff
changeset
|
217 variable is the symbol `default' the default behavior is |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
218 used (which currently is nil, unless you use a statistical |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
219 spam.el test); if this variable is another non-nil value bodies |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
220 will be downloaded." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
221 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
222 :group 'nnimap |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
223 :type '(choice (const :tag "Let system decide" deault) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
224 boolean)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
225 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
226 ;; Performance / bug workaround variables |
31717 | 227 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
228 (defcustom nnimap-close-asynchronous t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
229 "Close mailboxes asynchronously in `nnimap-close-group'. |
57153
497f0d2ca551
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-558
Miles Bader <miles@gnu.org>
parents:
57120
diff
changeset
|
230 This means that errors caught by nnimap when closing the mailbox will |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
231 not prevent Gnus from updating the group status, which may be harmful. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
232 However, it increases speed." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
233 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
234 :type 'boolean |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
235 :group 'nnimap) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
236 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
237 (defcustom nnimap-dont-close t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
238 "Never close mailboxes. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
239 This increases the speed of closing mailboxes (quiting group) but may |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
240 decrease the speed of selecting another mailbox later. Re-selecting |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
241 the same mailbox will be faster though." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
242 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
243 :type 'boolean |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
244 :group 'nnimap) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
245 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
246 (defcustom nnimap-retrieve-groups-asynchronous t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
247 "Send asynchronous STATUS commands for each mailbox before checking mail. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
248 If you have mailboxes that rarely receives mail, this speeds up new |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
249 mail checking. It works by first sending STATUS commands for each |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
250 mailbox, and then only checking groups which has a modified UIDNEXT |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
251 more carefully for new mail. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
252 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
253 In summary, the default is O((1-p)*k+p*n) and changing it to nil makes |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
254 it O(n). If p is small, then the default is probably faster." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
255 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
256 :type 'boolean |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
257 :group 'nnimap) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
258 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
259 (defvoo nnimap-need-unselect-to-notice-new-mail t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
260 "Unselect mailboxes before looking for new mail in them. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
261 Some servers seem to need this under some circumstances.") |
31717 | 262 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
263 (defvoo nnimap-logout-timeout nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
264 "Close server immediately if it can't logout in this number of seconds. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
265 If it is nil, never close server until logout completes. This variable |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
266 overrides `imap-logout-timeout' on a per-server basis.") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
267 |
31717 | 268 ;; Authorization / Privacy variables |
269 | |
270 (defvoo nnimap-auth-method nil | |
271 "Obsolete.") | |
272 | |
273 (defvoo nnimap-stream nil | |
274 "How nnimap will connect to the server. | |
275 | |
276 The default, nil, will try to use the \"best\" method the server can | |
277 handle. | |
278 | |
279 Change this if | |
280 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
281 1) you want to connect with TLS/SSL. The TLS/SSL integration |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
282 with IMAP is suboptimal so you'll have to tell it |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
283 specifically. |
31717 | 284 |
285 2) your server is more capable than your environment -- i.e. your | |
286 server accept Kerberos login's but you haven't installed the | |
287 `imtest' program or your machine isn't configured for Kerberos. | |
288 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
289 Possible choices: gssapi, kerberos4, starttls, tls, ssl, network, shell. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
290 See also `imap-streams' and `imap-stream-alist'.") |
31717 | 291 |
292 (defvoo nnimap-authenticator nil | |
293 "How nnimap authenticate itself to the server. | |
294 | |
295 The default, nil, will try to use the \"best\" method the server can | |
296 handle. | |
297 | |
298 There is only one reason for fiddling with this variable, and that is | |
299 if your server is more capable than your environment -- i.e. you | |
300 connect to a server that accept Kerberos login's but you haven't | |
301 installed the `imtest' program or your machine isn't configured for | |
302 Kerberos. | |
303 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
304 Possible choices: gssapi, kerberos4, digest-md5, cram-md5, login, anonymous. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
305 See also `imap-authenticators' and `imap-authenticator-alist'") |
31717 | 306 |
307 (defvoo nnimap-directory (nnheader-concat gnus-directory "overview/") | |
308 "Directory to keep NOV cache files for nnimap groups. | |
309 See also `nnimap-nov-file-name'.") | |
310 | |
311 (defvoo nnimap-nov-file-name "nnimap." | |
312 "NOV cache base filename. | |
313 The group name and `nnimap-nov-file-name-suffix' will be appended. A | |
314 typical complete file name would be | |
315 ~/News/overview/nnimap.pdc.INBOX.ding.nov, or | |
316 ~/News/overview/nnimap/pdc/INBOX/ding/nov if | |
317 `nnmail-use-long-file-names' is nil") | |
318 | |
319 (defvoo nnimap-nov-file-name-suffix ".novcache" | |
320 "Suffix for NOV cache base filename.") | |
321 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
322 (defvoo nnimap-nov-is-evil gnus-agent |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
323 "If non-nil, never generate or use a local nov database for this backend. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
324 Using nov databases should speed up header fetching considerably. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
325 However, it will invoke a UID SEARCH UID command on the server, and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
326 some servers implement this command inefficiently by opening each and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
327 every message in the group, thus making it quite slow. |
31717 | 328 Unlike other backends, you do not need to take special care if you |
329 flip this variable.") | |
330 | |
66573
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
331 (defvoo nnimap-search-uids-not-since-is-evil nil |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
332 "If non-nil, avoid \"UID SEARCH UID ... NOT SINCE\" queries when expiring. |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
333 Instead, use \"UID SEARCH SINCE\" to prune the list of expirable |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
334 articles within Gnus. This seems to be faster on Courier in some cases.") |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
335 |
31717 | 336 (defvoo nnimap-expunge-on-close 'always ; 'ask, 'never |
337 "Whether to expunge a group when it is closed. | |
338 When a IMAP group with articles marked for deletion is closed, this | |
339 variable determine if nnimap should actually remove the articles or | |
340 not. | |
341 | |
342 If always, nnimap always perform a expunge when closing the group. | |
343 If never, nnimap never expunges articles marked for deletion. | |
344 If ask, nnimap will ask you if you wish to expunge marked articles. | |
345 | |
346 When setting this variable to `never', you can only expunge articles | |
347 by using `G x' (gnus-group-nnimap-expunge) from the Group buffer.") | |
348 | |
349 (defvoo nnimap-list-pattern "*" | |
350 "A string LIMIT or list of strings with mailbox wildcards used to limit available groups. | |
351 See below for available wildcards. | |
352 | |
353 The LIMIT string can be a cons cell (REFERENCE . LIMIT), where | |
354 REFERENCE will be passed as the first parameter to LIST/LSUB. The | |
355 semantics of this are server specific, on the University of Washington | |
356 server you can specify a directory. | |
357 | |
358 Example: | |
359 '(\"INBOX\" \"mail/*\" (\"~friend/mail/\" . \"list/*\")) | |
360 | |
361 There are two wildcards * and %. * matches everything, % matches | |
362 everything in the current hierarchy.") | |
363 | |
364 (defvoo nnimap-news-groups nil | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
365 "IMAP support a news-like mode, also known as bulletin board mode, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
366 where replies is sent via IMAP instead of SMTP. |
31717 | 367 |
368 This variable should contain a regexp matching groups where you wish | |
369 replies to be stored to the mailbox directly. | |
370 | |
371 Example: | |
372 '(\"^[^I][^N][^B][^O][^X].*$\") | |
373 | |
374 This will match all groups not beginning with \"INBOX\". | |
375 | |
376 Note that there is nothing technically different between mail-like and | |
377 news-like mailboxes. If you wish to have a group with todo items or | |
378 similar which you wouldn't want to set up a mailing list for, you can | |
379 use this to make replies go directly to the group.") | |
380 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
381 (defvoo nnimap-expunge-search-string "UID %s NOT SINCE %s" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
382 "IMAP search command to use for articles that are to be expired. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
383 The first %s is replaced by a UID set of articles to search on, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
384 and the second %s is replaced by a date criterium. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
385 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
386 One useful (and perhaps the only useful) value to change this to would |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
387 be `UID %s NOT SENTSINCE %s' to make nnimap use the Date: header |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
388 instead of the internal date of messages. See section 6.4.4 of RFC |
74984 | 389 2060 for more information on valid strings. |
390 | |
391 However, if `nnimap-search-uids-not-since-is-evil' is true, this | |
392 variable has no effect since the search logic is reversed.") | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
393 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
394 (defvoo nnimap-importantize-dormant t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
395 "If non-nil, mark \"dormant\" articles as \"ticked\" for other IMAP clients. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
396 Note that within Gnus, dormant articles will still (only) be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
397 marked as ticked. This is to make \"dormant\" articles stand out, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
398 just like \"ticked\" articles, in other IMAP clients.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
399 |
31717 | 400 (defvoo nnimap-server-address nil |
401 "Obsolete. Use `nnimap-address'.") | |
402 | |
403 (defcustom nnimap-authinfo-file "~/.authinfo" | |
404 "Authorization information for IMAP servers. In .netrc format." | |
405 :type | |
406 '(choice file | |
407 (repeat :tag "Entries" | |
408 :menu-tag "Inline" | |
409 (list :format "%v" | |
410 :value ("" ("login" . "") ("password" . "")) | |
411 (string :tag "Host") | |
412 (checklist :inline t | |
413 (cons :format "%v" | |
414 (const :format "" "login") | |
415 (string :format "Login: %v")) | |
416 (cons :format "%v" | |
417 (const :format "" "password") | |
56280
5716fec2dbc0
(nnimap-authinfo-file, nnimap-prune-cache): Add :group 'nnimap.
Kim F. Storm <storm@cua.dk>
parents:
55398
diff
changeset
|
418 (string :format "Password: %v")))))) |
5716fec2dbc0
(nnimap-authinfo-file, nnimap-prune-cache): Add :group 'nnimap.
Kim F. Storm <storm@cua.dk>
parents:
55398
diff
changeset
|
419 :group 'nnimap) |
31717 | 420 |
421 (defcustom nnimap-prune-cache t | |
422 "If non-nil, nnimap check whether articles still exist on server before using data stored in NOV cache." | |
56280
5716fec2dbc0
(nnimap-authinfo-file, nnimap-prune-cache): Add :group 'nnimap.
Kim F. Storm <storm@cua.dk>
parents:
55398
diff
changeset
|
423 :type 'boolean |
5716fec2dbc0
(nnimap-authinfo-file, nnimap-prune-cache): Add :group 'nnimap.
Kim F. Storm <storm@cua.dk>
parents:
55398
diff
changeset
|
424 :group 'nnimap) |
31717 | 425 |
426 (defvar nnimap-request-list-method 'imap-mailbox-list | |
427 "Method to use to request a list of all folders from the server. | |
428 If this is 'imap-mailbox-lsub, then use a server-side subscription list to | |
429 restrict visible folders.") | |
430 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
431 (defcustom nnimap-id nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
432 "Plist with client identity to send to server upon login. |
96488
a30459da1bd7
* nnimap.el (nnimap-id):
Juanma Barranquero <lekktu@gmail.com>
parents:
96024
diff
changeset
|
433 A nil value means no information is sent, symbol `no' to disable ID query |
a30459da1bd7
* nnimap.el (nnimap-id):
Juanma Barranquero <lekktu@gmail.com>
parents:
96024
diff
changeset
|
434 altogether, or plist with identifier-value pairs to send to |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
435 server. RFC 2971 describes the list as follows: |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
436 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
437 Any string may be sent as a field, but the following are defined to |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
438 describe certain values that might be sent. Implementations are free |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
439 to send none, any, or all of these. Strings are not case-sensitive. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
440 Field strings MUST NOT be longer than 30 octets. Value strings MUST |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
441 NOT be longer than 1024 octets. Implementations MUST NOT send more |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
442 than 30 field-value pairs. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
443 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
444 name Name of the program |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
445 version Version number of the program |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
446 os Name of the operating system |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
447 os-version Version of the operating system |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
448 vendor Vendor of the client/server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
449 support-url URL to contact for support |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
450 address Postal address of contact/vendor |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
451 date Date program was released, specified as a date-time |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
452 in IMAP4rev1 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
453 command Command used to start the program |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
454 arguments Arguments supplied on the command line, if any |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
455 if any |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
456 environment Description of environment, i.e., UNIX environment |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
457 variables or Windows registry settings |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
458 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
459 Implementations MUST NOT send the same field name more than once. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
460 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
461 An example plist would be '(\"name\" \"Gnus\" \"version\" gnus-version-number |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
462 \"os\" system-configuration \"vendor\" \"GNU\")." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
463 :group 'nnimap |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
464 :type '(choice (const :tag "No information" nil) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
465 (const :tag "Disable ID query" no) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
466 (plist :key-type string :value-type string))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
467 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
468 (defcustom nnimap-debug nil |
100993 | 469 "If non-nil, trace nnimap- functions into `nnimap-debug-buffer'. |
470 Uses `trace-function-background', so you can turn it off with, | |
471 say, `untrace-all'. | |
472 | |
60161
b070535d2416
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-111
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
473 Note that username, passwords and other privacy sensitive |
100993 | 474 information (such as e-mail) may be stored in the buffer. |
475 It is not written to disk, however. Do not enable this | |
476 variable unless you are comfortable with that. | |
477 | |
478 This variable only takes effect when loading the `nnimap' library. | |
479 See also `nnimap-log'." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
480 :group 'nnimap |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
481 :type 'boolean) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
482 |
31717 | 483 ;; Internal variables: |
484 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
485 (defvar nnimap-debug-buffer "*nnimap-debug*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
486 (defvar nnimap-mailbox-info (gnus-make-hashtable 997)) |
31717 | 487 (defvar nnimap-current-move-server nil) |
488 (defvar nnimap-current-move-group nil) | |
489 (defvar nnimap-current-move-article nil) | |
490 (defvar nnimap-length) | |
491 (defvar nnimap-progress-chars '(?| ?/ ?- ?\\)) | |
492 (defvar nnimap-progress-how-often 20) | |
493 (defvar nnimap-counter) | |
494 (defvar nnimap-server-buffer-alist nil) ;; Map server name to buffers. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
495 (defvar nnimap-current-server nil) ;; Current server |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
496 (defvar nnimap-server-buffer nil) ;; Current servers' buffer |
31717 | 497 |
498 | |
499 | |
500 (nnoo-define-basics nnimap) | |
501 | |
502 ;; Utility functions: | |
503 | |
504 (defsubst nnimap-get-server-buffer (server) | |
505 "Return buffer for SERVER, if nil use current server." | |
506 (cadr (assoc (or server nnimap-current-server) nnimap-server-buffer-alist))) | |
507 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
508 (defun nnimap-remove-server-from-buffer-alist (server list) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
509 "Remove SERVER from LIST." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
510 (let (l) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
511 (dolist (e list) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
512 (unless (equal server (car-safe e)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
513 (push e l))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
514 l)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
515 |
31717 | 516 (defun nnimap-possibly-change-server (server) |
517 "Return buffer for SERVER, changing the current server as a side-effect. | |
518 If SERVER is nil, uses the current server." | |
519 (setq nnimap-current-server (or server nnimap-current-server) | |
520 nnimap-server-buffer (nnimap-get-server-buffer nnimap-current-server))) | |
521 | |
522 (defun nnimap-verify-uidvalidity (group server) | |
523 "Verify stored uidvalidity match current one in GROUP on SERVER." | |
524 (let* ((gnusgroup (gnus-group-prefixed-name | |
525 group (gnus-server-to-method | |
526 (format "nnimap:%s" server)))) | |
527 (new-uidvalidity (imap-mailbox-get 'uidvalidity)) | |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
528 (old-uidvalidity (gnus-group-get-parameter gnusgroup 'uidvalidity)) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
529 (dir (file-name-as-directory (expand-file-name nnimap-directory))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
530 (nameuid (nnheader-translate-file-chars |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
531 (concat nnimap-nov-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
532 (if (equal server "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
533 "unnamed" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
534 server) "." group "." old-uidvalidity |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
535 nnimap-nov-file-name-suffix) t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
536 (file (if (or nnmail-use-long-file-names |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
537 (file-exists-p (expand-file-name nameuid dir))) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
538 (expand-file-name nameuid dir) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
539 (expand-file-name |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
540 (mm-encode-coding-string |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
541 (nnheader-replace-chars-in-string nameuid ?. ?/) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
542 nnmail-pathname-coding-system) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
543 dir)))) |
31717 | 544 (if old-uidvalidity |
545 (if (not (equal old-uidvalidity new-uidvalidity)) | |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
546 ;; uidvalidity clash |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
547 (gnus-delete-file file) |
31717 | 548 (gnus-group-set-parameter gnusgroup 'uidvalidity new-uidvalidity) |
549 t) | |
550 (gnus-group-add-parameter gnusgroup (cons 'uidvalidity new-uidvalidity)) | |
551 t))) | |
552 | |
553 (defun nnimap-before-find-minmax-bugworkaround () | |
554 "Function called before iterating through mailboxes with | |
555 `nnimap-find-minmax-uid'." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
556 (when nnimap-need-unselect-to-notice-new-mail |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
557 ;; XXX this is for UoW imapd problem, it doesn't notice new mail in |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
558 ;; currently selected mailbox without a re-select/examine. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
559 (or (null (imap-current-mailbox nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
560 (imap-mailbox-unselect nnimap-server-buffer)))) |
31717 | 561 |
562 (defun nnimap-find-minmax-uid (group &optional examine) | |
48588 | 563 "Find lowest and highest active article number in GROUP. |
31717 | 564 If EXAMINE is non-nil the group is selected read-only." |
565 (with-current-buffer nnimap-server-buffer | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
566 (when (or (string= group (imap-current-mailbox)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
567 (imap-mailbox-select group examine)) |
31717 | 568 (let (minuid maxuid) |
569 (when (> (imap-mailbox-get 'exists) 0) | |
100993 | 570 (imap-fetch-safe '("1,*" . "1,*:*") "UID" nil 'nouidfetch) |
31717 | 571 (imap-message-map (lambda (uid Uid) |
572 (setq minuid (if minuid (min minuid uid) uid) | |
573 maxuid (if maxuid (max maxuid uid) uid))) | |
574 'UID)) | |
575 (list (imap-mailbox-get 'exists) minuid maxuid))))) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
576 |
31717 | 577 (defun nnimap-possibly-change-group (group &optional server) |
578 "Make GROUP the current group, and SERVER the current server." | |
579 (when (nnimap-possibly-change-server server) | |
580 (with-current-buffer nnimap-server-buffer | |
581 (if (or (null group) (imap-current-mailbox-p group)) | |
582 imap-current-mailbox | |
583 (if (imap-mailbox-select group) | |
584 (if (or (nnimap-verify-uidvalidity | |
585 group (or server nnimap-current-server)) | |
586 (zerop (imap-mailbox-get 'exists group)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
587 t ;; for OGnus to see if ignoring uidvalidity |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
588 ;; changes has any bad effects. |
31717 | 589 (yes-or-no-p |
590 (format | |
591 "nnimap: Group %s is not uidvalid. Continue? " group))) | |
592 imap-current-mailbox | |
593 (imap-mailbox-unselect) | |
38413
a26d9b55abb6
Some fixes to follow coding conventions in files from Gnus.
Pavel Janík <Pavel@Janik.cz>
parents:
32995
diff
changeset
|
594 (error "nnimap: Group %s is not uid-valid" group)) |
31717 | 595 (nnheader-report 'nnimap (imap-error-text))))))) |
596 | |
597 (defun nnimap-replace-whitespace (string) | |
598 "Return STRING with all whitespace replaced with space." | |
599 (when string | |
600 (while (string-match "[\r\n\t]+" string) | |
601 (setq string (replace-match " " t t string))) | |
602 string)) | |
603 | |
604 ;; Required backend functions | |
605 | |
606 (defun nnimap-retrieve-headers-progress () | |
607 "Hook to insert NOV line for current article into `nntp-server-buffer'." | |
608 (and (numberp nnmail-large-newsgroup) | |
609 (zerop (% (incf nnimap-counter) nnimap-progress-how-often)) | |
610 (> nnimap-length nnmail-large-newsgroup) | |
611 (nnheader-message 6 "nnimap: Retrieving headers... %c" | |
612 (nth (/ (% nnimap-counter | |
613 (* (length nnimap-progress-chars) | |
614 nnimap-progress-how-often)) | |
615 nnimap-progress-how-often) | |
616 nnimap-progress-chars))) | |
617 (with-current-buffer nntp-server-buffer | |
618 (let (headers lines chars uid mbx) | |
619 (with-current-buffer nnimap-server-buffer | |
620 (setq uid imap-current-message | |
621 mbx imap-current-mailbox | |
100124
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
622 headers (if (imap-capability 'IMAP4rev1) |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
623 ;; xxx don't just use car? alist doesn't contain |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
624 ;; anything else now, but it might... |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
625 (nth 2 (car (imap-message-get uid 'BODYDETAIL))) |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
626 (imap-message-get uid 'RFC822.HEADER)) |
31717 | 627 lines (imap-body-lines (imap-message-body imap-current-message)) |
628 chars (imap-message-get imap-current-message 'RFC822.SIZE))) | |
629 (nnheader-insert-nov | |
92770
b7f1378e2a2c
(nnimap-retrieve-headers-progress): Use a unibyte temp buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92147
diff
changeset
|
630 ;; At this stage, we only have bytes, so let's use unibyte buffers |
b7f1378e2a2c
(nnimap-retrieve-headers-progress): Use a unibyte temp buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92147
diff
changeset
|
631 ;; to make it more clear. |
b7f1378e2a2c
(nnimap-retrieve-headers-progress): Use a unibyte temp buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92147
diff
changeset
|
632 (mm-with-unibyte-buffer |
31717 | 633 (buffer-disable-undo) |
100874
8698a8bb7d0e
Gnus: Add explanations for recent changes to the code itself.
Michael Olson <mwolson@gnu.org>
parents:
100871
diff
changeset
|
634 ;; headers can be nil if article is write-only |
100871
1d5b4a08955f
Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents:
100124
diff
changeset
|
635 (when headers (insert headers)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
636 (let ((head (nnheader-parse-naked-head uid))) |
31717 | 637 (mail-header-set-number head uid) |
638 (mail-header-set-chars head chars) | |
639 (mail-header-set-lines head lines) | |
640 (mail-header-set-xref | |
641 head (format "%s %s:%d" (system-name) mbx uid)) | |
642 head)))))) | |
643 | |
644 (defun nnimap-retrieve-which-headers (articles fetch-old) | |
645 "Get a range of articles to fetch based on ARTICLES and FETCH-OLD." | |
646 (with-current-buffer nnimap-server-buffer | |
647 (if (numberp (car-safe articles)) | |
648 (imap-search | |
649 (concat "UID " | |
650 (imap-range-to-message-set | |
651 (gnus-compress-sequence | |
652 (append (gnus-uncompress-sequence | |
653 (and fetch-old | |
654 (cons (if (numberp fetch-old) | |
655 (max 1 (- (car articles) fetch-old)) | |
656 1) | |
657 (1- (car articles))))) | |
658 articles))))) | |
659 (mapcar (lambda (msgid) | |
660 (imap-search | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
661 (format "HEADER Message-Id \"%s\"" msgid))) |
31717 | 662 articles)))) |
663 | |
664 (defun nnimap-group-overview-filename (group server) | |
49274
eb2699620e9c
* gnus-agent.el: Don't use `path'.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
48588
diff
changeset
|
665 "Make file name for GROUP on SERVER." |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
666 (let* ((dir (file-name-as-directory (expand-file-name nnimap-directory))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
667 (uidvalidity (gnus-group-get-parameter |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
668 (gnus-group-prefixed-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
669 group (gnus-server-to-method |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
670 (format "nnimap:%s" server))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
671 'uidvalidity)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
672 (name (nnheader-translate-file-chars |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
673 (concat nnimap-nov-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
674 (if (equal server "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
675 "unnamed" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
676 server) "." group nnimap-nov-file-name-suffix) t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
677 (nameuid (nnheader-translate-file-chars |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
678 (concat nnimap-nov-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
679 (if (equal server "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
680 "unnamed" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
681 server) "." group "." uidvalidity |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
682 nnimap-nov-file-name-suffix) t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
683 (oldfile (if (or nnmail-use-long-file-names |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
684 (file-exists-p (expand-file-name name dir))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
685 (expand-file-name name dir) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
686 (expand-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
687 (mm-encode-coding-string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
688 (nnheader-replace-chars-in-string name ?. ?/) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
689 nnmail-pathname-coding-system) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
690 dir))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
691 (newfile (if (or nnmail-use-long-file-names |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
692 (file-exists-p (expand-file-name nameuid dir))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
693 (expand-file-name nameuid dir) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
694 (expand-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
695 (mm-encode-coding-string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
696 (nnheader-replace-chars-in-string nameuid ?. ?/) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
697 nnmail-pathname-coding-system) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
698 dir)))) |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
699 (when (and (file-exists-p oldfile) (not (file-exists-p newfile))) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
700 (message "nnimap: Upgrading novcache filename...") |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
701 (sit-for 1) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
702 (gnus-make-directory (file-name-directory newfile)) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
703 (unless (ignore-errors (rename-file oldfile newfile) t) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
704 (if (ignore-errors (copy-file oldfile newfile) t) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
705 (delete-file oldfile) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
706 (error "Can't rename `%s' to `%s'" oldfile newfile)))) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
707 newfile)) |
31717 | 708 |
709 (defun nnimap-retrieve-headers-from-file (group server) | |
710 (with-current-buffer nntp-server-buffer | |
711 (let ((nov (nnimap-group-overview-filename group server))) | |
712 (when (file-exists-p nov) | |
713 (mm-insert-file-contents nov) | |
714 (set-buffer-modified-p nil) | |
715 (let ((min (ignore-errors (goto-char (point-min)) | |
716 (read (current-buffer)))) | |
717 (max (ignore-errors (goto-char (point-max)) | |
718 (forward-line -1) | |
719 (read (current-buffer))))) | |
720 (if (and (numberp min) (numberp max)) | |
721 (cons min max) | |
722 ;; junk, remove it, it's saved later | |
723 (erase-buffer) | |
724 nil)))))) | |
725 | |
726 (defun nnimap-retrieve-headers-from-server (articles group server) | |
727 (with-current-buffer nnimap-server-buffer | |
728 (let ((imap-fetch-data-hook '(nnimap-retrieve-headers-progress)) | |
729 (nnimap-length (gnus-range-length articles)) | |
730 (nnimap-counter 0)) | |
731 (imap-fetch (imap-range-to-message-set articles) | |
732 (concat "(UID RFC822.SIZE BODY " | |
733 (let ((headers | |
734 (append '(Subject From Date Message-Id | |
735 References In-Reply-To Xref) | |
736 (copy-sequence | |
737 nnmail-extra-headers)))) | |
738 (if (imap-capability 'IMAP4rev1) | |
739 (format "BODY.PEEK[HEADER.FIELDS %s])" headers) | |
740 (format "RFC822.HEADER.LINES %s)" headers))))) | |
60526
bbb951948fa8
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-165
Miles Bader <miles@gnu.org>
parents:
60161
diff
changeset
|
741 (with-current-buffer nntp-server-buffer |
60558
474d659beb95
(nnimap-retrieve-headers-from-server): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60526
diff
changeset
|
742 (sort-numeric-fields 1 (point-min) (point-max))) |
31717 | 743 (and (numberp nnmail-large-newsgroup) |
744 (> nnimap-length nnmail-large-newsgroup) | |
745 (nnheader-message 6 "nnimap: Retrieving headers...done"))))) | |
746 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
747 (defun nnimap-dont-use-nov-p (group server) |
31717 | 748 (or gnus-nov-is-evil nnimap-nov-is-evil |
749 (unless (and (gnus-make-directory | |
750 (file-name-directory | |
751 (nnimap-group-overview-filename group server))) | |
752 (file-writable-p | |
753 (nnimap-group-overview-filename group server))) | |
754 (message "nnimap: Nov cache not writable, %s" | |
755 (nnimap-group-overview-filename group server))))) | |
756 | |
757 (deffoo nnimap-retrieve-headers (articles &optional group server fetch-old) | |
758 (when (nnimap-possibly-change-group group server) | |
759 (with-current-buffer nntp-server-buffer | |
760 (erase-buffer) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
761 (if (nnimap-dont-use-nov-p group server) |
31717 | 762 (nnimap-retrieve-headers-from-server |
763 (gnus-compress-sequence articles) group server) | |
764 (let (uids cached low high) | |
765 (when (setq uids (nnimap-retrieve-which-headers articles fetch-old) | |
766 low (car uids) | |
767 high (car (last uids))) | |
768 (if (setq cached (nnimap-retrieve-headers-from-file group server)) | |
769 (progn | |
770 ;; fetch articles with uids before cache block | |
771 (when (< low (car cached)) | |
772 (goto-char (point-min)) | |
773 (nnimap-retrieve-headers-from-server | |
774 (cons low (1- (car cached))) group server)) | |
775 ;; fetch articles with uids after cache block | |
776 (when (> high (cdr cached)) | |
777 (goto-char (point-max)) | |
778 (nnimap-retrieve-headers-from-server | |
779 (cons (1+ (cdr cached)) high) group server)) | |
780 (when nnimap-prune-cache | |
781 ;; remove nov's for articles which has expired on server | |
782 (goto-char (point-min)) | |
783 (dolist (uid (gnus-set-difference articles uids)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
784 (when (re-search-forward (format "^%d\t" uid) nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
785 (gnus-delete-line))))) |
31717 | 786 ;; nothing cached, fetch whole range from server |
787 (nnimap-retrieve-headers-from-server | |
788 (cons low high) group server)) | |
789 (when (buffer-modified-p) | |
790 (nnmail-write-region | |
44512
d9d12d6d22cc
(nnimap-retrieve-headers): Don't assume point-min == 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40494
diff
changeset
|
791 (point-min) (point-max) |
d9d12d6d22cc
(nnimap-retrieve-headers): Don't assume point-min == 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40494
diff
changeset
|
792 (nnimap-group-overview-filename group server) nil 'nomesg)) |
31717 | 793 (nnheader-nov-delete-outside-range low high)))) |
794 'nov))) | |
795 | |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
796 (declare-function netrc-parse "netrc" (file)) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
797 (declare-function netrc-machine-user-or-password "netrc" |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
798 (mode authinfo-file-or-list machines ports defaults)) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
799 |
31717 | 800 (defun nnimap-open-connection (server) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
801 ;; Note: `nnimap-open-server' that calls this function binds |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
802 ;; `imap-logout-timeout' to `nnimap-logout-timeout'. |
31717 | 803 (if (not (imap-open nnimap-address nnimap-server-port nnimap-stream |
804 nnimap-authenticator nnimap-server-buffer)) | |
805 (nnheader-report 'nnimap "Can't open connection to server %s" server) | |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
806 (require 'netrc) |
31717 | 807 (unless (or (imap-capability 'IMAP4 nnimap-server-buffer) |
808 (imap-capability 'IMAP4rev1 nnimap-server-buffer)) | |
809 (imap-close nnimap-server-buffer) | |
810 (nnheader-report 'nnimap "Server %s is not IMAP4 compliant" server)) | |
60696
7503b2a24a3c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-187
Miles Bader <miles@gnu.org>
parents:
60558
diff
changeset
|
811 (let* ((list (progn (gnus-message 7 "Parsing authinfo file `%s'." |
7503b2a24a3c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-187
Miles Bader <miles@gnu.org>
parents:
60558
diff
changeset
|
812 nnimap-authinfo-file) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
813 (netrc-parse nnimap-authinfo-file))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
814 (port (if nnimap-server-port |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
815 (int-to-string nnimap-server-port) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
816 "imap")) |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
817 (auth-info |
101804 | 818 (auth-source-user-or-password '("login" "password") server port)) |
819 (auth-user (nth 0 auth-info)) | |
820 (auth-passwd (nth 1 auth-info)) | |
95820
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
94980
diff
changeset
|
821 (user (or |
101804 | 822 auth-user ; this is preferred to netrc-* |
94837 | 823 (netrc-machine-user-or-password |
824 "login" | |
825 list | |
826 (list server | |
827 (or nnimap-server-address | |
828 nnimap-address)) | |
829 (list port) | |
830 (list "imap" "imaps" "143" "993")))) | |
95820
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
94980
diff
changeset
|
831 (passwd (or |
101804 | 832 auth-passwd ; this is preferred to netrc-* |
94837 | 833 (netrc-machine-user-or-password |
834 "password" | |
835 list | |
836 (list server | |
837 (or nnimap-server-address | |
838 nnimap-address)) | |
839 (list port) | |
840 (list "imap" "imaps" "143" "993"))))) | |
31717 | 841 (if (imap-authenticate user passwd nnimap-server-buffer) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
842 (prog2 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
843 (setq nnimap-server-buffer-alist |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
844 (nnimap-remove-server-from-buffer-alist |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
845 server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
846 nnimap-server-buffer-alist)) |
31717 | 847 (push (list server nnimap-server-buffer) |
848 nnimap-server-buffer-alist) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
849 (imap-id nnimap-id nnimap-server-buffer) |
31717 | 850 (nnimap-possibly-change-server server)) |
851 (imap-close nnimap-server-buffer) | |
852 (kill-buffer nnimap-server-buffer) | |
853 (nnheader-report 'nnimap "Could not authenticate to %s" server))))) | |
854 | |
855 (deffoo nnimap-open-server (server &optional defs) | |
856 (nnheader-init-server-buffer) | |
857 (if (nnimap-server-opened server) | |
858 t | |
859 (unless (assq 'nnimap-server-buffer defs) | |
860 (push (list 'nnimap-server-buffer (concat " *nnimap* " server)) defs)) | |
861 ;; translate `nnimap-server-address' to `nnimap-address' in defs | |
862 ;; for people that configured nnimap with a very old version | |
863 (unless (assq 'nnimap-address defs) | |
864 (if (assq 'nnimap-server-address defs) | |
865 (push (list 'nnimap-address | |
866 (cadr (assq 'nnimap-server-address defs))) defs) | |
867 (push (list 'nnimap-address server) defs))) | |
868 (nnoo-change-server 'nnimap server defs) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
869 (or nnimap-server-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
870 (setq nnimap-server-buffer (cadr (assq 'nnimap-server-buffer defs)))) |
31717 | 871 (with-current-buffer (get-buffer-create nnimap-server-buffer) |
872 (nnoo-change-server 'nnimap server defs)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
873 (let ((imap-logout-timeout nnimap-logout-timeout)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
874 (or (and nnimap-server-buffer |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
875 (imap-opened nnimap-server-buffer) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
876 (if (with-current-buffer nnimap-server-buffer |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
877 (memq imap-state '(auth selected examine))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
878 t |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
879 (imap-close nnimap-server-buffer) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
880 (nnimap-open-connection server))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
881 (nnimap-open-connection server))))) |
31717 | 882 |
883 (deffoo nnimap-server-opened (&optional server) | |
884 "Whether SERVER is opened. | |
885 If SERVER is the current virtual server, and the connection to the | |
886 physical server is alive, this function return a non-nil value. If | |
887 SERVER is nil, it is treated as the current server." | |
888 ;; clean up autologouts?? | |
889 (and (or server nnimap-current-server) | |
890 (nnoo-server-opened 'nnimap (or server nnimap-current-server)) | |
891 (imap-opened (nnimap-get-server-buffer server)))) | |
892 | |
893 (deffoo nnimap-close-server (&optional server) | |
894 "Close connection to server and free all resources connected to it. | |
895 Return nil if the server couldn't be closed for some reason." | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
896 (let ((server (or server nnimap-current-server)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
897 (imap-logout-timeout nnimap-logout-timeout)) |
31717 | 898 (when (or (nnimap-server-opened server) |
899 (imap-opened (nnimap-get-server-buffer server))) | |
900 (imap-close (nnimap-get-server-buffer server)) | |
901 (kill-buffer (nnimap-get-server-buffer server)) | |
902 (setq nnimap-server-buffer nil | |
903 nnimap-current-server nil | |
904 nnimap-server-buffer-alist | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
905 (nnimap-remove-server-from-buffer-alist |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
906 server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
907 nnimap-server-buffer-alist))) |
31717 | 908 (nnoo-close-server 'nnimap server))) |
909 | |
910 (deffoo nnimap-request-close () | |
911 "Close connection to all servers and free all resources that the backend have reserved. | |
912 All buffers that have been created by that | |
913 backend should be killed. (Not the nntp-server-buffer, though.) This | |
914 function is generally only called when Gnus is shutting down." | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
915 (mapc (lambda (server) (nnimap-close-server (car server))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
916 nnimap-server-buffer-alist) |
31717 | 917 (setq nnimap-server-buffer-alist nil)) |
918 | |
919 (deffoo nnimap-status-message (&optional server) | |
920 "This function returns the last error message from server." | |
921 (when (nnimap-possibly-change-server server) | |
922 (nnoo-status-message 'nnimap server))) | |
923 | |
100124
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
924 ;; We used to use a string-as-multibyte here, but it is really incorrect. |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
925 ;; This function is used when we're about to insert a unibyte string |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
926 ;; into a potentially multibyte buffer. The string is either an article |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
927 ;; header or body (or both?), undecoded. When Emacs is asked to convert |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
928 ;; a unibyte string to multibyte, it may either use the equivalent of |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
929 ;; nothing (e.g. non-Mule XEmacs), string-make-unibyte (i.e. decode using |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
930 ;; locale), string-as-multibyte (decode using emacs-internal coding system) |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
931 ;; or string-to-multibyte (keep the data undecoded as a sequence of bytes). |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
932 ;; Only the last one preserves the data such that we can reliably later on |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
933 ;; decode the text using the mime info. |
d0077257129f
(nnimap-retrieve-headers-progress): Don't use nnimap-demule
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100039
diff
changeset
|
934 (defalias 'nnimap-demule 'mm-string-to-multibyte) |
31717 | 935 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
936 (defun nnimap-make-callback (article gnus-callback buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
937 "Return a callback function." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
938 `(lambda () |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
939 (nnimap-callback ,article ,gnus-callback ,buffer))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
940 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
941 (defun nnimap-callback (article gnus-callback buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
942 (when (eq article (imap-current-message)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
943 (remove-hook 'imap-fetch-data-hook |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
944 (nnimap-make-callback article gnus-callback buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
945 (with-current-buffer buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
946 (insert |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
947 (with-current-buffer nnimap-server-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
948 (nnimap-demule |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
949 (if (imap-capability 'IMAP4rev1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
950 ;; xxx don't just use car? alist doesn't contain |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
951 ;; anything else now, but it might... |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
952 (nth 2 (car (imap-message-get article 'BODYDETAIL))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
953 (imap-message-get article 'RFC822))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
954 (nnheader-ms-strip-cr) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
955 (funcall gnus-callback t)))) |
31717 | 956 |
957 (defun nnimap-request-article-part (article part prop &optional | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
958 group server to-buffer detail) |
31717 | 959 (when (nnimap-possibly-change-group group server) |
960 (let ((article (if (stringp article) | |
961 (car-safe (imap-search | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
962 (format "HEADER Message-Id \"%s\"" article) |
31717 | 963 nnimap-server-buffer)) |
964 article))) | |
965 (when article | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
966 (gnus-message 10 "nnimap: Fetching (part of) article %d from %s..." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
967 article (or group imap-current-mailbox |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
968 gnus-newsgroup-name)) |
31717 | 969 (if (not nnheader-callback-function) |
970 (with-current-buffer (or to-buffer nntp-server-buffer) | |
971 (erase-buffer) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
972 (let ((data (imap-fetch article part prop nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
973 nnimap-server-buffer))) |
100874
8698a8bb7d0e
Gnus: Add explanations for recent changes to the code itself.
Michael Olson <mwolson@gnu.org>
parents:
100871
diff
changeset
|
974 ;; data can be nil if article is write-only |
100871
1d5b4a08955f
Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents:
100124
diff
changeset
|
975 (when data |
1d5b4a08955f
Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents:
100124
diff
changeset
|
976 (insert (nnimap-demule (if detail |
1d5b4a08955f
Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents:
100124
diff
changeset
|
977 (nth 2 (car data)) |
1d5b4a08955f
Gnus: Fix edge cases with no data being returned and Courier eccentricity.
Michael Olson <mwolson@gnu.org>
parents:
100124
diff
changeset
|
978 data))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
979 (nnheader-ms-strip-cr) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
980 (gnus-message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
981 10 "nnimap: Fetching (part of) article %d from %s...done" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
982 article (or group imap-current-mailbox gnus-newsgroup-name)) |
31717 | 983 (if (bobp) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
984 (nnheader-report 'nnimap "No such article %d in %s: %s" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
985 article (or group imap-current-mailbox |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
986 gnus-newsgroup-name) |
31717 | 987 (imap-error-text nnimap-server-buffer)) |
988 (cons group article))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
989 (add-hook 'imap-fetch-data-hook |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
990 (nnimap-make-callback article |
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
991 nnheader-callback-function |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
992 nntp-server-buffer)) |
31717 | 993 (imap-fetch-asynch article part nil nnimap-server-buffer) |
994 (cons group article)))))) | |
995 | |
996 (deffoo nnimap-asynchronous-p () | |
997 t) | |
998 | |
999 (deffoo nnimap-request-article (article &optional group server to-buffer) | |
1000 (if (imap-capability 'IMAP4rev1 nnimap-server-buffer) | |
1001 (nnimap-request-article-part | |
1002 article "BODY.PEEK[]" 'BODYDETAIL group server to-buffer 'detail) | |
1003 (nnimap-request-article-part | |
1004 article "RFC822.PEEK" 'RFC822 group server to-buffer))) | |
1005 | |
1006 (deffoo nnimap-request-head (article &optional group server to-buffer) | |
1007 (if (imap-capability 'IMAP4rev1 nnimap-server-buffer) | |
1008 (nnimap-request-article-part | |
1009 article "BODY.PEEK[HEADER]" 'BODYDETAIL group server to-buffer 'detail) | |
1010 (nnimap-request-article-part | |
1011 article "RFC822.HEADER" 'RFC822.HEADER group server to-buffer))) | |
1012 | |
1013 (deffoo nnimap-request-body (article &optional group server to-buffer) | |
1014 (if (imap-capability 'IMAP4rev1 nnimap-server-buffer) | |
1015 (nnimap-request-article-part | |
1016 article "BODY.PEEK[TEXT]" 'BODYDETAIL group server to-buffer 'detail) | |
1017 (nnimap-request-article-part | |
1018 article "RFC822.TEXT.PEEK" 'RFC822.TEXT group server to-buffer))) | |
1019 | |
1020 (deffoo nnimap-request-group (group &optional server fast) | |
1021 (nnimap-request-update-info-internal | |
1022 group | |
1023 (gnus-get-info (gnus-group-prefixed-name | |
1024 group (gnus-server-to-method (format "nnimap:%s" server)))) | |
1025 server) | |
1026 (when (nnimap-possibly-change-group group server) | |
1027 (nnimap-before-find-minmax-bugworkaround) | |
1028 (let (info) | |
1029 (cond (fast group) | |
1030 ((null (setq info (nnimap-find-minmax-uid group t))) | |
1031 (nnheader-report 'nnimap "Could not get active info for %s" | |
1032 group)) | |
1033 (t | |
1034 (nnheader-insert "211 %d %d %d %s\n" (or (nth 0 info) 0) | |
1035 (max 1 (or (nth 1 info) 1)) | |
1036 (or (nth 2 info) 0) group) | |
1037 (nnheader-report 'nnimap "Group %s selected" group) | |
1038 t))))) | |
1039 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1040 (defun nnimap-update-unseen (group &optional server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1041 "Update the unseen count in `nnimap-mailbox-info'." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1042 (gnus-sethash |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1043 (gnus-group-prefixed-name group server) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1044 (let ((old (gnus-gethash-safe (gnus-group-prefixed-name group server) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1045 nnimap-mailbox-info))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1046 (list (nth 0 old) (nth 1 old) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1047 (imap-mailbox-status group 'unseen nnimap-server-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1048 (nth 3 old))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1049 nnimap-mailbox-info)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1050 |
31717 | 1051 (defun nnimap-close-group (group &optional server) |
1052 (with-current-buffer nnimap-server-buffer | |
1053 (when (and (imap-opened) | |
1054 (nnimap-possibly-change-group group server)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1055 (nnimap-update-unseen group server) |
31717 | 1056 (case nnimap-expunge-on-close |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1057 (always (progn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1058 (imap-mailbox-expunge nnimap-close-asynchronous) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1059 (unless nnimap-dont-close |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1060 (imap-mailbox-close nnimap-close-asynchronous)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1061 (ask (if (and (imap-search "DELETED") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1062 (gnus-y-or-n-p (format "Expunge articles in group `%s'? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1063 imap-current-mailbox))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1064 (progn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1065 (imap-mailbox-expunge nnimap-close-asynchronous) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1066 (unless nnimap-dont-close |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1067 (imap-mailbox-close nnimap-close-asynchronous))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1068 (imap-mailbox-unselect))) |
31717 | 1069 (t (imap-mailbox-unselect))) |
1070 (not imap-current-mailbox)))) | |
1071 | |
1072 (defun nnimap-pattern-to-list-arguments (pattern) | |
1073 (mapcar (lambda (p) | |
1074 (cons (car-safe p) (or (cdr-safe p) p))) | |
1075 (if (and (listp pattern) | |
1076 (listp (cdr pattern))) | |
1077 pattern | |
1078 (list pattern)))) | |
1079 | |
1080 (deffoo nnimap-request-list (&optional server) | |
1081 (when (nnimap-possibly-change-server server) | |
1082 (with-current-buffer nntp-server-buffer | |
1083 (erase-buffer)) | |
1084 (gnus-message 5 "nnimap: Generating active list%s..." | |
1085 (if (> (length server) 0) (concat " for " server) "")) | |
1086 (nnimap-before-find-minmax-bugworkaround) | |
1087 (with-current-buffer nnimap-server-buffer | |
1088 (dolist (pattern (nnimap-pattern-to-list-arguments nnimap-list-pattern)) | |
1089 (dolist (mbx (funcall nnimap-request-list-method | |
1090 (cdr pattern) (car pattern))) | |
1091 (or (member "\\NoSelect" (imap-mailbox-get 'list-flags mbx)) | |
1092 (let ((info (nnimap-find-minmax-uid mbx 'examine))) | |
1093 (when info | |
1094 (with-current-buffer nntp-server-buffer | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1095 (insert (format "\"%s\" %d %d y\n" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1096 mbx (or (nth 2 info) 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1097 (max 1 (or (nth 1 info) 1))))))))))) |
31717 | 1098 (gnus-message 5 "nnimap: Generating active list%s...done" |
1099 (if (> (length server) 0) (concat " for " server) "")) | |
1100 t)) | |
1101 | |
1102 (deffoo nnimap-request-post (&optional server) | |
1103 (let ((success t)) | |
1104 (dolist (mbx (message-unquote-tokens | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1105 (message-tokenize-header |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1106 (message-fetch-field "Newsgroups") ", ")) success) |
31717 | 1107 (let ((to-newsgroup (gnus-group-prefixed-name mbx gnus-command-method))) |
1108 (or (gnus-active to-newsgroup) | |
1109 (gnus-activate-group to-newsgroup) | |
1110 (if (gnus-y-or-n-p (format "No such group: %s. Create it? " | |
1111 to-newsgroup)) | |
1112 (or (and (gnus-request-create-group | |
1113 to-newsgroup gnus-command-method) | |
1114 (gnus-activate-group to-newsgroup nil nil | |
1115 gnus-command-method)) | |
1116 (error "Couldn't create group %s" to-newsgroup))) | |
1117 (error "No such group: %s" to-newsgroup)) | |
1118 (unless (nnimap-request-accept-article mbx (nth 1 gnus-command-method)) | |
1119 (setq success nil)))))) | |
1120 | |
1121 ;; Optional backend functions | |
1122 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1123 (defun nnimap-string-lessp-numerical (s1 s2) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1124 "Return t if first arg string is less than second in numerical order." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1125 (cond ((string= s1 s2) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1126 nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1127 ((> (length s1) (length s2)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1128 nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1129 ((< (length s1) (length s2)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1130 t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1131 ((< (string-to-number (substring s1 0 1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1132 (string-to-number (substring s2 0 1))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1133 t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1134 ((> (string-to-number (substring s1 0 1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1135 (string-to-number (substring s2 0 1))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1136 nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1137 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1138 (nnimap-string-lessp-numerical (substring s1 1) (substring s2 1))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1139 |
31717 | 1140 (deffoo nnimap-retrieve-groups (groups &optional server) |
1141 (when (nnimap-possibly-change-server server) | |
1142 (gnus-message 5 "nnimap: Checking mailboxes...") | |
1143 (with-current-buffer nntp-server-buffer | |
1144 (erase-buffer) | |
1145 (nnimap-before-find-minmax-bugworkaround) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1146 (let (asyncgroups slowgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1147 (if (null nnimap-retrieve-groups-asynchronous) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1148 (setq slowgroups groups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1149 (dolist (group groups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1150 (gnus-message 9 "nnimap: Quickly checking mailbox %s" group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1151 (add-to-list (if (gnus-gethash-safe |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1152 (gnus-group-prefixed-name group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1153 nnimap-mailbox-info) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1154 'asyncgroups |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1155 'slowgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1156 (list group (imap-mailbox-status-asynch |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1157 group '(uidvalidity uidnext unseen) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1158 nnimap-server-buffer)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1159 (dolist (asyncgroup asyncgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1160 (let ((group (nth 0 asyncgroup)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1161 (tag (nth 1 asyncgroup)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1162 new old) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1163 (when (imap-ok-p (imap-wait-for-tag tag nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1164 (if (or (not (string= |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1165 (nth 0 (gnus-gethash (gnus-group-prefixed-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1166 group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1167 nnimap-mailbox-info)) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1168 (imap-mailbox-get 'uidvalidity group |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1169 nnimap-server-buffer))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1170 (not (string= |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1171 (nth 1 (gnus-gethash (gnus-group-prefixed-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1172 group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1173 nnimap-mailbox-info)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1174 (imap-mailbox-get 'uidnext group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1175 nnimap-server-buffer)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1176 (push (list group) slowgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1177 (insert (nth 3 (gnus-gethash (gnus-group-prefixed-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1178 group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1179 nnimap-mailbox-info)))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1180 (dolist (group slowgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1181 (if nnimap-retrieve-groups-asynchronous |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1182 (setq group (car group))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1183 (gnus-message 7 "nnimap: Mailbox %s modified" group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1184 (imap-mailbox-put 'uidnext nil group nnimap-server-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1185 (or (member "\\NoSelect" (imap-mailbox-get 'list-flags group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1186 nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1187 (let* ((info (nnimap-find-minmax-uid group 'examine)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1188 (str (format "\"%s\" %d %d y\n" group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1189 (or (nth 2 info) 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1190 (max 1 (or (nth 1 info) 1))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1191 (when (> (or (imap-mailbox-get 'recent group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1192 nnimap-server-buffer) 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1193 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1194 (push (list (cons group 0)) nnmail-split-history)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1195 (insert str) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1196 (when nnimap-retrieve-groups-asynchronous |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1197 (gnus-sethash |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1198 (gnus-group-prefixed-name group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1199 (list (or (imap-mailbox-get |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1200 'uidvalidity group nnimap-server-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1201 (imap-mailbox-status |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1202 group 'uidvalidity nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1203 (or (imap-mailbox-get |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1204 'uidnext group nnimap-server-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1205 (imap-mailbox-status |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1206 group 'uidnext nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1207 (or (imap-mailbox-get |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1208 'unseen group nnimap-server-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1209 (imap-mailbox-status |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1210 group 'unseen nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1211 str) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1212 nnimap-mailbox-info))))))) |
31717 | 1213 (gnus-message 5 "nnimap: Checking mailboxes...done") |
1214 'active)) | |
1215 | |
1216 (deffoo nnimap-request-update-info-internal (group info &optional server) | |
1217 (when (nnimap-possibly-change-group group server) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1218 (when info ;; xxx what does this mean? should we create a info? |
31717 | 1219 (with-current-buffer nnimap-server-buffer |
1220 (gnus-message 5 "nnimap: Updating info for %s..." | |
1221 (gnus-info-group info)) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
1222 |
31717 | 1223 (when (nnimap-mark-permanent-p 'read) |
1224 (let (seen unseen) | |
1225 ;; read info could contain articles marked unread by other | |
1226 ;; imap clients! we correct this | |
69625
17473f7e626b
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
1227 (setq unseen (gnus-compress-sequence |
17473f7e626b
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
1228 (imap-search "UNSEEN UNDELETED")) |
17473f7e626b
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
1229 seen (gnus-range-difference (gnus-info-read info) unseen) |
17473f7e626b
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
1230 seen (gnus-range-add seen |
17473f7e626b
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
1231 (gnus-compress-sequence |
17473f7e626b
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
1232 (imap-search "SEEN"))) |
31717 | 1233 seen (if (and (integerp (car seen)) |
1234 (null (cdr seen))) | |
1235 (list (cons (car seen) (car seen))) | |
1236 seen)) | |
1237 (gnus-info-set-read info seen))) | |
1238 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1239 (dolist (pred gnus-article-mark-lists) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1240 (when (or (eq (cdr pred) 'recent) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1241 (and (nnimap-mark-permanent-p (cdr pred)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1242 (member (nnimap-mark-to-flag (cdr pred)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1243 (imap-mailbox-get 'flags)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1244 (gnus-info-set-marks |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1245 info |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1246 (gnus-update-alist-soft |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1247 (cdr pred) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1248 (gnus-compress-sequence |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1249 (imap-search (nnimap-mark-to-predicate (cdr pred)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1250 (gnus-info-marks info)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1251 t))) |
31717 | 1252 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1253 (when nnimap-importantize-dormant |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1254 ;; nnimap mark dormant article as ticked too (for other clients) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1255 ;; so we remove that mark for gnus since we support dormant |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1256 (gnus-info-set-marks |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1257 info |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1258 (gnus-update-alist-soft |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1259 'tick |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1260 (gnus-remove-from-range |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1261 (cdr-safe (assoc 'tick (gnus-info-marks info))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1262 (cdr-safe (assoc 'dormant (gnus-info-marks info)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1263 (gnus-info-marks info)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1264 t)) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
1265 |
31717 | 1266 (gnus-message 5 "nnimap: Updating info for %s...done" |
1267 (gnus-info-group info)) | |
1268 | |
1269 info)))) | |
1270 | |
1271 (deffoo nnimap-request-type (group &optional article) | |
1272 (if (and nnimap-news-groups (string-match nnimap-news-groups group)) | |
1273 'news | |
1274 'mail)) | |
1275 | |
1276 (deffoo nnimap-request-set-mark (group actions &optional server) | |
1277 (when (nnimap-possibly-change-group group server) | |
1278 (with-current-buffer nnimap-server-buffer | |
1279 (let (action) | |
1280 (gnus-message 7 "nnimap: Setting marks in %s..." group) | |
1281 (while (setq action (pop actions)) | |
1282 (let ((range (nth 0 action)) | |
1283 (what (nth 1 action)) | |
1284 (cmdmarks (nth 2 action)) | |
1285 marks) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1286 ;; bookmark can't be stored (not list/range |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1287 (setq cmdmarks (delq 'bookmark cmdmarks)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1288 ;; killed can't be stored (not list/range |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1289 (setq cmdmarks (delq 'killed cmdmarks)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1290 ;; unsent are for nndraft groups only |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1291 (setq cmdmarks (delq 'unsent cmdmarks)) |
31717 | 1292 ;; cache flags are pointless on the server |
1293 (setq cmdmarks (delq 'cache cmdmarks)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1294 ;; seen flags are local to each gnus |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1295 (setq cmdmarks (delq 'seen cmdmarks)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1296 ;; recent marks can't be set |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1297 (setq cmdmarks (delq 'recent cmdmarks)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1298 (when nnimap-importantize-dormant |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1299 ;; flag dormant articles as ticked |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1300 (if (memq 'dormant cmdmarks) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1301 (setq cmdmarks (cons 'tick cmdmarks)))) |
31717 | 1302 ;; remove stuff we are forbidden to store |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1303 (mapc (lambda (mark) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1304 (if (imap-message-flag-permanent-p |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1305 (nnimap-mark-to-flag mark)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1306 (setq marks (cons mark marks)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1307 cmdmarks) |
31717 | 1308 (when (and range marks) |
1309 (cond ((eq what 'del) | |
1310 (imap-message-flags-del | |
1311 (imap-range-to-message-set range) | |
1312 (nnimap-mark-to-flag marks nil t))) | |
1313 ((eq what 'add) | |
1314 (imap-message-flags-add | |
1315 (imap-range-to-message-set range) | |
1316 (nnimap-mark-to-flag marks nil t))) | |
1317 ((eq what 'set) | |
1318 (imap-message-flags-set | |
1319 (imap-range-to-message-set range) | |
1320 (nnimap-mark-to-flag marks nil t))))))) | |
1321 (gnus-message 7 "nnimap: Setting marks in %s...done" group)))) | |
1322 nil) | |
1323 | |
1324 (defun nnimap-split-fancy () | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1325 "Like the function `nnmail-split-fancy', but uses `nnimap-split-fancy'." |
31717 | 1326 (let ((nnmail-split-fancy nnimap-split-fancy)) |
1327 (nnmail-split-fancy))) | |
1328 | |
1329 (defun nnimap-split-to-groups (rules) | |
1330 ;; tries to match all rules in nnimap-split-rule against content of | |
1331 ;; nntp-server-buffer, returns a list of groups that matched. | |
1332 (with-current-buffer nntp-server-buffer | |
1333 ;; Fold continuation lines. | |
1334 (goto-char (point-min)) | |
1335 (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t) | |
1336 (replace-match " " t t)) | |
1337 (if (functionp rules) | |
1338 (funcall rules) | |
1339 (let (to-groups regrepp) | |
1340 (catch 'split-done | |
1341 (dolist (rule rules to-groups) | |
1342 (let ((group (car rule)) | |
1343 (regexp (cadr rule))) | |
1344 (goto-char (point-min)) | |
1345 (when (and (if (stringp regexp) | |
1346 (progn | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1347 (if (not (stringp group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1348 (setq group (eval group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1349 (setq regrepp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1350 (string-match "\\\\[0-9&]" group))) |
31717 | 1351 (re-search-forward regexp nil t)) |
1352 (funcall regexp group)) | |
1353 ;; Don't enter the article into the same group twice. | |
1354 (not (assoc group to-groups))) | |
1355 (push (if regrepp | |
1356 (nnmail-expand-newtext group) | |
1357 group) | |
1358 to-groups) | |
1359 (or nnimap-split-crosspost | |
1360 (throw 'split-done to-groups)))))))))) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
1361 |
31717 | 1362 (defun nnimap-assoc-match (key alist) |
1363 (let (element) | |
1364 (while (and alist (not element)) | |
1365 (if (string-match (car (car alist)) key) | |
1366 (setq element (car alist))) | |
1367 (setq alist (cdr alist))) | |
1368 element)) | |
1369 | |
1370 (defun nnimap-split-find-rule (server inbox) | |
1371 (if (and (listp nnimap-split-rule) (listp (car nnimap-split-rule)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1372 (list (cdar nnimap-split-rule)) (listp (cadar nnimap-split-rule))) |
31717 | 1373 ;; extended format |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
1374 (cadr (nnimap-assoc-match inbox (cdr (nnimap-assoc-match |
31717 | 1375 server nnimap-split-rule)))) |
1376 nnimap-split-rule)) | |
1377 | |
1378 (defun nnimap-split-find-inbox (server) | |
1379 (if (listp nnimap-split-inbox) | |
1380 nnimap-split-inbox | |
1381 (list nnimap-split-inbox))) | |
1382 | |
1383 (defun nnimap-split-articles (&optional group server) | |
1384 (when (nnimap-possibly-change-server server) | |
1385 (with-current-buffer nnimap-server-buffer | |
1386 (let (rule inbox removeorig (inboxes (nnimap-split-find-inbox server))) | |
1387 ;; iterate over inboxes | |
1388 (while (and (setq inbox (pop inboxes)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1389 (nnimap-possibly-change-group inbox)) ;; SELECT |
31717 | 1390 ;; find split rule for this server / inbox |
1391 (when (setq rule (nnimap-split-find-rule server inbox)) | |
1392 ;; iterate over articles | |
1393 (dolist (article (imap-search nnimap-split-predicate)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1394 (when (if (if (eq nnimap-split-download-body 'default) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1395 nnimap-split-download-body-default |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1396 nnimap-split-download-body) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1397 (and (nnimap-request-article article) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1398 (with-current-buffer nntp-server-buffer (mail-narrow-to-head))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1399 (nnimap-request-head article)) |
31717 | 1400 ;; copy article to right group(s) |
1401 (setq removeorig nil) | |
1402 (dolist (to-group (nnimap-split-to-groups rule)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1403 (cond ((eq to-group 'junk) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1404 (message "IMAP split removed %s:%s:%d" server inbox |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1405 article) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1406 (setq removeorig t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1407 ((imap-message-copy (number-to-string article) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1408 to-group nil 'nocopyuid) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1409 (message "IMAP split moved %s:%s:%d to %s" server |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1410 inbox article to-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1411 (setq removeorig t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1412 (when nnmail-cache-accepted-message-ids |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1413 (with-current-buffer nntp-server-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1414 (let (msgid) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1415 (and (setq msgid |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1416 (nnmail-fetch-field "message-id")) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1417 (nnmail-cache-insert msgid |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1418 to-group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1419 (nnmail-fetch-field "subject")))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1420 ;; Add the group-art list to the history list. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1421 (push (list (cons to-group 0)) nnmail-split-history)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1422 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1423 (message "IMAP split failed to move %s:%s:%d to %s" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1424 server inbox article to-group)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1425 (if (if (eq nnimap-split-download-body 'default) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1426 nnimap-split-download-body-default |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1427 nnimap-split-download-body) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1428 (widen)) |
31717 | 1429 ;; remove article if it was successfully copied somewhere |
1430 (and removeorig | |
1431 (imap-message-flags-add (format "%d" article) | |
1432 "\\Seen \\Deleted"))))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1433 (when (imap-mailbox-select inbox) ;; just in case |
31717 | 1434 ;; todo: UID EXPUNGE (if available) to remove splitted articles |
1435 (imap-mailbox-expunge) | |
1436 (imap-mailbox-close))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1437 (when nnmail-cache-accepted-message-ids |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1438 (nnmail-cache-close)) |
31717 | 1439 t)))) |
1440 | |
1441 (deffoo nnimap-request-scan (&optional group server) | |
1442 (nnimap-split-articles group server)) | |
1443 | |
1444 (deffoo nnimap-request-newgroups (date &optional server) | |
1445 (when (nnimap-possibly-change-server server) | |
1446 (with-current-buffer nntp-server-buffer | |
1447 (gnus-message 5 "nnimap: Listing subscribed mailboxes%s%s..." | |
1448 (if (> (length server) 0) " on " "") server) | |
1449 (erase-buffer) | |
1450 (nnimap-before-find-minmax-bugworkaround) | |
1451 (dolist (pattern (nnimap-pattern-to-list-arguments | |
1452 nnimap-list-pattern)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1453 (dolist (mbx (imap-mailbox-lsub (cdr pattern) (car pattern) nil |
31717 | 1454 nnimap-server-buffer)) |
1455 (or (catch 'found | |
1456 (dolist (mailbox (imap-mailbox-get 'list-flags mbx | |
1457 nnimap-server-buffer)) | |
1458 (if (string= (downcase mailbox) "\\noselect") | |
1459 (throw 'found t))) | |
1460 nil) | |
1461 (let ((info (nnimap-find-minmax-uid mbx 'examine))) | |
1462 (when info | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1463 (insert (format "\"%s\" %d %d y\n" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1464 mbx (or (nth 2 info) 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1465 (max 1 (or (nth 1 info) 1))))))))) |
31717 | 1466 (gnus-message 5 "nnimap: Listing subscribed mailboxes%s%s...done" |
1467 (if (> (length server) 0) " on " "") server)) | |
1468 t)) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
1469 |
31717 | 1470 (deffoo nnimap-request-create-group (group &optional server args) |
1471 (when (nnimap-possibly-change-server server) | |
1472 (or (imap-mailbox-status group 'uidvalidity nnimap-server-buffer) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1473 (imap-mailbox-create group nnimap-server-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1474 (nnheader-report 'nnimap "%S" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1475 (imap-error-text nnimap-server-buffer))))) |
31717 | 1476 |
1477 (defun nnimap-time-substract (time1 time2) | |
1478 "Return TIME for TIME1 - TIME2." | |
1479 (let* ((ms (- (car time1) (car time2))) | |
1480 (ls (- (nth 1 time1) (nth 1 time2)))) | |
1481 (if (< ls 0) | |
1482 (list (- ms 1) (+ (expt 2 16) ls)) | |
1483 (list ms ls)))) | |
1484 | |
61463
f09e8d159baf
(nnimap-date-days-ago): Handle byte-compiler warnings differently.
Lute Kamstra <lute@gnu.org>
parents:
61304
diff
changeset
|
1485 (eval-when-compile (require 'parse-time)) |
31717 | 1486 (defun nnimap-date-days-ago (daysago) |
1487 "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." | |
61304
a1964e18a9ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-234
Miles Bader <miles@gnu.org>
parents:
60696
diff
changeset
|
1488 (require 'parse-time) |
40494
4c7be17ecf55
(nnimap-date-days-ago): Defeat locale.
Gerd Moellmann <gerd@gnu.org>
parents:
38413
diff
changeset
|
1489 (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago))) |
4c7be17ecf55
(nnimap-date-days-ago): Defeat locale.
Gerd Moellmann <gerd@gnu.org>
parents:
38413
diff
changeset
|
1490 (date (format-time-string |
4c7be17ecf55
(nnimap-date-days-ago): Defeat locale.
Gerd Moellmann <gerd@gnu.org>
parents:
38413
diff
changeset
|
1491 (format "%%d-%s-%%Y" |
4c7be17ecf55
(nnimap-date-days-ago): Defeat locale.
Gerd Moellmann <gerd@gnu.org>
parents:
38413
diff
changeset
|
1492 (capitalize (car (rassoc (nth 4 (decode-time time)) |
4c7be17ecf55
(nnimap-date-days-ago): Defeat locale.
Gerd Moellmann <gerd@gnu.org>
parents:
38413
diff
changeset
|
1493 parse-time-months)))) |
4c7be17ecf55
(nnimap-date-days-ago): Defeat locale.
Gerd Moellmann <gerd@gnu.org>
parents:
38413
diff
changeset
|
1494 time))) |
31717 | 1495 (if (eq ?0 (string-to-char date)) |
1496 (substring date 1) | |
1497 date))) | |
1498 | |
1499 (defun nnimap-request-expire-articles-progress () | |
1500 (gnus-message 5 "nnimap: Marking article %d for deletion..." | |
1501 imap-current-message)) | |
1502 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1503 (defun nnimap-expiry-target (arts group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1504 (unless (eq nnmail-expiry-target 'delete) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1505 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1506 (dolist (art arts) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1507 (nnimap-request-article art group server (current-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1508 ;; hints for optimization in `nnimap-request-accept-article' |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1509 (let ((nnimap-current-move-article art) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1510 (nnimap-current-move-group group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1511 (nnimap-current-move-server server)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1512 (nnmail-expiry-target-group nnmail-expiry-target group)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1513 ;; It is not clear if `nnmail-expiry-target' somehow cause the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1514 ;; current group to be changed or not, so we make sure here. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1515 (nnimap-possibly-change-group group server))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1516 |
31717 | 1517 ;; Notice that we don't actually delete anything, we just mark them deleted. |
1518 (deffoo nnimap-request-expire-articles (articles group &optional server force) | |
1519 (let ((artseq (gnus-compress-sequence articles))) | |
1520 (when (and artseq (nnimap-possibly-change-group group server)) | |
1521 (with-current-buffer nnimap-server-buffer | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1522 (let ((days (or (and nnmail-expiry-wait-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1523 (funcall nnmail-expiry-wait-function group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1524 nnmail-expiry-wait))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1525 (cond ((or force (eq days 'immediate)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1526 (let ((oldarts (imap-search |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1527 (concat "UID " |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1528 (imap-range-to-message-set artseq))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1529 (when oldarts |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1530 (nnimap-expiry-target oldarts group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1531 (when (imap-message-flags-add |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1532 (imap-range-to-message-set |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1533 (gnus-compress-sequence oldarts)) "\\Deleted") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1534 (setq articles (gnus-set-difference |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1535 articles oldarts)))))) |
66573
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1536 ((and nnimap-search-uids-not-since-is-evil (numberp days)) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1537 (let* ((all-new-articles |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1538 (gnus-compress-sequence |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1539 (imap-search (format "SINCE %s" |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1540 (nnimap-date-days-ago days))))) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1541 (oldartseq |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1542 (gnus-range-difference artseq all-new-articles)) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1543 (oldarts (gnus-uncompress-range oldartseq))) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1544 (when oldarts |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1545 (nnimap-expiry-target oldarts group server) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1546 (when (imap-message-flags-add |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1547 (imap-range-to-message-set oldartseq) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1548 "\\Deleted") |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1549 (setq articles (gnus-set-difference |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1550 articles oldarts)))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1551 ((numberp days) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1552 (let ((oldarts (imap-search |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1553 (format nnimap-expunge-search-string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1554 (imap-range-to-message-set artseq) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1555 (nnimap-date-days-ago days)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1556 (imap-fetch-data-hook |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1557 '(nnimap-request-expire-articles-progress))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1558 (when oldarts |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1559 (nnimap-expiry-target oldarts group server) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1560 (when (imap-message-flags-add |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1561 (imap-range-to-message-set |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1562 (gnus-compress-sequence oldarts)) "\\Deleted") |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57153
diff
changeset
|
1563 (setq articles (gnus-set-difference |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1564 articles oldarts))))))))))) |
31717 | 1565 ;; return articles not deleted |
1566 articles) | |
1567 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1568 (deffoo nnimap-request-move-article (article group server accept-form |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1569 &optional last move-is-internal) |
31717 | 1570 (when (nnimap-possibly-change-server server) |
1571 (save-excursion | |
1572 (let ((buf (get-buffer-create " *nnimap move*")) | |
1573 (nnimap-current-move-article article) | |
1574 (nnimap-current-move-group group) | |
1575 (nnimap-current-move-server nnimap-current-server) | |
1576 result) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1577 (gnus-message 10 "nnimap-request-move-article: this is an %s move" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1578 (if move-is-internal |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1579 "internal" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1580 "external")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1581 ;; request the article only when the move is NOT internal |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1582 (and (or move-is-internal |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1583 (nnimap-request-article article group server)) |
92770
b7f1378e2a2c
(nnimap-retrieve-headers-progress): Use a unibyte temp buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92147
diff
changeset
|
1584 (with-current-buffer buf |
31717 | 1585 (buffer-disable-undo (current-buffer)) |
1586 (insert-buffer-substring nntp-server-buffer) | |
1587 (setq result (eval accept-form)) | |
1588 (kill-buffer buf) | |
1589 result) | |
69135
12d289b6e5de
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-118
Miles Bader <miles@gnu.org>
parents:
68633
diff
changeset
|
1590 (nnimap-possibly-change-group group server) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1591 (imap-message-flags-add |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1592 (imap-range-to-message-set (list article)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1593 "\\Deleted" 'silent nnimap-server-buffer)) |
31717 | 1594 result)))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49274
diff
changeset
|
1595 |
31717 | 1596 (deffoo nnimap-request-accept-article (group &optional server last) |
1597 (when (nnimap-possibly-change-server server) | |
1598 (let (uid) | |
1599 (if (setq uid | |
1600 (if (string= nnimap-current-server nnimap-current-move-server) | |
1601 ;; moving article within same server, speed it up... | |
1602 (and (nnimap-possibly-change-group | |
1603 nnimap-current-move-group) | |
1604 (imap-message-copy (number-to-string | |
1605 nnimap-current-move-article) | |
1606 group 'dontcreate nil | |
1607 nnimap-server-buffer)) | |
1608 (with-current-buffer (current-buffer) | |
1609 (goto-char (point-min)) | |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
1610 ;; remove any 'From blabla' lines, some IMAP servers |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
1611 ;; reject the entire message otherwise. |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
1612 (when (looking-at "^From[^:]") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1613 (delete-region (point) (progn (forward-line) (point)))) |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
1614 ;; turn into rfc822 format (\r\n eol's) |
31717 | 1615 (while (search-forward "\n" nil t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1616 (replace-match "\r\n")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1617 (when nnmail-cache-accepted-message-ids |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1618 (nnmail-cache-insert (nnmail-fetch-field "message-id") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1619 group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1620 (nnmail-fetch-field "subject")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1621 (when (and last nnmail-cache-accepted-message-ids) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1622 (nnmail-cache-close)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1623 ;; this 'or' is for Cyrus server bug |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1624 (or (null (imap-current-mailbox nnimap-server-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1625 (imap-mailbox-unselect nnimap-server-buffer)) |
31717 | 1626 (imap-message-append group (current-buffer) nil nil |
1627 nnimap-server-buffer))) | |
1628 (cons group (nth 1 uid)) | |
1629 (nnheader-report 'nnimap (imap-error-text nnimap-server-buffer)))))) | |
1630 | |
1631 (deffoo nnimap-request-delete-group (group force &optional server) | |
1632 (when (nnimap-possibly-change-server server) | |
96024 | 1633 (when (string= group (imap-current-mailbox nnimap-server-buffer)) |
1634 (imap-mailbox-unselect nnimap-server-buffer)) | |
31717 | 1635 (with-current-buffer nnimap-server-buffer |
1636 (if force | |
1637 (or (null (imap-mailbox-status group 'uidvalidity)) | |
1638 (imap-mailbox-delete group)) | |
1639 ;; UNSUBSCRIBE? | |
1640 t)))) | |
1641 | |
1642 (deffoo nnimap-request-rename-group (group new-name &optional server) | |
1643 (when (nnimap-possibly-change-server server) | |
1644 (imap-mailbox-rename group new-name nnimap-server-buffer))) | |
1645 | |
1646 (defun nnimap-expunge (mailbox server) | |
1647 (when (nnimap-possibly-change-group mailbox server) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1648 (imap-mailbox-expunge nil nnimap-server-buffer))) |
31717 | 1649 |
1650 (defun nnimap-acl-get (mailbox server) | |
1651 (when (nnimap-possibly-change-server server) | |
32995
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
1652 (and (imap-capability 'ACL nnimap-server-buffer) |
3720ccaca161
2000-10-27 Simon Josefsson <simon@josefsson.org>
Dave Love <fx@gnu.org>
parents:
32153
diff
changeset
|
1653 (imap-mailbox-acl-get mailbox nnimap-server-buffer)))) |
31717 | 1654 |
1655 (defun nnimap-acl-edit (mailbox method old-acls new-acls) | |
1656 (when (nnimap-possibly-change-server (cadr method)) | |
1657 (unless (imap-capability 'ACL nnimap-server-buffer) | |
1658 (error "Your server does not support ACL editing")) | |
1659 (with-current-buffer nnimap-server-buffer | |
1660 ;; delete all removed identifiers | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1661 (mapc (lambda (old-acl) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1662 (unless (assoc (car old-acl) new-acls) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1663 (or (imap-mailbox-acl-delete (car old-acl) mailbox) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1664 (error "Can't delete ACL for %s" (car old-acl))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1665 old-acls) |
31717 | 1666 ;; set all changed acl's |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1667 (mapc (lambda (new-acl) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1668 (let ((new-rights (cdr new-acl)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1669 (old-rights (cdr (assoc (car new-acl) old-acls)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1670 (unless (and old-rights new-rights |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1671 (string= old-rights new-rights)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1672 (or (imap-mailbox-acl-set (car new-acl) new-rights mailbox) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1673 (error "Can't set ACL for %s to %s" (car new-acl) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1674 new-rights))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1675 new-acls) |
31717 | 1676 t))) |
1677 | |
1678 | |
1679 ;;; Internal functions | |
1680 | |
1681 ;; | |
1682 ;; This is confusing. | |
1683 ;; | |
1684 ;; mark => read, tick, draft, reply etc | |
1685 ;; flag => "\\Seen", "\\Flagged", "\\Draft", "gnus-expire" etc | |
1686 ;; predicate => "SEEN", "FLAGGED", "DRAFT", "KEYWORD gnus-expire" etc | |
1687 ;; | |
1688 ;; Mark should not really contain 'read since it's not a "mark" in the Gnus | |
1689 ;; world, but we cheat. Mark == gnus-article-mark-lists + '(read . read). | |
1690 ;; | |
1691 | |
1692 (defconst nnimap-mark-to-predicate-alist | |
1693 (mapcar | |
1694 (lambda (pair) ; cdr is the mark | |
1695 (or (assoc (cdr pair) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1696 '((read . "SEEN") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1697 (tick . "FLAGGED") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1698 (draft . "DRAFT") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1699 (recent . "RECENT") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1700 (reply . "ANSWERED"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1701 (cons (cdr pair) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1702 (format "KEYWORD gnus-%s" (symbol-name (cdr pair)))))) |
31717 | 1703 (cons '(read . read) gnus-article-mark-lists))) |
1704 | |
1705 (defun nnimap-mark-to-predicate (pred) | |
1706 "Convert a Gnus mark (a symbol such as read, tick, expire) to a IMAP predicate. | |
1707 This is a string such as \"SEEN\", \"FLAGGED\", \"KEYWORD gnus-expire\", | |
1708 to be used within a IMAP SEARCH query." | |
1709 (cdr (assq pred nnimap-mark-to-predicate-alist))) | |
1710 | |
1711 (defconst nnimap-mark-to-flag-alist | |
1712 (mapcar | |
1713 (lambda (pair) | |
1714 (or (assoc (cdr pair) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1715 '((read . "\\Seen") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1716 (tick . "\\Flagged") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1717 (draft . "\\Draft") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1718 (recent . "\\Recent") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1719 (reply . "\\Answered"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1720 (cons (cdr pair) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1721 (format "gnus-%s" (symbol-name (cdr pair)))))) |
31717 | 1722 (cons '(read . read) gnus-article-mark-lists))) |
1723 | |
1724 (defun nnimap-mark-to-flag-1 (preds) | |
1725 (if (and (not (null preds)) (listp preds)) | |
1726 (cons (nnimap-mark-to-flag (car preds)) | |
1727 (nnimap-mark-to-flag (cdr preds))) | |
1728 (cdr (assoc preds nnimap-mark-to-flag-alist)))) | |
1729 | |
1730 (defun nnimap-mark-to-flag (preds &optional always-list make-string) | |
1731 "Convert a Gnus mark (a symbol such as read, tick, expire) to a IMAP flag. | |
1732 This is a string such as \"\\Seen\", \"\\Flagged\", \"gnus-expire\", to | |
1733 be used in a STORE FLAGS command." | |
1734 (let ((result (nnimap-mark-to-flag-1 preds))) | |
1735 (setq result (if (and (or make-string always-list) | |
1736 (not (listp result))) | |
1737 (list result) | |
1738 result)) | |
1739 (if make-string | |
1740 (mapconcat (lambda (flag) | |
1741 (if (listp flag) | |
1742 (mapconcat 'identity flag " ") | |
1743 flag)) | |
1744 result " ") | |
1745 result))) | |
1746 | |
1747 (defun nnimap-mark-permanent-p (mark &optional group) | |
78486
f0a07da7dd45
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78224
diff
changeset
|
1748 "Return t if MARK can be permanently (between IMAP sessions) saved on articles, in GROUP." |
31717 | 1749 (imap-message-flag-permanent-p (nnimap-mark-to-flag mark))) |
1750 | |
1751 (when nnimap-debug | |
1752 (require 'trace) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
56280
diff
changeset
|
1753 (buffer-disable-undo (get-buffer-create nnimap-debug-buffer)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1754 (mapc (lambda (f) (trace-function-background f nnimap-debug-buffer)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1755 '( |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1756 nnimap-possibly-change-server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1757 nnimap-verify-uidvalidity |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1758 nnimap-find-minmax-uid |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1759 nnimap-before-find-minmax-bugworkaround |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1760 nnimap-possibly-change-group |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1761 ;;nnimap-replace-whitespace |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1762 nnimap-retrieve-headers-progress |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1763 nnimap-retrieve-which-headers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1764 nnimap-group-overview-filename |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1765 nnimap-retrieve-headers-from-file |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1766 nnimap-retrieve-headers-from-server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1767 nnimap-retrieve-headers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1768 nnimap-open-connection |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1769 nnimap-open-server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1770 nnimap-server-opened |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1771 nnimap-close-server |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1772 nnimap-request-close |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1773 nnimap-status-message |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1774 ;;nnimap-demule |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1775 nnimap-request-article-part |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1776 nnimap-request-article |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1777 nnimap-request-head |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1778 nnimap-request-body |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1779 nnimap-request-group |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1780 nnimap-close-group |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1781 nnimap-pattern-to-list-arguments |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1782 nnimap-request-list |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1783 nnimap-request-post |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1784 nnimap-retrieve-groups |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1785 nnimap-request-update-info-internal |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1786 nnimap-request-type |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1787 nnimap-request-set-mark |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1788 nnimap-split-to-groups |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1789 nnimap-split-find-rule |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1790 nnimap-split-find-inbox |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1791 nnimap-split-articles |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1792 nnimap-request-scan |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1793 nnimap-request-newgroups |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1794 nnimap-request-create-group |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1795 nnimap-time-substract |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1796 nnimap-date-days-ago |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1797 nnimap-request-expire-articles-progress |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1798 nnimap-request-expire-articles |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1799 nnimap-request-move-article |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1800 nnimap-request-accept-article |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1801 nnimap-request-delete-group |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1802 nnimap-request-rename-group |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1803 gnus-group-nnimap-expunge |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1804 gnus-group-nnimap-edit-acl |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1805 gnus-group-nnimap-edit-acl-done |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1806 nnimap-group-mode-hook |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1807 nnimap-mark-to-predicate |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1808 nnimap-mark-to-flag-1 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1809 nnimap-mark-to-flag |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1810 nnimap-mark-permanent-p |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78486
diff
changeset
|
1811 ))) |
31717 | 1812 |
1813 (provide 'nnimap) | |
1814 | |
55398
dd7a1cf22d3d
(nnimap-demule): Avoid string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
1815 ;; arch-tag: 2b001f20-3ff9-4094-a0ad-46807c1ba70b |
31717 | 1816 ;;; nnimap.el ends here |