-;;; 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
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'elmo-vars)
-(require 'elmo-msgdb)
(defvar elmo-database-msgid nil)
(defvar elmo-database-msgid-filename "msgid")
(database-live-p (symbol-value dbsym))))
(set dbsym (open-database (expand-file-name
dbname
- elmo-msgdb-dir
+ elmo-msgdb-directory
)))
(symbol-value dbsym)))
(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)