Mercurial > emacs
comparison lisp/gnus/nnimap.el @ 93386:a789a1138b08
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 29 Mar 2008 19:54:11 +0000 |
| parents | b7f1378e2a2c |
| children | 7c273495693a |
comparison
equal
deleted
inserted
replaced
| 93385:dcff6c60c69e | 93386:a789a1138b08 |
|---|---|
| 553 (with-current-buffer nnimap-server-buffer | 553 (with-current-buffer nnimap-server-buffer |
| 554 (when (or (string= group (imap-current-mailbox)) | 554 (when (or (string= group (imap-current-mailbox)) |
| 555 (imap-mailbox-select group examine)) | 555 (imap-mailbox-select group examine)) |
| 556 (let (minuid maxuid) | 556 (let (minuid maxuid) |
| 557 (when (> (imap-mailbox-get 'exists) 0) | 557 (when (> (imap-mailbox-get 'exists) 0) |
| 558 (imap-fetch "1,*" "UID" nil 'nouidfetch) | 558 (imap-fetch "1:*" "UID" nil 'nouidfetch) |
| 559 (imap-message-map (lambda (uid Uid) | 559 (imap-message-map (lambda (uid Uid) |
| 560 (setq minuid (if minuid (min minuid uid) uid) | 560 (setq minuid (if minuid (min minuid uid) uid) |
| 561 maxuid (if maxuid (max maxuid uid) uid))) | 561 maxuid (if maxuid (max maxuid uid) uid))) |
| 562 'UID)) | 562 'UID)) |
| 563 (list (imap-mailbox-get 'exists) minuid maxuid))))) | 563 (list (imap-mailbox-get 'exists) minuid maxuid))))) |