xapian: Rename index to index-files.

1 files changed, 5 insertions, 3 deletions

diff --git a/mumi/xapian.scm b/mumi/xapian.scm
index f7573c7..3dee381 100644
--- a/mumi/xapian.scm
+++ b/mumi/xapian.scm
@@ -30,7 +30,7 @@
   #:use-module (xapian wrap)
   #:use-module (xapian xapian)
   #:use-module (rnrs bytevectors)
-  #:export (index search))
+  #:export (index-files search))
 
 (define (parse-emails files)
   (n-par-map 4
@@ -53,8 +53,10 @@
                         (assoc-ref from 'address)))))
       "<unknown>"))
 
-(define* (index files #:key
-                (dbpath (string-append (%config 'db-dir) "/mumi.xapian")))
+(define* (index-files files #:key
+                      (dbpath (string-append (%config 'db-dir) "/mumi.xapian")))
+  "Parse all given Debbugs log files in FILES as a list of email
+messages and index their contents in the Xapian database at DBPATH."
   (define (index-chunk files+mails)
     (call-with-writable-database
      dbpath