Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnml.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents 360340f9fd5f
children 8619ce7e4c50
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
672 (kill-buffer (current-buffer))) 672 (kill-buffer (current-buffer)))
673 (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))) 673 (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))
674 674
675 ;;;###autoload 675 ;;;###autoload
676 (defun nnml-generate-nov-databases () 676 (defun nnml-generate-nov-databases ()
677 "Generate nov databases in all nnml directories." 677 "Generate NOV databases in all nnml directories."
678 (interactive) 678 (interactive)
679 ;; Read the active file to make sure we don't re-use articles 679 ;; Read the active file to make sure we don't re-use articles
680 ;; numbers in empty groups. 680 ;; numbers in empty groups.
681 (nnmail-activate 'nnml) 681 (nnmail-activate 'nnml)
682 (nnml-open-server (or (nnoo-current-server 'nnml) "")) 682 (nnml-open-server (or (nnoo-current-server 'nnml) ""))
685 (nnml-generate-nov-databases-1 nnml-directory) 685 (nnml-generate-nov-databases-1 nnml-directory)
686 ;; Save the active file. 686 ;; Save the active file.
687 (nnmail-save-active nnml-group-alist nnml-active-file)) 687 (nnmail-save-active nnml-group-alist nnml-active-file))
688 688
689 (defun nnml-generate-nov-databases-1 (dir &optional seen) 689 (defun nnml-generate-nov-databases-1 (dir &optional seen)
690 "Regenerate the NOV database in DIR."
691 (interactive "DRegenerate NOV in: ")
690 (setq dir (file-name-as-directory dir)) 692 (setq dir (file-name-as-directory dir))
691 ;; Only scan this sub-tree if we haven't been here yet. 693 ;; Only scan this sub-tree if we haven't been here yet.
692 (unless (member (file-truename dir) seen) 694 (unless (member (file-truename dir) seen)
693 (push (file-truename dir) seen) 695 (push (file-truename dir) seen)
694 ;; We descend recursively 696 ;; We descend recursively