Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-start.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children d2f30a177268
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
1465 gnus-newsrc-alist 1465 gnus-newsrc-alist
1466 (cons (list "dummy.group" 0 nil) alist))))) 1466 (cons (list "dummy.group" 0 nil) alist)))))
1467 (while alist 1467 (while alist
1468 (gnus-sethash 1468 (gnus-sethash
1469 (caar alist) 1469 (caar alist)
1470 ;; Preserve number of unread articles in groups.
1470 (cons (and ohashtb (car (gnus-gethash (caar alist) ohashtb))) 1471 (cons (and ohashtb (car (gnus-gethash (caar alist) ohashtb)))
1471 prev) 1472 prev)
1472 gnus-newsrc-hashtb) 1473 gnus-newsrc-hashtb)
1473 (setq prev alist 1474 (setq prev alist
1474 alist (cdr alist))))) 1475 alist (cdr alist)))))