projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* elmo.el (elmo-generic-folder-append-messages): Set flag as nil
[elisp/wanderlust.git]
/
elmo
/
elmo-database.el
diff --git
a/elmo/elmo-database.el
b/elmo/elmo-database.el
index
2b6a61b
..
22a3912
100644
(file)
--- a/
elmo/elmo-database.el
+++ b/
elmo/elmo-database.el
@@
-1,10
+1,9
@@
-;;; 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
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; Keywords: mail, net news
-;; Time-stamp: <2000-01-07 00:19:44 teranisi>
;; This file is part of ELMO (Elisp Library for Message Orchestration).
;; This file is part of ELMO (Elisp Library for Message Orchestration).
@@
-25,10
+24,10
@@
;;
;;; Commentary:
;;
;;; Commentary:
-;;
+;;
;;; Code:
;;; Code:
-;;
+;;
(require 'elmo-vars)
(require 'elmo-msgdb)
(require 'elmo-vars)
(require 'elmo-msgdb)
@@
-40,7
+39,7
@@
(database-live-p (symbol-value dbsym))))
(set dbsym (open-database (expand-file-name
dbname
(database-live-p (symbol-value dbsym))))
(set dbsym (open-database (expand-file-name
dbname
- elmo-msgdb-dir
+ elmo-msgdb-directory
)))
(symbol-value dbsym)))
)))
(symbol-value dbsym)))
@@
-51,24
+50,26
@@
(defun elmo-database-msgid-put (msgid folder number)
(let ((db (elmo-database-get 'elmo-database-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)
(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)
(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)
'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))))
'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
;;; elmo-database.el ends here