* elmo/elmo-util.el (elmo-object-save): Bind print-level, print-length.

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

diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index 55bf2de..22a3912 100644 (file)
--- a/elmo/elmo-database.el
+++ b/elmo/elmo-database.el
@@ -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)