(nnml-generate-nov-databases-directory): Rename from

nnml-generate-nov-databases-1.
(nnml-generate-nov-databases): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afa7002..396ef28 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2006-03-06  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * nnml.el (nnml-generate-nov-databases-directory): Rename from
+       nnml-generate-nov-databases-1.
+       (nnml-generate-nov-databases): Use it.
+
        * gmm-utils.el (gmm-image-load-path-for-library): Return single
        directory if path is t.  Add no-error.
 

diff --git a/lisp/nnml.el b/lisp/nnml.el
index c21c207..9aa5b77 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -770,11 +770,11 @@ non-nil.")
     (nnml-open-server server))
   (setq nnml-directory (expand-file-name nnml-directory))
   ;; Recurse down the directories.
-  (nnml-generate-nov-databases-1 nnml-directory nil t)
+  (nnml-generate-nov-databases-directory nnml-directory nil t)
   ;; Save the active file.
   (nnmail-save-active nnml-group-alist nnml-active-file))
 
-(defun nnml-generate-nov-databases-1 (dir &optional seen no-active)
+(defun nnml-generate-nov-databases-directory (dir &optional seen no-active)
   "Regenerate the NOV database in DIR."
   (interactive "DRegenerate NOV in: ")
   (setq dir (file-name-as-directory dir))
@@ -785,7 +785,7 @@ non-nil.")
     (dolist (dir (directory-files dir t nil t))
       (when (and (not (string-match "^\\." (file-name-nondirectory dir)))
                 (file-directory-p dir))
-       (nnml-generate-nov-databases-1 dir seen)))
+       (nnml-generate-nov-databases-directory dir seen)))
     ;; Do this directory.
     (let ((files (sort (nnheader-article-to-file-alist dir)
                       'car-less-than-car)))
@@ -1044,6 +1044,8 @@ Use the nov database for the current group if available."
 ;; #### other backends get a compaction feature. Also, note that invalidating
 ;; #### the "original article buffer" is already done at an upper level.
 
+;; Shouldn't `nnml-request-compact-group' be interactive? --rsteib
+
 (defun nnml-request-compact-group (group &optional server save)
   (nnml-possibly-change-directory group server)
   (unless nnml-article-file-alist