1 ;;; elmo-database.el --- Database module for ELMO.
3 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Keywords: mail, net news
8 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
33 (defvar elmo-database-msgid nil
)
34 (defvar elmo-database-msgid-filename
"msgid")
36 (defun elmo-database-get (dbsym dbname
)
37 (if (not (and (symbol-value dbsym
)
38 (database-live-p (symbol-value dbsym
))))
39 (set dbsym
(open-database (expand-file-name
43 (symbol-value dbsym
)))
45 (defun elmo-database-close ()
46 (and elmo-database-msgid
47 (database-live-p elmo-database-msgid
)
48 (close-database elmo-database-msgid
)))
50 (defun elmo-database-msgid-put (msgid folder number
)
51 (let ((db (elmo-database-get 'elmo-database-msgid
52 elmo-database-msgid-filename
))
56 (remove-database msgid db
)
57 (put-database msgid
(prin1-to-string
58 (list folder number
)) db
)))))
60 (defun elmo-database-msgid-delete (msgid)
61 (remove-database msgid
(elmo-database-get
63 elmo-database-msgid-filename
)))
65 (defun elmo-database-msgid-get (msgid)
66 (let ((match (get-database msgid
(elmo-database-get
68 elmo-database-msgid-filename
))))
69 (and match
(read match
))))
72 (product-provide (provide 'elmo-database
) (require 'elmo-version
))
74 ;;; elmo-database.el ends here