X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-database.el;h=55bf2debf33da8e597c50fe5363a70b607c794c7;hb=64eb91d7fe775e78e0f1e6555b595e40f391260a;hp=84f9d268abd5ebd0f202a29c3f6d1787adfc6f1c;hpb=be8d7b821412989340e00791d88ba789fa044e7e;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index 84f9d26..55bf2de 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)))
 
@@ -54,20 +54,21 @@
     (and msgid db
 	 (progn
 	   (remove-database msgid db)
-	   (put-database msgid (prin1-to-string 
+	   (put-database msgid (prin1-to-string
 				(list folder number)) db)))))
 
 (defun elmo-database-msgid-delete (msgid)
-  (remove-database msgid (elmo-database-get 
+  (remove-database msgid (elmo-database-get
 			  'elmo-database-msgid
 			  elmo-database-msgid-filename)))
 
 (defun elmo-database-msgid-get (msgid)
-  (let ((match (get-database msgid (elmo-database-get 
+  (let ((match (get-database msgid (elmo-database-get
 				    'elmo-database-msgid
 				    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