211 |
used (which currently is nil, unless you use a statistical |
used (which currently is nil, unless you use a statistical |
212 |
spam.el test); if this variable is another non-nil value bodies |
spam.el test); if this variable is another non-nil value bodies |
213 |
will be downloaded." |
will be downloaded." |
214 |
:version "21.4" |
:version "22.1" |
215 |
:group 'nnimap |
:group 'nnimap |
216 |
:type '(choice (const :tag "Let system decide" deault) |
:type '(choice (const :tag "Let system decide" deault) |
217 |
boolean)) |
boolean)) |
223 |
This means that errors caught by nnimap when closing the mailbox will |
This means that errors caught by nnimap when closing the mailbox will |
224 |
not prevent Gnus from updating the group status, which may be harmful. |
not prevent Gnus from updating the group status, which may be harmful. |
225 |
However, it increases speed." |
However, it increases speed." |
226 |
:version "21.4" |
:version "22.1" |
227 |
:type 'boolean |
:type 'boolean |
228 |
:group 'nnimap) |
:group 'nnimap) |
229 |
|
|
232 |
This increases the speed of closing mailboxes (quiting group) but may |
This increases the speed of closing mailboxes (quiting group) but may |
233 |
decrease the speed of selecting another mailbox later. Re-selecting |
decrease the speed of selecting another mailbox later. Re-selecting |
234 |
the same mailbox will be faster though." |
the same mailbox will be faster though." |
235 |
:version "21.4" |
:version "22.1" |
236 |
:type 'boolean |
:type 'boolean |
237 |
:group 'nnimap) |
:group 'nnimap) |
238 |
|
|
245 |
|
|
246 |
In summary, the default is O((1-p)*k+p*n) and changing it to nil makes |
In summary, the default is O((1-p)*k+p*n) and changing it to nil makes |
247 |
it O(n). If p is small, then the default is probably faster." |
it O(n). If p is small, then the default is probably faster." |
248 |
:version "21.4" |
:version "22.1" |
249 |
:type 'boolean |
:type 'boolean |
250 |
:group 'nnimap) |
:group 'nnimap) |
251 |
|
|
826 |
|
|
827 |
(defun nnimap-make-callback (article gnus-callback buffer) |
(defun nnimap-make-callback (article gnus-callback buffer) |
828 |
"Return a callback function." |
"Return a callback function." |
829 |
`(lambda () |
`(lambda () |
830 |
(nnimap-callback ,article ,gnus-callback ,buffer))) |
(nnimap-callback ,article ,gnus-callback ,buffer))) |
831 |
|
|
832 |
(defun nnimap-callback (article gnus-callback buffer) |
(defun nnimap-callback (article gnus-callback buffer) |
876 |
(imap-error-text nnimap-server-buffer)) |
(imap-error-text nnimap-server-buffer)) |
877 |
(cons group article))) |
(cons group article))) |
878 |
(add-hook 'imap-fetch-data-hook |
(add-hook 'imap-fetch-data-hook |
879 |
(nnimap-make-callback article |
(nnimap-make-callback article |
880 |
nnheader-callback-function |
nnheader-callback-function |
881 |
nntp-server-buffer)) |
nntp-server-buffer)) |
882 |
(imap-fetch-asynch article part nil nnimap-server-buffer) |
(imap-fetch-asynch article part nil nnimap-server-buffer) |
883 |
(cons group article)))))) |
(cons group article)))))) |
930 |
"Update the unseen count in `nnimap-mailbox-info'." |
"Update the unseen count in `nnimap-mailbox-info'." |
931 |
(gnus-sethash |
(gnus-sethash |
932 |
(gnus-group-prefixed-name group server) |
(gnus-group-prefixed-name group server) |
933 |
(let ((old (gnus-gethash-safe (gnus-group-prefixed-name group server) |
(let ((old (gnus-gethash-safe (gnus-group-prefixed-name group server) |
934 |
nnimap-mailbox-info))) |
nnimap-mailbox-info))) |
935 |
(list (nth 0 old) (nth 1 old) |
(list (nth 0 old) (nth 1 old) |
936 |
(imap-mailbox-status group 'unseen nnimap-server-buffer) |
(imap-mailbox-status group 'unseen nnimap-server-buffer) |
1043 |
'asyncgroups |
'asyncgroups |
1044 |
'slowgroups) |
'slowgroups) |
1045 |
(list group (imap-mailbox-status-asynch |
(list group (imap-mailbox-status-asynch |
1046 |
group '(uidvalidity uidnext unseen) |
group '(uidvalidity uidnext unseen) |
1047 |
nnimap-server-buffer)))) |
nnimap-server-buffer)))) |
1048 |
(dolist (asyncgroup asyncgroups) |
(dolist (asyncgroup asyncgroups) |
1049 |
(let ((group (nth 0 asyncgroup)) |
(let ((group (nth 0 asyncgroup)) |
1054 |
(nth 0 (gnus-gethash (gnus-group-prefixed-name |
(nth 0 (gnus-gethash (gnus-group-prefixed-name |
1055 |
group server) |
group server) |
1056 |
nnimap-mailbox-info)) |
nnimap-mailbox-info)) |
1057 |
(imap-mailbox-get 'uidvalidity group |
(imap-mailbox-get 'uidvalidity group |
1058 |
nnimap-server-buffer))) |
nnimap-server-buffer))) |
1059 |
(not (string= |
(not (string= |
1060 |
(nth 1 (gnus-gethash (gnus-group-prefixed-name |
(nth 1 (gnus-gethash (gnus-group-prefixed-name |
1310 |
(let (msgid) |
(let (msgid) |
1311 |
(and (setq msgid |
(and (setq msgid |
1312 |
(nnmail-fetch-field "message-id")) |
(nnmail-fetch-field "message-id")) |
1313 |
(nnmail-cache-insert msgid |
(nnmail-cache-insert msgid |
1314 |
to-group |
to-group |
1315 |
(nnmail-fetch-field "subject")))))) |
(nnmail-fetch-field "subject")))))) |
1316 |
;; Add the group-art list to the history list. |
;; Add the group-art list to the history list. |
1418 |
nnmail-expiry-wait))) |
nnmail-expiry-wait))) |
1419 |
(cond ((or force (eq days 'immediate)) |
(cond ((or force (eq days 'immediate)) |
1420 |
(let ((oldarts (imap-search |
(let ((oldarts (imap-search |
1421 |
(concat "UID " |
(concat "UID " |
1422 |
(imap-range-to-message-set artseq))))) |
(imap-range-to-message-set artseq))))) |
1423 |
(when oldarts |
(when oldarts |
1424 |
(nnimap-expiry-target oldarts group server) |
(nnimap-expiry-target oldarts group server) |
1425 |
(when (imap-message-flags-add |
(when (imap-message-flags-add |
1426 |
(imap-range-to-message-set |
(imap-range-to-message-set |
1427 |
(gnus-compress-sequence oldarts)) "\\Deleted") |
(gnus-compress-sequence oldarts)) "\\Deleted") |
1428 |
(setq articles (gnus-set-difference |
(setq articles (gnus-set-difference |
1429 |
articles oldarts)))))) |
articles oldarts)))))) |
1437 |
(when oldarts |
(when oldarts |
1438 |
(nnimap-expiry-target oldarts group server) |
(nnimap-expiry-target oldarts group server) |
1439 |
(when (imap-message-flags-add |
(when (imap-message-flags-add |
1440 |
(imap-range-to-message-set |
(imap-range-to-message-set |
1441 |
(gnus-compress-sequence oldarts)) "\\Deleted") |
(gnus-compress-sequence oldarts)) "\\Deleted") |
1442 |
(setq articles (gnus-set-difference |
(setq articles (gnus-set-difference |
1443 |
articles oldarts))))))))))) |
articles oldarts))))))))))) |
1444 |
;; return articles not deleted |
;; return articles not deleted |
1445 |
articles) |
articles) |