X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-database.el;h=bf98838c5726ca3ea8f4eca31fb2073deb79a8f7;hb=57f081e684a5f0a1de02c96bc61ec175784974bb;hp=55bf2debf33da8e597c50fe5363a70b607c794c7;hpb=9e39553b80115a949a7f04ddced4459a7797f8bd;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index 55bf2de..bf98838 100644
--- 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")
@@ -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)