-;;; 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)
(database-live-p (symbol-value dbsym))))
(set dbsym (open-database (expand-file-name
dbname
- elmo-msgdb-dir
+ elmo-msgdb-directory
)))
(symbol-value dbsym)))
(and msgid db
(progn
(remove-database msgid db)
- (put-database msgid (prin1-to-string
+ (put-database msgid (prin1-to-string
(list folder number)) db)))))
(defun elmo-database-msgid-delete (msgid)
- (remove-database msgid (elmo-database-get
+ (remove-database msgid (elmo-database-get
'elmo-database-msgid
elmo-database-msgid-filename)))
(defun elmo-database-msgid-get (msgid)
- (let ((match (get-database msgid (elmo-database-get
+ (let ((match (get-database msgid (elmo-database-get
'elmo-database-msgid
elmo-database-msgid-filename))))
(and match (read match))))
-(provide 'elmo-database)
+(require 'product)
+(product-provide (provide 'elmo-database) (require 'elmo-version))
;;; elmo-database.el ends here