X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-database.el;h=dc8b18595003d40fc989ebffbca155647c5b3847;hb=2e9f5d2e3f003da464c20fe9924d1e80849265e6;hp=84f9d268abd5ebd0f202a29c3f6d1787adfc6f1c;hpb=be8d7b821412989340e00791d88ba789fa044e7e;p=elisp%2Fwanderlust.git diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el index 84f9d26..dc8b185 100644 --- a/elmo/elmo-database.el +++ b/elmo/elmo-database.el @@ -54,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))))