projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch with trunk.
[elisp/wanderlust.git]
/
elmo
/
elmo-database.el
diff --git
a/elmo/elmo-database.el
b/elmo/elmo-database.el
index
dc8b185
..
22a3912
100644
(file)
--- a/
elmo/elmo-database.el
+++ b/
elmo/elmo-database.el
@@
-1,6
+1,6
@@
-;;; 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
@@
-24,10
+24,10
@@
;;
;;; Commentary:
;;
;;; Commentary:
-;;
+;;
;;; Code:
;;; Code:
-;;
+;;
(require 'elmo-vars)
(require 'elmo-msgdb)
(require 'elmo-vars)
(require 'elmo-msgdb)
@@
-39,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)))
@@
-50,7
+50,8
@@
(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)
@@
-68,6
+69,7
@@
elmo-database-msgid-filename))))
(and match (read match))))
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