mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-170

Browse source 
Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 62-64)

   - Merge from emacs--devo--0
   - Update from CVS
This commit is contained in:
Miles Bader 2006-03-21 20:37:02 +00:00
parent e02577b7d8
commit f5e922148b
7 changed files with 64 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/gnus/nnimap.el
View file

@ -1127,18 +1127,12 @@ function is generally only called when Gnus is shutting down."
(let (seen unseen)
;; read info could contain articles marked unread by other
;; imap clients! we correct this
(setq seen (gnus-uncompress-range (gnus-info-read info))
unseen (imap-search "UNSEEN UNDELETED")
seen (gnus-set-difference seen unseen)
;; seen might lack articles marked as read by other
;; imap clients! we correct this
seen (append seen (imap-search "SEEN"))
;; remove dupes
seen (sort seen '<)
seen (gnus-compress-sequence seen t)
;; we can't return '(1) since this isn't a "list of ranges",
;; and we can't return '((1)) since g-list-of-unread-articles
;; is buggy so we return '((1 . 1)).
(setq unseen (gnus-compress-sequence
(imap-search "UNSEEN UNDELETED"))
seen (gnus-range-difference (gnus-info-read info) unseen)
seen (gnus-range-add seen
(gnus-compress-sequence
(imap-search "SEEN")))
seen (if (and (integerp (car seen))
(null (cdr seen)))
(list (cons (car seen) (car seen)))