Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnfolder.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 0293115a14e9
children 1917ad0d78d7
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
612 ;; This might be a bit naughty... creating groups on the drop of 612 ;; This might be a bit naughty... creating groups on the drop of
613 ;; a hat, but I don't know... 613 ;; a hat, but I don't know...
614 (push (list group (setq active (cons 1 1))) 614 (push (list group (setq active (cons 1 1)))
615 nnfolder-group-alist)) 615 nnfolder-group-alist))
616 (cdr active)) 616 (cdr active))
617 (nnmail-save-active nnfolder-group-alist nnfolder-active-file)
618 (nnfolder-possibly-activate-groups group))))) 617 (nnfolder-possibly-activate-groups group)))))
619 618
620 619
621 ;; This method has a problem if you've accidentally let the active list get 620 ;; This method has a problem if you've accidentally let the active list get
622 ;; out of sync with the files. This could happen, say, if you've 621 ;; out of sync with the files. This could happen, say, if you've