Mercurial > emacs

comparison lisp/gnus/nnml.el @ 33302:c47be4412cfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-sorted-intersection): Autoload.
author Dave Love <fx@gnu.org>
date Wed, 08 Nov 2000 15:40:14 +0000
parents 9968f55ad26e
children b62714db7e04
comparison
equal deleted inserted replaced
33301:c1c373a70748 33302:c47be4412cfd
33 33
34 (require 'nnheader) 34 (require 'nnheader)
35 (require 'nnmail) 35 (require 'nnmail)
36 (require 'nnoo) 36 (require 'nnoo)
37 (eval-when-compile (require 'cl)) 37 (eval-when-compile (require 'cl))
38 (eval-and-compile
39 (autoload 'gnus-sorted-intersection "gnus-range"))
38 40
39 (nnoo-declare nnml) 41 (nnoo-declare nnml)
40 42
41 (defvoo nnml-directory message-directory 43 (defvoo nnml-directory message-directory
42 "Spool directory for the nnml mail backend.") 44 "Spool directory for the nnml mail backend.")
747 ;; Generate the nov file. 749 ;; Generate the nov file.
748 (nnml-generate-nov-file dir files) 750 (nnml-generate-nov-file dir files)
749 (unless no-active 751 (unless no-active
750 (nnmail-save-active nnml-group-alist nnml-active-file)))))) 752 (nnmail-save-active nnml-group-alist nnml-active-file))))))
751 753
752 (defvar files) 754 (eval-when-compile (defvar files))
753 (defun nnml-generate-active-info (dir) 755 (defun nnml-generate-active-info (dir)
754 ;; Update the active info for this group. 756 ;; Update the active info for this group.
755 (let ((group (nnheader-file-to-group 757 (let ((group (nnheader-file-to-group
756 (directory-file-name dir) nnml-directory))) 758 (directory-file-name dir) nnml-directory)))
757 (setq nnml-group-alist 759 (setq nnml-group-alist