Import 1.x.
[elisp/wanderlust.git] / elmo / elmo-database.el
1 ;;; elmo-database.el -- Database module for ELMO.
2
3 ;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
4
5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Keywords: mail, net news
7 ;; Time-stamp: <2000-01-07 00:19:44 teranisi>
8
9 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
10
11 ;; This program is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15 ;;
16 ;; This program is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19 ;; GNU General Public License for more details.
20 ;;
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25 ;;
26
27 ;;; Commentary:
28 ;; 
29
30 ;;; Code:
31 ;; 
32 (require 'elmo-vars)
33 (require 'elmo-msgdb)
34
35 (defvar elmo-database-msgid nil)
36 (defvar elmo-database-msgid-filename "msgid")
37
38 (defun elmo-database-get (dbsym dbname)
39   (if (not (and (symbol-value dbsym)
40                 (database-live-p (symbol-value dbsym))))
41       (set dbsym (open-database (expand-file-name
42                                  dbname
43                                  elmo-msgdb-dir
44                                  )))
45     (symbol-value dbsym)))
46
47 (defun elmo-database-close ()
48   (and elmo-database-msgid
49        (database-live-p elmo-database-msgid)
50        (close-database elmo-database-msgid)))
51
52 (defun elmo-database-msgid-put (msgid folder number)
53   (let ((db (elmo-database-get 'elmo-database-msgid
54                                elmo-database-msgid-filename)))
55     (and msgid db
56          (progn
57            (remove-database msgid db)
58            (put-database msgid (prin1-to-string 
59                                 (list folder number)) db)))))
60
61 (defun elmo-database-msgid-delete (msgid)
62   (remove-database msgid (elmo-database-get 
63                           'elmo-database-msgid
64                           elmo-database-msgid-filename)))
65
66 (defun elmo-database-msgid-get (msgid)
67   (let ((match (get-database msgid (elmo-database-get 
68                                     'elmo-database-msgid
69                                     elmo-database-msgid-filename))))
70     (and match (read match))))
71
72 (provide 'elmo-database)
73
74 ;;; elmo-database.el ends here