X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-database.el;h=22a391227f49cffcdf4972f1aa9846d92038e414;hb=c6930bb696cf4a9e6f2d07c5620e4392f5a4773d;hp=dc8b18595003d40fc989ebffbca155647c5b3847;hpb=2e9f5d2e3f003da464c20fe9924d1e80849265e6;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index dc8b185..22a3912 100644
--- a/elmo/elmo-database.el
+++ b/elmo/elmo-database.el
@@ -1,6 +1,6 @@
-;;; elmo-database.el -- Database module for ELMO.
+;;; elmo-database.el --- Database module for ELMO.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
@@ -24,10 +24,10 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 (require 'elmo-vars)
 (require 'elmo-msgdb)
 
@@ -39,7 +39,7 @@
 		(database-live-p (symbol-value dbsym))))
       (set dbsym (open-database (expand-file-name
 				 dbname
-				 elmo-msgdb-dir
+				 elmo-msgdb-directory
 				 )))
     (symbol-value dbsym)))
 
@@ -50,7 +50,8 @@
 
 (defun elmo-database-msgid-put (msgid folder number)
   (let ((db (elmo-database-get 'elmo-database-msgid
-			       elmo-database-msgid-filename)))
+			       elmo-database-msgid-filename))
+	print-length)
     (and msgid db
 	 (progn
 	   (remove-database msgid db)
@@ -68,6 +69,7 @@
 				    elmo-database-msgid-filename))))
     (and match (read match))))
 
-(provide 'elmo-database)
+(require 'product)
+(product-provide (provide 'elmo-database) (require 'elmo-version))
 
 ;;; elmo-database.el ends here