;;; Code:
;;
(require 'elmo-vars)
-(require 'elmo-msgdb)
(defvar elmo-database-msgid nil)
(defvar elmo-database-msgid-filename "msgid")
(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)