* wl/wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local...

[elisp/wanderlust.git] / elmo / elmo-database.el

diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index 84f9d26..bf98838 100644 (file)
--- 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,12 +24,11 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 (require 'elmo-vars)
-(require 'elmo-msgdb)
 
 (defvar elmo-database-msgid nil)
 (defvar elmo-database-msgid-filename "msgid")
@@ -39,7 +38,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,24 +49,26 @@
 
 (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)
-          (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