* acap.el (acap-parse-response): Fix comment-out style. Use three

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

diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index defccca..bf98838 100644 (file)
--- a/elmo/elmo-database.el
+++ b/elmo/elmo-database.el
@@ -29,7 +29,6 @@
 ;;; 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,7 +49,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)