X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-database.el;h=dc8b18595003d40fc989ebffbca155647c5b3847;hb=2e9f5d2e3f003da464c20fe9924d1e80849265e6;hp=2b6a61bcb22cd5f33e0cc81b0adc44c08bcf7966;hpb=1e366a559be4aec4ad4d3cf3e954b8e62a20d2f3;p=elisp%2Fwanderlust.git diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el index 2b6a61b..dc8b185 100644 --- a/elmo/elmo-database.el +++ b/elmo/elmo-database.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <2000-01-07 00:19:44 teranisi> ;; This file is part of ELMO (Elisp Library for Message Orchestration). @@ -55,16 +54,16 @@ (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))))