Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnfolder.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 318232e2a3f0
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
506 ;; The group doesn't exist, so we create a new entry for it. 506 ;; The group doesn't exist, so we create a new entry for it.
507 (push (list group (cons 1 0)) nnfolder-group-alist) 507 (push (list group (cons 1 0)) nnfolder-group-alist)
508 (nnmail-save-active nnfolder-group-alist nnfolder-active-file)) 508 (nnmail-save-active nnfolder-group-alist nnfolder-active-file))
509 509
510 (if dont-check 510 (if dont-check
511 (setq nnfolder-current-group group) 511 (setq nnfolder-current-group group
512 nnfolder-current-folder nil)
512 (let (inf file) 513 (let (inf file)
513 ;; If we have to change groups, see if we don't already have the 514 ;; If we have to change groups, see if we don't already have the
514 ;; folder in memory. If we do, verify the modtime and destroy 515 ;; folder in memory. If we do, verify the modtime and destroy
515 ;; the folder if needed so we can rescan it. 516 ;; the folder if needed so we can rescan it.
516 (setq nnfolder-current-buffer 517 (setq nnfolder-current-buffer